Давайте играть в гольф BIBABOBU декодер

53

Когда я путешествовал в будущем, я заметил забавную игру среди детей около 2275 года. Когда они не хотят, чтобы их пра-пра-пра-пра-пра- прародители поняли, о чем они говорят, они используют речь BIBABOBU . Очевидно, я ничего не мог понять ни с моим мозгом до киборгской эры, и я чувствовал (или технически: я буду чувствовать ) действительно глупым. Итак, мне понадобится декодер для моего следующего визита.

BIBABOBU?

Несмотря на то, что это долгое время считалось устаревшим, ASCII все еще широко используется в поп-культуре 2275 года, и этот язык основан на нем.

Таким образом, строка кодируется в BIBABOBU:

  • Преобразуйте все символы в их коды ASCII.
  • Возьмите двухзначное шестнадцатеричное представление каждого кода и преобразуйте их, используя следующую таблицу:

    0: BI  4: BIDI  8: BADI  C: BODI
    1: BA  5: BIDA  9: BADA  D: BODA
    2: BO  6: BIDO  A: BADO  E: BODO
    3: BU  7: BIDU  B: BADU  F: BODU
    

пример

"Hello!" → 48 65 6C 6C 6F 21 → "BIDIBADI BIDOBIDA BIDOBODI BIDOBODI BIDOBODU BOBA"

Тем не менее, соответствующий ввод будет дан без какого-либо пространства для имитации монотонной интонации, которую используют дети, чтобы сделать это еще труднее для понимания без имплантатов:

"BIDIBADIBIDOBIDABIDOBODIBIDOBODIBIDOBODUBOBA"

Разъяснения и правила

  • Помните, что мне нужен декодер , а не кодер.
  • Декодированные символы гарантированно находятся в диапазоне [32 ... 126] .
  • Входные данные гарантированно содержат четное число шестнадцатеричных цифр в кодировке BIBABOBU.
  • Вы можете использовать ввод либо в нижнем, либо в верхнем регистре. Смешанные случаи не допускаются.
  • Поскольку во время путешествий во времени довольно часты перевороты, это , чтобы минимизировать риски.

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

Примечание: перевод строки используется ниже только для форматирования. Вы не должны обращаться с ними.

Input:
BIDABIDIBIDOBIDABIDUBUBIDUBIDI

Output:
Test

Input:
BIDABIDUBIDOBIDABIDOBODIBIDOBUBIDOBODUBIDOBODABIDOBIDABOBIBIDUBIDIBIDOBODUBOBIBUBOBUBOBUBI
DUBUBIDABOBA

Output:
Welcome to 2275!

Input:
BIDIBADIBIDOBIDABIDOBODIBIDOBODIBIDOBODUBOBODIBOBIBIDABIDIBIDOBADABIDOBODABIDOBIDABOBIBIDA
BIDIBIDUBOBIDOBABIDUBIDOBIDOBIDABIDOBODIBIDOBIDABIDUBOBOBABOBIBIDABADABIDOBODUBIDUBIDABOBI
BIDOBODIBIDOBODUBIDOBODUBIDOBADUBOBIBIDUBUBIDOBODUBOBIBIDOBIDOBIDUBIDABIDOBODOBIDOBODOBIDU
BADABOBA

Output:
Hello, Time Traveler! You look so funny!

Input:
BIDIBABIDOBODOBIDOBIDIBOBIBIDUBADABIDOBODUBIDUBIDABOBIBIDOBIDIBIDOBODUBIDOBODOBOBIDUBIDUBI
DIBOBIBIDUBIDABIDOBODOBIDOBIDIBIDOBIDABIDUBOBIDUBUBIDUBIDIBIDOBABIDOBODOBIDOBIDIBOBIBIDUBI
DUBIDOBADIBIDOBABIDUBIDIBOBIBIDIBADABOBIDUBIDOBODABOBIBIDUBUBIDOBABIDUBADABIDOBADABIDOBODO
BIDOBIDUBOBODIBOBIBIDOBIDIBIDOBODUBOBIBIDUBADABIDOBODUBIDUBIDABUBODUBOBIBIDIBADIBIDOBABOBI
BIDOBADIBIDOBABOBIBIDOBADIBIDOBABOBA

