Возьми хмуриться и переверни его

21

Празднование многоликого APL

Если в столбце 1 или столбце 2 таблицы ниже приведена строка, верните соседа строки справа от него. Другими словами, если дана строка в столбце 1, вернуть строку столбца 2 в этой строке, а если дана строка в столбце 2, вернуть строку столбца 3 в этой строке.

Кодовые точки (отличные от :') перечислены в крайнем правом углу.

 столбец 1 столбец 2 столбец 3
:⊢  →   →  ⊣:   U + 22a2 U + 2361 U + 22a3
:▷ →   →  ◁:   U + 25b7 U + 2362 U + 25c1
:⋆ →   →  ⋆:   U + 22c6 U + 2363 U + 22c6
:∘ →   →  ∘:   U + 2218 U + 2364 U + 2218
:○ →   →  ○:   U + 25cb U + 2365 U + 25cb
:≀ →   →  ≀:   U + 2240 U + 2368 U + 2240
:∧ →   →  ∨:   U + 2227 U + 2369 U + 2228

Анекдот: Большинство из этих символов действительны или предложены на некотором диалекте APL (все они являются ссылками).

По запросу только символы:

:⊢ ⍡ ⊣:
:▷ ⍢ ◁:
:⋆ ⍣ ⋆:
:∘ ⍤ ∘:
:○ ⍥ ○:
:≀ ⍨ ≀:
:∧ ⍩ ∨:
Адам
источник

Ответы:

8

JavaScript (ES6), 108 107 байт

s=>(S="⊢▷⋆∘○≀∧⍡⍢⍣⍤⍥⍨⍩⊣◁⋆∘○≀∨")[S.search(s[1]||s)+7]+(s[1]?'':':')

демонстрация

Arnauld
источник
5

C # (.NET Core) , 148 134 байта

s=>{var c="⊢⍡⊣▷⍢◁⋆⍣⋆∘⍤∘○⍥○≀⍨≀∧⍩∨";return c[c.IndexOf(s[s.Length-1])+1]+(s.Length<2?":":"");}

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

  • 14 байтов сэкономлено после игры в гольф немного.
Чарли
источник
Хотел спросить, действительно ли просто опустить очевидные строительные леса (класс Program, static void Main), которые вам нужны из числа байтов? Обычно я использую языки JVM, и, конечно, было бы здорово, если бы я мог просто опустить объявление функции class / main и просто посчитать содержание моего кода, но я не уверен, так ли это.
Матей
1
@Matej Стандартные правила игры в гольф-код допускают представление функции / лямбды или полной программы.
Адам Мартин
3

Python 3 , 140 137 116 байт

lambda n,x=":⊢⍡⊣:▷⍢◁:⋆⍣⋆:∘⍤∘:○⍥○:≀⍨≀:∧⍩∨:":x[x.find(n)+len(n):x.find(n)+3]

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

прут
источник
Сбой для входов столбца 1
CalculatorFeline
Странный. Это не сработало, когда я попробовал это раньше. В любом случае, продолжай.
CalculatorFeline
Ваш последний персонаж потерял :глаза.
xnor
3

Желе , 56 байт

“¤'aẎṚl’b4ạ37ż“ɱaɲṢbḊİcİðdðṖeṖ@h@'i(‘ḅ⁹Ọɓi@€Ṁ‘ị;⁸LḂx@”:¤

Полная программа.

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

Примечание: ( ɱaɲ!) Несмотря на то, что существует некий шаблон для :неординалов (средний столбец почти последовательный, многие левые и правые одинаковые - только два от одного и один от десяти), этого просто не достаточно для такого небольшой набор данных, позволяющий сохранять любые байты.

Первые тринадцать байтов тоже могут быть “¡ÐɼU¹’ṃ“"%#‘.

Как?

“¤'aẎṚl’b4ạ37ż“ ... ‘ḅ⁹Ọɓi@€Ṁ‘ị;⁸LḂx@”:¤ - Main link: list of characters, frown
“¤'aẎṚl’                                 - base 250 number = 4064044420859
        b4                               - to base 4 = [3, 2, 3, 0, 2, 0, 3, 2, 3, 3, 2, 3, 0, 2, 0, 3, 2, 3, 3, 2, 3]
          ạ37                            - absolute diffence with 37 = [34, 35, 34, 37, 35, 37, 34, 35, 34, 34, 35, 34, 37, 35, 37, 34, 35, 34, 34, 35, 34]
              “ ... ‘                    - code page indexes = [162, 97, 163, 183, 98, 193, 198, 99, 198, 24, 100, 24, 203, 101, 203, 64, 104, 64, 39, 105, 40]
             ż                           - zip together = [[34, 162], [35, 97], [34, 163], [37, 183], [35, 98], [37, 193], [34, 198], [35, 99], [34, 198], [34, 24], [35, 100], [34, 24], [37, 203], [35, 101], [37, 203], [34, 64], [35, 104], [34, 64], [34, 39], [35, 105], [34, 40]]
                      ⁹                  - literal 256
                     ḅ                   - convert from base = [8866, 9057, 8867, 9655, 9058, 9665, 8902, 9059, 8902, 8728, 9060, 8728, 9675, 9061, 9675, 8768, 9064, 8768, 8743, 9065, 8744]
                       Ọ                 - convert to characters = "⊢⍡⊣▷⍢◁⋆⍣⋆∘⍤∘○⍥○≀⍨≀∧⍩∨"
                        ɓ                - dyadic chain separation, call that smiles
                         i@€             - first index of €ach frown character in smiles
                            Ṁ            - maximum (any ':' was not found so yielded 0)
                             ‘           - increment
                              ị          - index into smiles
                                       ¤ - nilad followed by link(s) as a nilad
                                ⁸        -   chain's left argument, frown
                                 L       -   length
                                  Ḃ      -   mod 2
                                     ”:  -   literal ':'
                                   x@    -   repeat with swapped @rguments
                               ;         - concatenate
                                         - implicit print
Джонатан Аллан
источник
Это серьезное желе прямо здесь. Тьфу.
Адам
рушит ординалы с молотком "... вставь, улыбнись !"
Джонатан Аллан
2

PHP , 147 байт

<?=($f=array_flip($y=str_split(⍣⋆⍤∘⍥○⍨≀∧⍩∨⊢⍡⊣▷⍢◁,3))[trim($argn,":")])>7?$y[$f+1].":"[$f%3>1]:$y[$f^1].":"[$f&1];

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

Йорг Хюльсерманн
источник
+1 только за array_flip!
Адам
@ Adám array_flipна один или два байта короче как альтернатива, array_searchи многобайтовый в этом случае стоит много байтов.
Нехорошо
1
удаление кавычек из строки символов также выполняется, это считается неопределенной константой с тем же значением
Einacio
1

05AB1E , 58 56 54 байта

• î]D£Èтн»“¿āp÷ŒRÃÙŽ^мηWX·ć•3ô8728+çJ3ô':ý':.øI¡`3Ig-£

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

объяснение

• î]D£Èтн»“¿āp÷ŒRÃÙŽ^мηWX·ć•  # push a 63-digit base-255 compressed number
3ô                            # split in pieces of 3
  8728+                       # add 8728 to each
       çJ                     # convert to a string with the corresponding code points
         3ô                   # split in pieces of 3
           ':ý                # merge on ":"
              ':.ø            # surround with ":"
                  I¡          # split on input
                    `         # push as separate to stack, the tail on top
                     3Ig-£    # take the first 3-len(input) characters

Вышеупомянутый метод должен работать с любым числом в диапазоне [8676 ... 8728], поэтому, если я смогу найти там число, которое можно сгенерировать в 3 байта, я мог бы сохранить байт поверх текущего решения.

Emigna
источник