вход

Непустая двоичная матрица, состоящая из 3x3 подматриц, расположенных рядом.

задача

Ваша задача состоит в том, чтобы определить допустимые образцы костей (как описано ниже) среди подматриц 3x3. Каждый действительный шаблон стоит значение соответствующей кости. Неверные шаблоны стоят 0.

Выход

Сумма действительных значений костей.

Образцы игры в кости

\begin{aligned} 1 : (\begin{matrix} 0, 0, 0 \\ 0, 1, 0 \\ 0, 0, 0 \end{matrix}) & 2 : (\begin{matrix} 1, 0, 0 \\ 0, 0, 0 \\ 0, 0, 1 \end{matrix}) or (\begin{matrix} 0, 0, 1 \\ 0, 0, 0 \\ 1, 0, 0 \end{matrix}) \\ 3 : (\begin{matrix} 1, 0, 0 \\ 0, 1, 0 \\ 0, 0, 1 \end{matrix}) or (\begin{matrix} 0, 0, 1 \\ 0, 1, 0 \\ 1, 0, 0 \end{matrix}) & 4 : (\begin{matrix} 1, 0, 1 \\ 0, 0, 0 \\ 1, 0, 1 \end{matrix}) \\ 5 : (\begin{matrix} 1, 0, 1 \\ 0, 1, 0 \\ 1, 0, 1 \end{matrix}) & 6 : (\begin{matrix} 1, 0, 1 \\ 1, 0, 1 \\ 1, 0, 1 \end{matrix}) or (\begin{matrix} 1, 1, 1 \\ 0, 0, 0 \\ 1, 1, 1 \end{matrix}) \end{aligned}

$\begin{align} &1:\pmatrix{\color{gray}0,\color{gray}0,\color{gray}0\\\color{gray}0,1,\color{gray}0\\\color{gray}0,\color{gray}0,\color{gray}0} &&2:\pmatrix{1,\color{gray}0,\color{gray}0\\\color{gray}0,\color{gray}0,\color{gray}0\\\color{gray}0,\color{gray}0,1}\text{or}\pmatrix{\color{gray}0,\color{gray}0,1\\\color{gray}0,\color{gray}0,\color{gray}0\\1,\color{gray}0,\color{gray}0}\\ &3:\pmatrix{1,\color{gray}0,\color{gray}0\\\color{gray}0,1,\color{gray}0\\\color{gray}0,\color{gray}0,1}\text{or}\pmatrix{\color{gray}0,\color{gray}0,1\\\color{gray}0,1,\color{gray}0\\1,\color{gray}0,\color{gray}0} &&4:\pmatrix{1,\color{gray}0,1\\\color{gray}0,\color{gray}0,\color{gray}0\\1,\color{gray}0,1}\\ &5:\pmatrix{1,\color{gray}0,1\\\color{gray}0,1,\color{gray}0\\1,\color{gray}0,1} &&6:\pmatrix{1,\color{gray}0,1\\1,\color{gray}0,1\\1,\color{gray}0,1}\text{or}\pmatrix{1,1,1\\\color{gray}0,\color{gray}0,\color{gray}0\\1,1,1} \end{align}$

пример

Ожидаемый результат для следующей матрицы - 14, потому что она содержит кости 5 , 6 и 3 , за которыми следует недопустимый шаблон (слева направо и сверху вниз).

(\begin{matrix} 1, 0, 1, 1, 1, 1 \\ 0, 1, 0, 0, 0, 0 \\ 1, 0, 1, 1, 1, 1 \\ 1, 0, 0, 0, 0, 0 \\ 0, 1, 0, 0, 1, 0 \\ 0, 0, 1, 0, 1, 0 \end{matrix})

$\pmatrix{1,0,1,1,1,1\\ 0,1,0,0,0,0\\ 1,0,1,1,1,1\\ 1,0,0,0,0,0\\ 0,1,0,0,1,0\\ 0,0,1,0,1,0}$

правила

Ширина и высота матрицы гарантированно будут кратны 3.
Вы должны игнорировать подматрицы, которые не выровнены должным образом в сетке (см. 3-й тестовый пример). Более формально и предполагая 0-индексирование: координаты верхней левой ячейки каждой рассматриваемой подматрицы имеют вид . $(3x, 3y)$
Это код-гольф .

Контрольные примеры