Output:
And you don't understand what I'm saying, do you? Ha ha ha!
Arnauld
источник
4
@StewieGriffin Эти проклятые дети вредны ...: - /
Арно
12
Кстати, я считаю, что история действительно очень маловероятна! Я не удивлюсь, если бы это был всего лишь сон, который у тебя был ... может быть, у тебя в доме утечка СО?
Стьюи Гриффин
12
Ах ... Это также объяснило бы пони на радуге в моей гостиной!
Арно
9
Можно утверждать, что гольф-код увеличивает серьезность переворота (меньше избыточности в коде), даже если он уменьшает частоту переворота ... но что угодно :) - Отличная задача!
JayCe
4
@JayCe Правда. Я все больше размышлял: чем меньше код, тем больше избыточности вы можете получить, храня несколько копий.
Арно

Ответы:

15

05AB1E , 36 35 33 байта

Сохранено 1 байт благодаря Mr.Xcoder
Сохранено 2 байта благодаря KevinCruijssen

ć©¡®ì®D…IAO©â'D«‚˜®'U«âJskh2ôJHçJ

Попробуйте онлайн! или как тестовый набор

объяснение

ć©¡                                 # extract the head ("B") and split input on it
   ®ì                              # prepend "B" to each
     ®D                            # push 2 copies of "B"
       …IAO©â                      # cartesian product with "IAO"
             'D«                   # append "D" to each
                ‚˜                 # add the leftover "B" to the list
                  ®'U«â            # cartesian product with "IAOU"
                       J           # join each to string
                        sk         # get the index of each word of the input in this list
                          h        # convert each to hex
                           2ôJ     # format as pairs of chars
                              H    # convert to int
                               çJ  # convert from ascii-codes to string
Emigna
источник
Я считаю, 'B©¡¦®ì®D…IAO©â'D«‚˜®'U«âJskh2ôJHçJработает на 35 байтов.
г-н Xcoder
@ Mr.Xcoder: Ах, конечно. Хорошее повторное использование ©. Спасибо :)
Emigna
-2 байт изменения ведущей 'Bк ćи удалению ¦, так как вход всегда будет начинаться с «B».
Кевин Круйссен
@KevinCruijssen: О, хорошая идея. Я не рассматривал ć. Спасибо!
Эминья
9
Теперь давайте вернемся к этим детям и посмотрим, понимают ли они это!
Аарон
14

Желе , 26 24 23 22 20 17 15 байт

ṣḢO^1%9%4Ḅḅ⁴b⁹Ọ

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

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

ṣḢO^1%9%4Ḅḅ⁴b⁹Ọ  Main link. Argument: s (string)

 Ḣ               Head; remove and yield the first character of s.
ṣ                Split s at occurrences of the result ('B').
  O              Ordinal; map "IAOUD" to A1 := [73, 65, 79, 85, 68].
   ^1            Bitwise XOR 1; map A1 to A2 := [72, 64, 78, 84, 69].
     %9          Modulo 9; map A2 to A3 := [0, 1, 6, 3, 6].
       %4        Modulo 4; map A3 to A4 := [0, 1, 2, 3, 2].
                 So far, we've mapped "BX" to [x] and "BXDY" to [x, 2, y],
                 where x/y = 0, 1, 2, 3 when X/Y = I, A, O, U.
         Ḅ       Unbinary; map [x] to x and [x, 2, y] to 4x + 2×2 + y = 4(x + 1) + y.
          ḅ⁴     Convert the resulting array from base 16 to integer.
            b⁹   Convert the resulting integer to base 256.
              Ọ  Unordinal; replace code points with their characters.
Деннис
источник
13

