Волшебный шестиугольник

17

Есть много магических квадратов, но есть только один нетривиальный магический шестиугольник, как объяснил доктор Джеймс Грайм , а именно:

  18 17  3
 11  1  7 19
9  6  5  2 16
 14  8  4 12
  15 13 10

Как это делается в Hexagony, это проще всего записать одной строкой, просто читая ее строка за строкой:

18 17 3 11 1 7 19 9 6 5 2 16 14 8 4 12 15 13 10

Конечно, всего существует двенадцать таких представлений в списке этого магического шестиугольника, если учесть вращения и отражения. Например, вращение указанного шестигранника на 1/6 по часовой стрелке приведет к

9 11 18 14 6 1 17 15 8 5 7 3 13 4 2 19 10 12 16

@Okx попросил перечислить остальные варианты. Остальные списки:

15 14 9 13 8 6 11 10 4 5 1 18 12 2 7 17 16 19 3
3 17 18 19 7 1 11 16 2 5 6 9 12 4 8 14 10 13 15
18 11 9 17 1 6 14 3 7 5 8 15 19 2 4 13 16 12 10
9 14 15 11 6 8 13 18 1 5 4 10 17 7 2 12 3 19 16

плюс все упомянутые списки перевернуты.

Вызов

Напишите программу, которая выводит волшебный шестиугольник в виде списка. Вы можете выбрать любое из 12 отражений / поворотов шестиугольника.

Пожалуйста, добавьте несколько слов о том, как работает ваше решение.

flawr
источник
2
Можно ли это сделать в гексагонии? Если это так, я назначу награду за этот ответ.
г-н Xcoder
1
@ Mr.Xcoder Все можно сделать в гексагонии. Это, вероятно, просто не будет очень интересно, потому что я сомневаюсь, что вы сможете сэкономить байты, просто печатая один из списков буквально.
Мартин Эндер

Ответы:

5

Желе , 11 байт

“JɼQⱮȦ>Ȯ’Œ?

Ниладная ссылка, возвращающая список с заданной ориентацией, отражается слева направо.

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

Как?

Просто та вещь, ради которой я сделал Œ?

“JɼQⱮȦ>Ȯ’Œ? - Niladic link: no arguments
“JɼQⱮȦ>Ȯ’   - base 250 number, 18473955480703453
         Œ? - shortest permutation of some set of natural numbers one through to some N
            -   inclusive which would lie at that index in a list of all permutations of
            -   those same natural numbers when sorted lexicographically.
            -
            -   - for example 7Œ?:
            -   - since 7 is greater than 3! and less than 4!+1, it references four items
            -   - the sorted order of permutations of 4 items is:
            -   - [[1,2,3,4],[1,2,4,3],[1,3,2,4],[1,3,4,2],[1,4,2,3],[1,4,3,2],[2,1,3,4], ...]
            -   - so 7Œ? yields [2,1,3,4]
Джонатан Аллан
источник
4

Pyth, 15 байт

.PC"A¡öò\x06\x11Ý"S19

(Управляющие символы заменены на \x06и \x11для вашего удобства просмотра.)

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

Как это устроено

   "A¡öò\x06\x11Ý"      magic string
  C                     convert to number n using codepoints as base-256 digits
.P                S19   nth lexicographic permutation of [1, …, 19]
Андерс Касеорг
источник
4

05AB1E , 14 байтов

Оба решения генерируют список [3,17,18,19,7,1,11,16,2,5,6,9,12,4,8,14,10,13,15]

19Lœ•δn2мׄÁ•è

Формирует список всех (отсортированных) перестановок диапазона [1...19]и индексирует в этот список с помощью 255 сжатых базовых 10 чисел.

Или 15 байтов в режиме онлайн

•áRвºñ*$vn+•20в

Распаковывает строку 255 в число 10 и преобразует его в список из 20 цифр.

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

Emigna
источник
3

SOGL , 15 байт

³←@uΙΒQH√y׀“L«─

Объяснение:

...“     push the number 4121998669867569415662783
    L«   push 20
      ─  convert 4121998669867569415662783 from base 10 to a base 20 number aka base 10 array 
dzaima
источник
3

Желе , 21 байт

18473955480703453œ?19

Я действительно хочу сжать это большое число, но я не уверен, как.

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

Okx
источник
18473955480703453на 1 байт короче.
Emigna
Поправьте меня, если я ошибаюсь, но не будет ли список кодовых страниц короче?
Ник Клиффорд,
Сжатие RE: Это то же число, которое я использовал в моем. Все, что вам нужно сделать, это преобразовать число в биективное основание 250, используя его, ḃ250и индексировать в кодовую страницу (что теперь проще, поскольку для нее есть ниладический атом ØJ).
Джонатан Аллан
@NickClifford это тоже будет 21 байт (19 индексов, открытая и закрытая цитаты).
Джонатан Аллан
@JonathanAllan Ах, понял.
Ник Клиффорд
0

Mathematica, 37 байт

36^^md1o3apsqxqkfhq6~IntegerDigits~20

Объяснение (это может быть уже очевидно, так как Mathematica не является языком Codegolf, но в соответствии с требованием OP):

36  : Number base
^^  : Input a number in arbitrary base. See BaseForm documentation
md1o3apsqxqkfhq6 : the number in base 36
~IntegerDigits~20 : convert to base 20 as list of digits

Выход:

{18,17,3,11,1,7,19,9,6,5,2,16,14,8,4,12,15,13,10}
user202729
источник
1
Обратите внимание , что kolmogorv-сложность на самом деле это о сжатии данных.
flawr