// 0
[ [ 1,0,0 ],
  [ 0,0,1 ],
  [ 1,0,0 ] ]

// 2
[ [ 0,0,1 ],
  [ 0,0,0 ],
  [ 1,0,0 ] ]

// 0 (0 + 0)
[ [ 0,0,1,0,1,0 ],
  [ 0,0,0,1,0,0 ],
  [ 0,0,1,0,1,0 ] ]

// 9 (3 + 3 + 3)
[ [ 1,0,0,0,0,1,1,0,0 ],
  [ 0,1,0,0,1,0,0,1,0 ],
  [ 0,0,1,1,0,0,0,0,1 ] ]

// 6 (6 + 0)
[ [ 1,0,1 ],
  [ 1,0,1 ],
  [ 1,0,1 ],
  [ 1,0,1 ],
  [ 1,0,0 ],
  [ 1,0,1 ] ]

// 14 (5 + 6 + 3 + 0)
[ [ 1,0,1,1,1,1 ],
  [ 0,1,0,0,0,0 ],
  [ 1,0,1,1,1,1 ],
  [ 1,0,0,0,0,0 ],
  [ 0,1,0,0,1,0 ],
  [ 0,0,1,0,1,0 ] ]

// 16 (1 + 2 + 3 + 4 + 0 + 6)
[ [ 0,0,0,1,0,0,1,0,0 ],
  [ 0,1,0,0,0,0,0,1,0 ],
  [ 0,0,0,0,0,1,0,0,1 ],
  [ 1,0,1,1,1,1,1,0,1 ],
  [ 0,0,0,1,0,1,1,0,1 ],
  [ 1,0,1,1,1,1,1,0,1 ] ]

code-golf array-manipulation binary-matrix Arnauld
источник

5

Python 3 , 195 189 байт

-6 байт благодаря @Jo King