Perl 6 , 58 байт

{S:g{(B.[D.]?)**2}=chr :16[$0».&{:2[.ords»³X%87 X%4]}]}

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

Сильно вдохновлен решением от Dennis 'Jelly. Использует другую магическую функцию, x³ % 87 % 4которая также отображает коды ASCII IAOUBDв 012302.

Альтернативная версия 75 74 байта

-1 байт благодаря Джо Кингу

{pack('H',.trans((<B BID BAD BOD>X~ <I A O U>)=>(^16)».base(16))).decode}

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

Альтернативная 85-байтовая версия

{S:g[....]=chr :4(~$/)*2+|221+^:4(~$/)+^238}o{TR:d/UIAOBD/0123/}o{S:g[B.<![D]>]=0~$/}

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

nwellnhof
источник
Как насчет (^16)>>.base(16)-1 байт
Джо Кинг,
6

05AB1E (legacy), 68 65 60 59 байт

.•5Ç¿ÆΓ•2ô.•1ÒKá ¸ΓìŸÆt`ô_zTºγ„KRI‰ι놽òι•4ô«I¬©¡®ìkh2ôJHçJ

Ввод в нижнем регистре.

-3 байта неявно благодаря изменению @Emigna'b¡εg>}s£ на 'b©¡®ì.

Попробуйте онлайн или проверьте все контрольные примеры .

Кроме того, определенно можно играть в гольф с чем-то умнее, чем огромные сжатые струны. Сделаю еще один взгляд позже. Более короткий ответ уже предоставлен @Emigna , поэтому обязательно проголосуйте за него!

Объяснение:

.•5Ç¿ÆΓ•      # Compressed string "bibabobu"
        2ô    # Split in parts of 2
              #  → ["bi","ba","bo","bu"]
.•1ÒKá ¸ΓìŸÆt`ô_zTºγ„KRI‰ι놽òι•
              # Compressed string "bidibidabidobidubadibadabadobadubodibodabodobodu"
        4ô    # Split in parts of 4
              #  → ["bidi","bida","bido","bidu","badi","bada","bado","badu","bodi","boda","bodo","bodu"]
«             # Merge both lists together
              #  → ["bi","ba","bo","bu","bidi","bida","bido","bidu","badi","bada","bado","badu","bodi","boda","bodo","bodu"]
I¬©¡          # Take the input and split on the head (always 'b')
              #  i.e. "bidibadibidobidabidobodibidobodibidoboduboba"
              #   → ["idi","adi","ido","ida","ido","odi","ido","odi","ido","odu","o","a"]
    ®ì        # And prepend a 'b' to each item again
              #  i.e. ["idi","adi","ido","ida","ido","odi","ido","odi","ido","odu","o","a"] 
              #   → ["bidi","badi","bido","bida","bido","bodi","bido","bodi","bido","bodu","bo","ba"]
k             # Map each item to the index of the first list
              #   i.e. ["bidi","badi","bido","bida","bido","bodi","bido","bodi","bido","bodu","bo","ba"]
              #    → [4,8,6,5,6,12,6,12,6,15,2,1]
 h            # Convert everything to hexadecimal
              #  i.e. [4,8,6,5,6,12,6,12,6,15,2,1]
              #   → ["4","8","6","5","6","C","6","C","6","F","2","1"]
  2ôJ         # Split it in parts of 2 and join them together
              #  i.e. ["4","8","6","5","6","C","6","C","6","F","2","1"]
              #   → ["48","65","6C","6C","6F","21"]
     H        # Convert that from hexadecimal to an integer
              #  i.e. ["48","65","6C","6C","6F","21"] → [72,101,108,108,111,33]
      ç       # And take its ASCII value
              #  i.e. [72,101,108,108,111,33] → ["H","e","l","l","o","!"]
       J      # Then join everything together (and output implicitly)
              #  i.e. ["H","e","l","l","o","!"] → "Hello!"
Кевин Круйссен
источник
5

