Цель

В свете того, что World Series уже не за горами, мне нужна программа, которая может считывать оценки в боксах и рассказывать мне, что это за иннинг. Это немного сложнее, потому что бейсбол использует странный метод для записи счета. Они не записывают счет команды в летучей мыши за подачу, пока они не набрали пробег (и все еще идут) или не закончили свою летучую мышь. Таким образом, 0 на табло всегда означает готовый бит. Например:

Example A:
Inning| 1| 2| 3| 4| 5| 6| 7| 8| 9|
  Them| 0| 0| 0| 0| 0| 2|  |  |  |
    Us| 0| 0| 2| 0| 0| 0|  |  |  |

Example B:
Inning| 1| 2| 3| 4| 5| 6| 7| 8| 9|
  Them| 0| 0| 0| 0| 0| 2|  |  |  |
    Us| 0| 0| 2| 0| 0| 1|  |  |  |

Example C:
Inning| 1| 2| 3| 4| 5| 6| 7| 8| 9|
  Them| 0| 0| 0| 0| 0| 2|  |  |  |
    Us| 0| 0| 2| 0| 0|  |  |  |  |

#Them is the Away Team, Us is the Home Team (who are the guys you root for)

• Пример A: Мы знаем, что мы на вершине 7-го, потому что у нас есть записанный 0 в нижней части 6-го, а вершина 7-го пуста.
• Пример Б: Это может быть либо нижняя часть шестого, либо верхняя часть седьмого.
• Пример C: это может быть верх или низ шестого.

Ваша задача состоит в том, чтобы вернуть какой иннинг (ы) это может быть.

вход

Два списка неотрицательных целых чисел. Предполагается, что списки будут зубчатыми, а список гостей - того же размера или на один элемент больше, чем у хозяев. Вы можете выставлять оценки в любом порядке, но указывать в своем ответе, если вы не используете значение по умолчанию. То есть, Away Team, затем Home team (по умолчанию), или Home team, затем Away team (в обратном порядке). Они также могут быть дополнены фиктивными данными, если хотите, укажите в своем ответе, если вы это сделаете.

Выход

Строка или что-то эквивалентное, которая идентифицирует номер иннинга и является ли он верхом или низом. Например 7B 8T, B7 T8, ['7B','8T']все в порядке. Если есть два ответа, вы должны вывести оба. Формат довольно гибкий, хотя.

правила

• Ввод всегда будет действительным
• Игры могут войти в неопределенные дополнительные возможности. Ваша программа должна поддерживать до 255 подач.
• Стандартные лазейки запрещены
• Это код-гольф, поэтому выигрывает самый короткий код

Тестовые случаи

#Input:
[[], 
 []] 
#Output: 1T

#Input:
[[0], 
 []] 
#Output: 1B

#Input:
[[0,0,0,1], 
 [0,0,0,0]] 
#Output: 5T

#Input:
[[0,0,0,1], 
 [0,0,0,1]] 
#Output: 4B, 5T

#Input:
[[0,0,0,1,0,0,1,0,0,1],
 [0,0,0,0,1,0,0,1,0,1]] 
#Output: 10B, 11T

#Input:
[[0,0,0,1], 
 [0,0,0]] 
#Output: 4T, 4B

#Input:
[[0,0,0,0], 
 [0,0,0]] 
#Output: 4B

C (gcc) , 50 байтов