lambda m:sum({16:1,257:2,68:2,273:3,84:3,325:4,341:5,455:6,365:6}.get(int(''.join(str(e)for c in m[3*i:][:3]for e in c[3*j:][:3]),2),0)for i in range(len(m)//3)for j in range(len(m[0])//3))

Попробуйте онлайн! (189) ~~Попробуйте онлайн! (195)~~

Человекочитаемая версия:

# 3x3 part matrix to dice, beginning at coordinates 3*i, 3*j
def single_matrix_to_dice(matrix, i, j):
    # Example: matrix = [[0, 0, 0], [0, 1, 0], [0, 0, 0]], i=0, j=0 (result is 1)

    matrix_string = ''.join(
        str(e) for column in matrix[3*i:3*i+3] 
        for entry in column[3*j:3*j+3]
    ) # Slicing the matrix so that only the valid entries remain, here '000010000'

    # Interpreting the matrix string as binary number, here 16
    binary_number = int(matrix_string,2)

    # binary representations of all valid dice rolls
    dct = {16:1,257:2,68:2,273:3,84:3,325:4,341:5,455:6,365:6}

    return dct.get(binary_number, 0)

def f(matrix):
    return sum(
        single_matrix_to_dice(matrix, i, j) for i in range(len(m)//3) 
        for j in range(len(m[0])//3))
    ) # len(m)/3 would generate a float, so len(m)//3 is used

Черная сова Кай
источник

Интересно, не могли бы вы немного сократить это, выполнив ту же операцию и для транспонирования матрицы. Таким образом, вы можете удалить все дублирующиеся записи в вашей карте, которые добавляют 6 байтов каждая. Просто нужно добавить шаг транспонирования в <18 байтов

Истон Борнемайер,

188 байт .

Джонатан Фрех

Избавьтесь от обоих экземпляров //3и используйте, '0'+''.join...чтобы сохранить два байта :)

Джонатан Аллан

... объединить это с перечислить, чтобы сохранить еще два: здесь

Джонатан Аллан

2

165 байтов .

Джонатан Фрех

5

R 134 байта

function(m,d=dim(m)/3-1){for(a in 0:d)for(b in 0:d[2])F=F+sum(y<-m[1:3+a*3,1:3+b*3])*sum(y*2^(8:0))%in%utf8ToInt("āDđTŅŕǇŭ");F}

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

Я заметил, что у меня было такое же представление о @Heteira

История:

~~171~~ : -10 байт благодаря @JayCe!
~~161~~ : -3 байта благодаря @Giuseppe!
~~158~~ : -13 байтов сохранено!
~~145~~ : -2 байта благодаря @Giuseppe!
~~143~~ : -6 байт сохранено!
~~137~~ : -3 байта благодаря @JayCe!

digEmAll
источник

1

сэкономьте 5 байтов, сжимая список чисел - ссылки с примерами слишком длинны, чтобы публиковать их в качестве комментариев

JayCe

1

Еще 3 байта с использованиемdim

JayCe

больше черной магии для еще двух байтов

JayCe

1

Есть лишняя пара круглых скобок, (2^(8:0))которые можно удалить.

Джузеппе

1

Я добавляю забытый catрезультат intToUtf8: сохранить 3 байта

JayCe

4

Perl 6 , 113 105 97 94 байтов

{sum (|@_[*;^3+3*$_]for ^@_[0]).rotor(9).map:{"@āđŅŕǇ@@DT@@ŭ".ords.first(:2[$_],:k)%7}}

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

Разбивает матрицу на подматрицы 3x3, преобразует девять 1 и 0 в основание 2, а затем индексирует ее в список целых чисел для значения.

Объяснение:

{  #Start anonymous code block
  sum   # Sum of all
     (|@_[*;^3+3*$_]   # Get the n*3 to n*3+3th elements in every sub-list
           for ^@_[0]) # For n in the range 0 to width (divide by 3 to avoid warnings)
     .rotor(9)  # Split this list into groups of 9 (split the dice up)
     .map:{     # And map each die to 
        "@āđŅŕǇ@@DT@@ŭ".ords  # In the list of integers
           .first(      # The first appearance of 
               :2[$_],  # The dice converted from a list of 0s and 1s to base 2
                 :k     # Returning the index
             )%7        # And modulo by 7 to get the alternate versions of 2, 3 and 6
          }
}

Джо Кинг
источник

4

Желе , 29 28 байт

-1 благодаря мистеру Xcoder (используйте Ṁдля замены ṢṪ)

s€3ZẎs3µZU,ƊṀṙ1FḄ“°€⁼-Ḍ?‘i)S

Монадическая ссылка.

Попробуйте онлайн! Или запустить тесты .

Как?

s€3ZẎs3µZU,ƊṀṙ1FḄ“°€⁼-Ḍ?‘i)S - Link: list of lists of 1s and 0s
s€3                          - split each into threes
   Z                         - transpose
    Ẏ                        - tighten
     s3                      - split into threes -> the sub-matrices in column-major order
       µ                  )  - for each sub-matrix, say D:
           Ɗ                 -   last three links as a monad:
        Z                    -     transpose D
         U                   -     reverse each -> D rotated a quarter turn clockwise
          ,                  -     pair with D
            Ṁ                -   get the maximum of the two orientations
             ṙ1              -   rotate left by one (to ensure FḄ will yield integers <256 for all non-zero valued D)
               F             -   flatten
                Ḅ            -   convert from binary
                         i   -   first 1-based index in (0 if not found):
                 “°€⁼-Ḍ?‘    -     code-page indices list = [128,12,140,45,173,63]
                           S - sum

Например, когда подматрица:

[[1,0,1],
 [1,0,1],
 [1,0,1]]

Тогда ZU,Ɗполучается:

[[[1, 1, 1],
  [0, 0, 0],
  [1, 1, 1]],   ...which has maximum (Ṁ):    ...and after ṙ1:
 [[1, 0, 1],                   [[1, 1, 1],         [[0, 0, 0],
  [1, 0, 1],                    [0, 0, 0],          [1, 1, 1],
  [1, 0, 1]]]                   [1, 1, 1]]          [1, 1, 1]]

... который сглаживает к [0, 0, 0, 1, 1, 1, 1, 1, 1], который, преобразование из двоичного, является , 63который является шестым запись в списке индексов кода страницы “°€⁼-Ḍ?‘( ?будучи байт 3Fв кодовой странице Jelly в )

Джонатан Аллан
источник

Ṁможет работать вместо ṢṪ-1.

Мистер Кскодер

... да, это будет (я думал, что я экономлю, используя M>. <). ŒṪИнтересно, можно ли что-нибудь сделать умным ...

Джонатан Аллан

3

Japt `-x` , 36 байт

Теперь становится интересно. Я уверен, что можно играть в гольф еще больше

ò3 ®®ò3Ãy f@"0ıtŵġdťƍǧ"øºXm¬¬Í+H)d
c

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