R , 141 135 байт

function(x,y="I":"A":"O")intToUtf8(matrix(match(el(strsplit(gsub("D","",x),"B"))[-1],paste0(rep("":y,e=4),y:"U"))-1,,2,T)%*%16:1)
":"=c

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

Спасибо JayCe за сохранение 6 байтов!

Использование некоторой модульной магии, вероятно, будет короче, но я очень доволен этим как наивный первый проход.

Giuseppe
источник
1
Приятно ! Мой любимый трюк экономит 6 байтов - вдохновленный вашим комментарием к моему ответу на днях.
JayCe
@JayCe очень красиво и аккуратно! Даже используя это с приоритетом над %*%я вижу. :-) Вы также можете указать `:`в качестве аргумента функции, если вы хотите использовать это в тандеме с чем-то другим!
Джузеппе
Это верно - я всегда склонен забывать о кавычках.
JayCe
5

Japt, 43 29 28 байт

Неудивительно, что решение от Dennis 'Jelly работает намного короче.

Выводит массив символов.

Åqbu)®¬®c ^1 %9%4Ãì2Ãò ®ìG d

Попробуй


Оригинал, 42 байта

Åqb £`bbidbad¾d`ò3n)ï`ia`q)m¬bXibÃò ®ìG d

Попробуй

объяснение

Åqb £`bbidbad¾d`ò3n)ï`ia`q)m¬bXibÃò ®ìG d
Å                                              :Slice off the first character
 qb                                            :Split on "b"
    £                                          :Map
     `bbidbad¾d`                               :  Compressed string "bbidbadbod"
                ò3n)                           :  Partition at every 3rd character from the end (["b","bid","bad","bod"])
                    ï                          :  Cartesian product
                     `ia`                      :   Compressed string "iaou"
                          q                    :   Split
                           )                   :  End Cartesian product
                            m                  :  Map
                             ¬                 :   Join
                              b                :  Index of
                               X               :   Current element
                                ib             :   Prepend "b"
                                  Ã            :End map
                                   ò           :Partition at every second element
                                     ®         :Map
                                      ìG       :  Convert from base-16 digit array to base-10 integer
                                         d     :  Get the character at that codepoint
мохнатый
источник
5

C (gcc) , 181 138 136 байт

Надеюсь, в будущем появится компилятор C, который скомпилирует это! :-)

Спасибо Максу Ехлакову иачка за предложения.

v,t,c,d;f(char*s){for(v=t=c=0;d=*s++;)t+=d==66?v=v*16+t,++c>2?v=!putchar(v),c=1:0,-t:d-65?d-79?d-68?d-85?0:3:4+t*3:2:1;putchar(v*16+t);}

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


В случае, если будущий компилятор C понимает только ASCII с BIBABOBU-ified :-)

BIDUBIDOBOBODIBIDUBIDIBOBODIBIDOBUBUBADUBIDOBIDOBOBADIBIDOBUBIDOBADIBIDOBABIDUBOBOBADOBIDUBUBOBADABIDUBADUBIDOBIDOBIDOBODUBIDUBOBOBADIBIDUBIDOBUBODABIDUBIDIBUBODABIDOBUBUBODABUBIBUBADUBOBADOBIDUBUBUBADUBIDUBUBOBADUBOBADUBOBADABIDUBIDIBOBADUBUBODABOBADOBIDUBUBUBODABUBODABUBIDOBUBIDOBUBODUBIDUBIDOBUBODABIDUBIDOBOBADOBUBABUBIDOBOBADUBIDUBIDIBOBODIBOBADUBOBADUBIDOBUBUBODOBUBOBUBODUBIDUBIDOBUBODABOBABIDUBIBIDUBIDABIDUBIDIBIDOBUBIDOBADIBIDOBABIDUBOBOBADIBIDUBIDOBOBADABOBODIBIDOBUBUBODABUBABUBADOBUBIBOBODIBOBODABIDUBIDIBUBADOBOBADOBIDUBUBOBODABUBIDOBUBIDABUBODUBOBADOBIDUBUBOBODABUBIDUBUBADABUBODUBOBADOBIDUBUBOBODABUBIDOBUBADIBUBODUBOBADOBIDUBUBOBODABUBADIBUBIDABUBODUBUBIBUBADOBUBUBUBADOBUBIDIBOBADUBIDUBIDIBOBADOBUBUBUBADOBUBOBUBADOBUBABUBADUBIDUBIBIDUBIDABIDUBIDIBIDOBUBIDOBADIBIDOBABIDUBOBOBADIBIDUBIDOBOBADOBUBABUBIDOBOBADUBIDUBIDIBOBADABUBADUBIDUBODA