Принимает ввод как указатель на чередующийся список (т.е. {them#1, us#1, them#2,...}).

Возвращает одну опцию через модификацию, а другую через возвращаемое значение.

Отрицательные значения указывают на нижнюю часть иннинга, положительные значения указывают на верхнюю часть иннинга. Нули "пустые". Абсолютным значением выхода является номер тайма. Таким образом, -4,5указывает на возможности, являющиеся вершиной пятой и нижней четвертой, и 1,0указывает на единственную возможность, являющуюся вершиной первой.

Возвращаемое значение макроса может использоваться, чтобы определить, есть ли один или два возможных иннинга; возвращаемое значение, 0если нет другого иннинга. В противном случае это номер иннинга.

Ноль байтов исходного кода. Используйте следующее в качестве флага препроцессора:

-Df(o,n,l)=({o=n%2?~n/2:n/2+1;l[n-1]?-o-~n%2:0;})

Попробуйте онлайн!

Degolf

-Df(o,n,l)=({
// Define a function-like macro f(o,n,l)
// o is the output variable, n is the size of the list, 
// l is a pointer to the first element of the list.
o=n%2?~n/2:n/2+1;
// If there's an odd number of elements, first possible inning is -(n+1)/2. 
// Else, it is (n/2)+1.
l[n-1]?-o-~n%2:0})
// If the score from the last inning is non-zero, the other possible inning
// needs to be determined; flip the sign of first output value then deduct 
// 1 from it if the number of elements is even.

Perl 6 , 52 48 45 байт

-3 байта благодаря некоторой реструктуризации из nwellnhof!

->\a,\b{(+a,a==b if (b,a)[a>b].tail;b+1,a>b)}

Попробуйте онлайн!

Блок анонимного кода, который принимает входные данные в виде двух списков сверху вниз. Выход - это список кортежей, где первый элемент - это номер иннинга, а второй - True или False, что соответствует Bottom или Top.

Объяснение:

       {                                    }  # Anonymous code block
->\a,\b   # That takes input lists a and b
        (                                  )   # Return a list of
                                    b+1,a>b    # A list of 
                                               #  The length of the second list plus 1
                                               #  And top/bottom
         +a,a==b     # And the length of the first list
                     # And the other of top/bottom
                 if  # Only if:
                    (b,a)[a>b]      # The current of top/bottom's
                              .tail # Last element exists and is not 0

R , 103 96 байт

function(a,b,l=sum(a|1),k=sum(b|1))I(l,I(l-k,I(a[l],c(l,-l),-l),I(b[l],c(-l,l+1),l+1)),1)
I=`if`

Попробуйте онлайн!

@digEmAll сохранено 7 байтов!

Принимает два списка векторов в качестве входных данных и выводит одно или два целых числа, представляющих возможные значения. Положительные целые числа являются верхней частью иннинга, а отрицательные целые числа - нижней частью иннинга.

В R положительные целые числа являются правдивыми, поэтому я могу использовать разницу в длине в качестве первого аргумента if().

JavaScript (Node.js) , 75 байт

f=(a,c=1,p=0,z=0)=>1/(t=a[p][c-1])?f(a,c+p,1-p,t):[c,p]+(z?[,c+p-1,1-p]:'')

Попробуйте онлайн!

Желе , 11 байт

ZẎṖṠṪ$СẈd2

Попробуйте онлайн!

Первый элемент: индекс столбца на основе 0.
Второй элемент: 0сверху, 1снизу.

Вывод представляет собой список из одной или двух пар, как указано выше (предварительно подтвержденный, чтобы показать его лучше). Выходные данные в обратном порядке.

Python 2 , 135 129 126 125 123 119 байт

a,b=input()
c=len(a)
e,f=`c+1`+"T",`c`+"B"
print((f+e,e)[b[-1]<1],(`c`+"T"+f,f)[a[-1]<1])[len(b)<c]if b else"1"+"TB"[c]

Попробуйте онлайн!

-1 благодаря @ovs

-4 еще раз спасибо @ovs

Python 2 , 65 байт

a,b=input()
exec"a,b=[0]+b,a;print[len(b)][a[-1]<len(a+b)%2:];"*2

Попробуйте онлайн!

Печатает две строки, сначала нижнюю возможность иннинга, а затем верхнюю, в виде одноэлементного списка. Если какой-либо из них невозможен, этот список пуст.

Чисто , 84 75 байт

import StdEnv
$ =length
?v|last[0:v]>0= $v=0
@a b| $b< $a=(?a,$a)=($a+1,?b)

Попробуйте онлайн!

Определяет функцию @ :: [Int] [Int] -> (Int, Int)и некоторые помощники.
Дает вывод в форме, (Top, Bottom)где ноль означает нулевую возможность.