Луис Фелипе Де Иисус Муньос
источник

2

Сетчатка 0.8.2 , 90 байт

+`(...)(.+¶)(...)(.+¶)(...)
$1¶$3¶$5¶$2$4
¶

M!`.{9}
G`111000111|(101){3}|(.)0(.0).0\3\2
1

Попробуйте онлайн! Объяснение:

+`(...)(.+¶)(...)(.+¶)(...)
$1¶$3¶$5¶$2$4

$3\times 3$ $3\times n$

¶

M!`.{9}

Соедините все блоки вместе, а затем разбейте их на ряды по 9 столбцов.

G`111000111|(101){3}|(.)0(.0).0\3\2

Сохраняйте только допустимые шаблоны кубиков (два шаблона для 6, затем один соответствует любому числу от 0до 5, хотя, 0конечно, это не повлияет на количество ниже).

Подсчитайте количество пипсов на действительных кубиках.

Нил
источник

1

Рубин , 151 байт

->m{m.each_slice(3).flat_map{|r|r.transpose.each_slice(3).map{|d|" \x10āđŅŕǇ  DT  ŭ".chars.map(&:ord).index(d.flatten.join.to_i 2)&.%7}-[p]}.sum}

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

Лямбда, принимающая двумерный массив целых чисел (или, я думаю, строк). Вдохновляется ответом Джо Кинга . Я чувствую, что нарезка кубиков из входной матрицы заняла много места, так что я вполне могу быть вне игры. К счастью, работа с nils обошлась мне всего в несколько байт.

Ungolfed:

->m{
  m.each_slice(3).flat_map{|r|             # Split into groups of 3 rows
    r.transpose.each_slice(3).map{|d|      # Split into groups of 3 columns
      " \x10āđŅŕǇ  DT  ŭ".chars.map(&:ord) # [0,16,257,273,325,341,455,0,0,68,84,0,0,365]
        .index(                            # Find in that array
          d.flatten.join.to_i 2            #   the die flattened into a bitstring (nil if not found)
        )&.%7                              # Safe-modulo 7 (leaves nils as nil)
    }-[p]                                  # Remove nils
  }.sum                                    # Add 'em up
}

benj2240
источник

1

Clojure, 197 байт

#(apply +(for[R[range]i(R 0(count %)3)j(R 0(count(% 0))3)](case(apply +(map *(iterate(partial * 2)1)(for[x(R 3)y(R 3)]((%(+ i x))(+ j y)))))16 1 257 2 68 2 273 3 84 3 325 4 3 4 1 5 455 6 365 6 0)))

Я должен был придумать что-нибудь умнее.

NikoNyrh
источник

1

Python 2 , 159 байт

f=lambda a:a>[]and sum(u'ȀāDđTŅȀŕȀǇŭ'.find(unichr(int(J(J(map(str,r[i:i+3]))for r in a[:3]),2)))/2+1for i in range(0,len(a[0]),3))+f(a[3:])
J=''.join

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

Шляпный отзыв Джонатану Фречу о подходе к кодировке Unicode.

Час Браун
источник

Сколько стоит моя матрица игральных костей?

вход

задача

Выход

Образцы игры в кости

пример

правила

Контрольные примеры

Ответы:

Python 3 , 195 189 байт

Человекочитаемая версия:

R 134 байта

Perl 6 , 113 105 97 94 байтов

Объяснение:

Желе , 29 28 байт

Как?

Japt `-x` , 36 байт

Сетчатка 0.8.2 , 90 байт

Рубин , 151 байт

Clojure, 197 байт

Python 2 , 159 байт

Сколько стоит моя матрица игральных костей?

вход

задача

Выход

Образцы игры в кости

пример

правила

Контрольные примеры

Ответы:

Python 3 , 195 189 байт

Человекочитаемая версия:

R 134 байта

Perl 6 , 113 105 97 94 байтов

Объяснение:

Желе , 29 28 байт

Как?

Japt -x , 36 байт

Сетчатка 0.8.2 , 90 байт

Рубин , 151 байт

Clojure, 197 байт

Python 2 , 159 байт

Japt `-x` , 36 байт