(Кодер Попробуй онлайн! )

ErikF
источник
179 байт - попробуйте онлайн!
Макс Ехлаков
Предлагаю c=printf(&v),v=0вместоv=!putchar(v),c=1
floorcat
4

JavaScript (Node.js) , 131 128 байт

s=>unescape(s.replace(/B.(D.)?/g,(f,s)=>(-~g(f[1])*4*!!s+g((s||f)[1])).toString(16),g=c=>'IAOU'.search(c)).replace(/../g,'%$&'))

Попробуйте онлайн! Ссылка включает в себя тестовые случаи. Альтернативная версия, также 131 байт:

s=>unescape(s.replace(/B.(D.)?/g,s=>(-~g(s[1])*4*!!s[3]+g(s[3]||s[1])).toString(16),g=c=>'IAOU'.search(c)).replace(/../g,'%$&'))

Попробуйте онлайн! Ссылка включает в себя тестовые случаи. Редактировать: Сохраняет 3 байта благодаря @Shaggy.

Нил
источник
1
Использование unescape()это хорошая идея.
Арно
indexOf-> searchчтобы сохранить байт.
Лохматый
Кроме того, не похоже, что вам нужно назначить RegEx r.
лохматый
@ Shaggy Ой, это остаток от предыдущей итерации. Спасибо!
Нил
4

Scala , 305 байт

Ну, я уверен, что это можно сыграть в гольф. Но все же, оно существует. Вводит строчные буквы. fвыводит результат в стандартный вывод.

РЕДАКТИРОВАТЬ: -8 символов благодаря тому, что я больше не тупой (пробелы); -13 символов благодаря crater2150

var k=Seq("bi","ba","bo","bu")
k++=k.init.flatMap(a=>Seq("di","da","do","du").map(a+_))//Putting "bu" here instead of at line 1, and in place of using init, would be interesting... if it did not cause a typing problem
var m=Seq[String]()
def g(a:Seq[String],b:Int)=k.indexOf(a(b)).toHexString
def f(a:String){a.split('b').drop(1).foreach(x=>m:+="b"+x)
var i=0
while(i<m.length){print(Integer.parseInt(g(m,i)+g(m,i+1),16).toChar)
i+=2}}

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

В. Куртуа
источник
Вы можете заменить dropRight(1)на init, Seq("").drop(1)с Seq[String](), и map(b=>a+b)сmap(a+_)
crater2150
@ crater2150 спасибо! мой компилятор не хотел map(a+_)работать, но я знал, что смогу это сделать. спасибо за другие советы!
В. Куртуа
3

Python 2 , 93 байта

lambda w:''.join('c60238e4d1_b7f95a'[hash(x)%3046%17]for x in w.split('B')[1:]).decode('hex')

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

овс
источник
Я люблю ответы, которые злоупотребляют хэш-значением достаточно маленьких списков
Линдон Уайт
3

Dyalog APL, 74 72 байта

Решение для начинающих в Dyalog APL (только что начал изучать это пару дней назад!). Определяет dfn, который принимает один правильный аргумент (вход). 72 символа, 72 байта при использовании кодировки Dyalog. Основано на решении Emigna в 05AB1E.

