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

21

вход

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

задача

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

Выход

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

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

1:(0,0,00,1,00,0,0)2:(1,0,00,0,00,0,1)or(0,0,10,0,01,0,0)3:(1,0,00,1,00,0,1)or(0,0,10,1,01,0,0)4:(1,0,10,0,01,0,1)5:(1,0,10,1,01,0,1)6:(1,0,11,0,11,0,1)or(1,1,10,0,01,1,1)

пример

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

(1,0,1,1,1,10,1,0,0,0,01,0,1,1,1,11,0,0,0,0,00,1,0,0,1,00,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 ] ]
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ŅŕLJŭ");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
1
Есть лишняя пара круглых скобок, (2^(8:0))которые можно удалить.
Джузеппе
1
Я добавляю забытый catрезультат intToUtf8: сохранить 3 байта
JayCe
4

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

{sum (|@_[*;^3+3*$_]for ^@_[0]).rotor(9).map:{"@āđŅŕLJ@@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 
        "@āđŅŕLJ@@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×33×N

¶

M!`.{9}

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

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

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

1

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

Нил
источник
1

Рубин , 151 байт

->m{m.each_slice(3).flat_map{|r|r.transpose.each_slice(3).map{|d|" \x10āđŅŕLJ  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āđŅŕLJ  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
источник