{⎕UCS 16⊥¨(1 0⍴⍨≢t)⊂1-⍨(,('B',('B'∘.,'IAO'),¨'D')∘.,'IAOU')⍳t←('B'⍷⍵)⊂⍵}
vancan1ty
источник
Добро пожаловать в PPCG и в мир гольфа APL. Это удивительно после всего лишь нескольких дней изучения APL. Вам могут понравиться советы по игре в гольф APL . Не стесняйтесь участвовать и в саду APL !
Адам
2

Brain-Flak , 178 байт

{(([((((()()()()){}){}){}()){}]{}){{}<>(({}){}){}(<>)}{}<({}(<>))(<>)((()()()())({})()){{(({})){({}[()])<>}{}}<>({}<>)<>{}}{}><>{}{})<>}<>([]){{}({}(((({}){}){}){}){}<>)<>([])}<>

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

объяснение

# Step 1: convert to hex.
# For each pair of letters in the input:
{

  (

    # Compare first letter to B
    ([((((()()()()){}){}){}()){}]{})

    # If not B, pop previous output, multiply by 4, and put on third stack.
    # 4 is added automatically from pushing/popping the difference
    # between the letters B and D.
    {{}<>(({}){}){}(<>)}{}

    <

      # Push second letter in pair to other stack
      ({}(<>))

      # Push 4 and 9
      (<>)((()()()())({})())

      # Compute 3-((8-(n mod 9)) mod 4)
      # (same as (n-1) mod 9 mod 4)
      {{(({})){({}[()])<>}{}}<>({}<>)<>{}}{}

    >

    # Add result to third stack (either 0 or 4*previous+4)
    <>{}{}

  # Push onto second stack
  )

<>}

# Step 2: Pair up hex digits.
# While digits remain on right stack:
<>([]){{}

  # Push top of stack + 16*second on stack to left stack
  ({}(((({}){}){}){}){}<>)<>

([])}

# Switch to left stack for output.
<>
Nitrodon
источник
2

05AB1E , 30 байтов

ć¡Ç1^9%4%εDg≠i421øP]€OžvβžzвçJ

Порт безумного Jelly ответа @Dennis (только с менее удобными встроенными функциями). Так что обязательно проголосуйте за него!

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

ć¡             # Split the input-string on its first character ('B')
               #  i.e. "BIDABIDIBIDOBIDABIDUBUBIDUBIDI"
               #   → ["IDA","IDI","IDO","IDA","IDU","U","IDU","IDI"]
  Ç            # Convert each character to it's ordinal value
               #  → [[73,68,65],[73,68,73],[73,68,79],[73,68,65],[73,68,85],85,[73,68,85],[73,68,73]]
   1^          # XOR it by 1
               #  → [[72,69,64],[72,69,72],[72,69,78],[72,69,64],[72,69,84],84,[72,69,84],[72,69,72]]
     9%        # Take modulo-9
               #  → [[0,6,1],[0,6,0],[0,6,6],[0,6,1],[0,6,3],3,[0,6,3],[0,6,0]]
       4%      # Take Modulo-4
               #  → [[0,2,1],[0,2,0],[0,2,2],[0,2,1],[0,2,3],3,[0,2,3],[0,2,0]]
ε         ]    # Now map it to:
 Dgi          # If the length is not 1:
               #  i.e. [0,2,1] → 3 → 1 (truthy)
               #  i.e. 3 → 1 → 0 (falsey)
     421øP     # Multiply the first number by 4, second by 2, and third by 1
               #  i.e. [0,2,1] and [4,2,1] → [[0,4],[2,2],[1,1]] → [0,4,1]
           O  # Then sum every inner list
               #  [[0,4,1],[0,4,0],[0,4,2],[0,4,1],[0,4,3],3,[0,4,3],[0,4,0]]
               #   → [5,4,6,5,7,3,7,4]
žvβ            # Convert this list from base-16 to base-10
               #  → 1415934836
   žzв         # Convert this integer from base-10 to base-256
               #  → [84,101,115,116]
      ç        # Convert this number to ASCII characters
               #  → ["T","e","s","t"]
       J       # Join the characters together (and output implicitly)
               #  → "Test"
Кевин Круйссен
источник
Интересно, как вы отстрелили 3 балла от emignas. Jeebus, это комплекс +1 для усилий на порту - никогда не использовал XOR или это базовое преобразование раньше! Будем иметь в виду, теперь!
Волшебная Урна Осьминога
@MagicOctopusUrn Да, ответ Денниса - это то, что я бы никогда не придумал сам ... И в Jelly это сделано намного эффективнее, поскольку его ответ - 15 байтов, а мой - 30. Просто решил, что это тоже стоило опубликовать, хотя это порт. Я только однажды использовал XOR и преобразование Base довольно часто.
Кевин Круйссен
2

Java (JDK 10) , 199 байт

s->{var z="";for(var x:s.substring(1).split("B")){int d=-1;for(var y:x.split("D"))d=-~d*4+"IAOU".indexOf(y);z+=(char)(d>9?d+55:d+48);}return new String(new java.math.BigInteger(z,16).toByteArray());}

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

кредиты

  • -2 байта благодаря Арно
Оливье Грегуар
источник
1
Не могли бы вы использовать -~dвместо (d+1)?
Арно
Да, спасибо! У меня были те в моей первой версии, затем я поиграл с идеей использовать chars вместо этого, и когда я вернулся к своей первой версии, я полностью забыл это снова. ;)
Оливье Грегуар
2

VBA (Excel), с удивительными 322 244 байтами

Да, и я люблю шестнадцатеричное. (Там пока нет шрифта сарказма, поэтому я сейчас использую курсив) Я буду добавлять комментарии, если кто-то захочет, но я думаю, что это само за себя. Гольф случился.

Sub b(s)
For Each c In Split(Replace(s,"D",""),"B")
c=Application.Match(c,Array("I","A","O","U","II","IA","IO","IU","AI","AA","AO","AU","IO","OA","OO","OU"),0)
If Not IsError(c)Then d=d &c-1:If Len(d)=2Then e=e &Chr("&h"&d):d=""
Next
Debug.?e
End Sub

С комментариями:

Sub b(s)
  'For each string between B's (Remove the D's first)
  For Each c In Split(Replace(s,"D",""),"B")
    'Get the index of the element in the array (Can cause error if empty)
    c = Application.Match (c,Array("I","A","O","U","II","IA","IO","IU","AI","AA","AO","AU","IO","OA","OO","OU"),0)
    'If c isn't an error
    If Not IsError(c) Then
      'Subtract 1 from c and add to d  --> Array index is 1 based
      d = d & (c-1)
      'If d is 2 characters
      If Len(d)=2 Then
        'Add the char from the hex value of d   --> &h forces Hex
        e = e & Chr("&h" & d)
        'Reset d
        d = ""
      End if
    End if
  Next
  'Print the output
  Debug.Print e
End Sub

Я действительно пытался вставить это в VB Immediate Window, но оно, похоже, не сработало ... это сократило бы 11 символов, я думаю. Я также хотел поместить оператор Match в скобки, но это каждый раз вызывает ошибку без вывода сообщений. Помощь приветствуется: D

seadoggie01
источник
Добро пожаловать в PPCG!
Арно
Спасибо! Я был здесь некоторое время, просто никогда не мог ничего публиковать :)
seadoggie01
Array("I","A","O","U","II","IA","IO","IU","AI","AA","AO","AU","IO","OA","OO","OU")-> Split("I A O U II IA IO IU AI AA AO AU IO OA OO OU")и Not IsError(c)->IsError(c)=0
Тейлор Скотт
1

Haxe , 228 байт

s->{var l=(u,i)->((i=u.charCodeAt(i))&8==8?0:1)|((i>>1)&2),p=s.split("B"),i=-1,q,o;[while((i+=2)<p.length)String.fromCharCode(l(q=p[i+1],o=q.length-1)+((o>1?l(q,0)+1:0)+((l(q=p[i],o=q.length-1)+o*(l(q,0)+1)*2)*4))*4)].join("");}

Не самое лучшее, стандартные имена библиотечных функций слишком велики :(

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

Аурел Белый
источник
1

Pyth, 35 байтов

mCid16cm+4imx"IAOU"k.[N2d4tc-Q\D\B2

Выходы в виде списка символов.
Попробуй здесь

объяснение

mCid16cm+4imx"IAOU"k.[N2d4tc-Q\D\B2
                          tc-Q\D\B   Get the vowels associated with each digit.
       m            .[N2d            Pad with a quote.
           mx"IAOU"k                 Find each character's position.
        +4i              4           Convert to base 4 and add 4.
      c                           2  Split the result into pairs.
mCid16                               Get the associated ASCII characters.
мнемонический
источник
1

Древесный уголь , 36 байт

FS≡ιB⊞υ⁰D⊞υ×⁴⊕⊟υ⊞υ⁺⊟υ⊕⌕AOUι⭆⪪υ²℅↨ι¹⁶

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

FS≡ι

Зацикливайтесь на каждом вводимом символе и переключайтесь.

B⊞υ⁰

Если это, Bто нажмите 0на предварительно определенный пустой список.

D⊞υ×⁴⊕⊟υ

Если это, Dтогда вытолкните последнее значение, увеличьте его, умножьте на 4и снова нажмите.

⊞υ⁺⊟υ⊕⌕AOUι

В противном случае найдите индекс в строке AOU, увеличьте его и добавьте к последнему значению.

⭆⪪υ²℅↨ι¹⁶

Разбейте список на пары значений, декодируйте как основание 16, преобразуйте в ASCII и неявно напечатайте.

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

Чисто , 145 134 байта

import StdEnv                   // import things like addition and comparison
?c=(743rem(toInt c))/16         // magical formula that maps ['IAOU'] to [0,1,2,3]
@[_,b,'D',d:t]=[?d+ ?b*4+4: @t] // convert B#D#
@[_,b:t]=[?b: @t]               // convert "B#"
@_=[]                           // handle base case
$[u,v:t]=[u<<4+v: $t]           // turn the digits into 2-digit numbers
$e=e                            // handle base case

toString o$o@                   // convert to string (make numbers (make digits))

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

Разъяснение:

Οurous
источник
1

PHP, 119 байт

foreach(explode(B,$argn)as$i=>$m)($v=$v*16+4*strpos(XIAO,$m[-3]?:B)+strpos(IAOU,$m[-1]?:B))?$i&1||print chr($v&=255):0;

предполагает ввод заглавных букв. Запустите как трубу с -nRили попробуйте онлайн .

требует PHP 7.1
для более старого PHP, используйте substr($m,-3,1)и substr($m,-1)вместо $m[-<x>](+16 байт);
для младшего PHP, положить B, XIAOи IAOUв кавычках , чтобы избежать предупреждений (+10 байт).

Titus
источник
0

PHP, 163 байта

function f($s){$t=[I=>0,A=>1,O=>2,U=>3];for($q=explode(B,$s);$a=&$q[++$i];){$a=($a[1]?($t[$a[0]]+1)*4:0)+$t[$a[2*($a[1]==D)]];$i%2?:print(chr(($q[$i-1]<<4)+$a));}}

Вызовите f(string $s)с соответствующей строкой символов, закодированных в bibabobu, и она напечатает декодированную строку.

Электра
источник
0

Python 3, 199 байт

import re
lambda s:''.join(eval(re.sub(r'(\d+), (\d+)',r'chr(16*\1+\2)',str(eval(s.replace('I','1').replace('A','2').replace('O','3').replace('U','4').replace('B',',-1+').replace('D','*4+')[1:])))))

Не самый короткий, но без петель.

user0815
источник