Brainf ** k do Unary and Back

15

Językiem, który jest bardzo przydatny w ograniczonym źródle i innych tego typu wyzwaniach, jest Unary , pochodna od pieprzenia mózgu, w której programy są napisane tylko jedną postacią. Twoim zadaniem jest napisanie programu do konwersji programów z pieprzenia mózgu na jednoargumentowy oraz programu odwrotnego do tego, oba programy w tym samym języku. Twój wynik będzie sumą długości dwóch programów.

Jak przekonwertować z pieprzenia mózgu na jednoosobowe?

  • Najpierw przekonwertuj kod pierdolony w binarny zgodnie z poniższą tabelą:

Tabela konwersji

  • Teraz połącz kod w jeden gigantyczny numer binarny w kolejności kodu.
  • Wstaw 1ciąg a do ciągu, aby zapewnić unikalną liczbę binarną.
  • Konwertuj z liczby binarnej na liczbę jednoargumentową za pomocą dowolnego znaku.
  • Np .: +.byłoby 000000000000000000000000000000000000000000000000000000000000000000000000000000000000(84 zer).

Brainfuck -> Unary Specs

  • Ponieważ powstałe programy będą niemożliwie ogromne, nie drukuj rzeczywistego programu, a jedynie długość wynikowego programu.
  • Weź program pieprzenia mózgu jako ciąg znaków przez stdin, funkcję arg itp. I wypisz długość.
  • Program zawsze będzie ważny i będzie zawierał tylko 8 znaków.

Unary -> Brainfuck Specs

  • Będziesz musiał zaimplementować odwrotność powyższego algorytmu.
  • Ponownie, ze względu na ogromne rozmiary, o których mowa, dane wejściowe będą liczbą opisującą długość kodu Unary.
  • Te same zasady we / wy jak zawsze.
  • Program zawsze będzie ważny i będzie zawierał tylko 8 znaków.

Przypadki testowe

  • Hello World - ++++++[>++++++++++++<-]>.>++++++++++[>++++++++++<-]>+.+++++++..+++.>++++[>+++++++++++<-]>.<+++[>----<-]>.<<<<<+++[>+++++<-]>.>>.+++.------.--------.>>+.=239234107117088762456728667968602154633390994619022073954825877681363348343524058579165785448174718768772358485472231582844556848101441556
  • Fibonacciego - ++++++++++++++++++++++++++++++++++++++++++++>++++++++++++++++++++++++++++++++>++++++++++++++++>>+<<[>>>>++++++++++<<[->+>-[>+>>]>[+[-<+>]>+>>]<<<<<<]>[<+>-]>[-]>>>++++++++++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>>[++++++++++++++++++++++++++++++++++++++++++++++++.[-]]<[++++++++++++++++++++++++++++++++++++++++++++++++.[-]]<<<++++++++++++++++++++++++++++++++++++++++++++++++.[-]<<<<<<<.>.>>[>>+<<-]>[>+<<+>-]>[<+>-]<<<-]<<++...=13067995222095367150854793937817629722033205198624522624687536186118993888926522550140580142585590431635487113180955099384652678100247403485397450658564826143160529351955621991895221530908461364045400531236124980271740502887704217664044858614821622360156740992393765239123681327824577149595724956207165558106099868913919959549896553103116795519592552089266360725543244154867904980260

To jest golf golfowy, więc wygrywa najniższy wynik w bajtach!

Ktoś czeka na rozwiązanie w Unary? ; P

Maltysen
źródło
7
Bardziej odpowiednim tytułem byłby prawdopodobnie „Brainfuck to Golunar and Back”
Sp3000,
@ Sp3000 dobry punkt, ale myślę, że większość ludzi tak naprawdę nie słyszała o tym (ja też).
Maltysen
@Maltysen Nie sądzę, aby twoje przypadki testowe były poprawne. Na przykład, wiodącymi cyframi pierwszej liczby binarnej są 10101010101010, kiedy powinny być1010010010010
isaacg
@isaacg przepraszam, usunąłem je ze strony internetowej, która używała innego mechanizmu tłumaczenia, to naprawi.
Maltysen
1
Czy możemy przekonwertować je na program, który nie jest dokładnie równy, ale robi dokładnie to samo?
jimmy23013,

Odpowiedzi:

12

Pyth, 17 + 17 = 34 bajty

BF -> Unary, 17 bajtów

i+1xL"><+-.,[]"z8

Unary -> BF, 17 bajtów

s@L"><+-.,[]"tjQ8
isaacg
źródło
7

pieprzenie mózgu , 563 335 318 316 296 + 529 373 366 336 = 632 bajtów

Ponieważ w oczywisty sposób brakowało rozwiązania w pokrewnym języku, oto rozwiązanie w pieprzeniu mózgu i Golunar. Nie mogłem opublikować odpowiedzi jednoznacznie, ponieważ wymagałoby to kilka fantastycznych razy więcej pamięci niż atomów we wszechświecie ^^

Procedura „wstecz” nie sprawdza, czy kod Golunar / Unary jest prawidłowy. Jeśli liczba bitów mod 3! = 1, to przejdzie do nieskończonej pętli drukującej wiele „>”.

Dzięki Nitrodon za pomoc w uzyskaniu poniżej 300 znaków dla bf do unarnego kodu

pieprzyć mózg do jednego

->+>>>>,[>+++[>+++++<-]>[<+<---->>-]<<--[<+>++[<<+>>>[<+>-]<[<->++[<<<+>->+>-[<->--[<<+>>>+++++++++[<----->-]<[<+>--]]]]]]]>[-]>>,]<<<<+[<+]>[>]->+[<]>+[[->+]->[->[<++>-[<++>-[<++>-[<++>-[<-------->>[-]++<-[<++>-]]]]]]<[>+<-]+>>]<<[<<]>[<]>-[[->+]->>+<[<<]>[<]]>+]>[>>]<<[+++++++[>++++++<-]>.<<<]

Wypróbuj online!

i z powrotem

->>,[<++++++[>--------<-]+>>>>>>,]>->-<<<+[-<+]>[[->[->+<[->->+>]<[<<<]>]<+>>>[-<<+>>]<[>>>>++++++++++<<<<-]>>>]>>>+[->+]>-<+[-<+]-<[>>+[->+]-<++[-<+]-<[-]]<<<<<<[<<<<<]>>>>>>[<<]<[->>>]>>]>>>+[->+]<-<+[-[<++>-]<[<++>-]>+++[>+++++<-]>[<+<++++>>-]<<++<[>--<-[>>[<->-]<--<-[>++<-[>+<-[>--<-[>+[>+<-]>[<++>-]<+<-[>++<-]]]]]]]>.[-]>[-]<<<+]

Wypróbuj online!

Golunar / unary-digits, 509 303 288 286 268 + 478 337 331 304 = 572 bajtów

pieprzyć mózg do jednego

2845581296974449674357817038179762273623136917867627972159702240227366875240878616687779429553529795902322625321040063298921498529640547483869509829184440577052825434462245755576011912505085065586076069824710351537537205287083477698633592357950165322060367940923703887

i z powrotem

3775574485023133646619269732540391678811443648964274086227256847322821618228135493733703990523803451383315165001915937932498966394771849173263120467073642011339214182483748816052890450078070151307011943625602391238338941712116968736593594971620990210178757280976709140113340322124688909388916094040773207

Kody źródłowe

pieprzyć mózg do jednego

[
unary:
><+-.,[]
01234567

62 > 62
60 < -2
45 - 15
43 + 2
44 , 1
46 . 2
91 [ 45
93 ] 2

tape (while reading input): Left tape end marker/LTE, [binary data], input, 15, (15 multiplicator)
tape (while base conversion): LTE, [binary data], Value Start/VS, [decimal digits]

decimal digits: digit used/DU, value
]

-                       set LTE
>+                      set leading 1
>>>>,[                  while input
  >+++[>+++++<-]        set 15 (multiplicator)
  >[<+<---->>-]         set 15 and decrease input by 60

                    check for greater than
                        set current bits = 000 (greater than)
  <<--[                 if input != 62 try next char

                    check for less than
  <+>                   set current bits = 001 (less than)
  ++[                   if input != 60 try next char

                    check for minus
  <<+>>                 set current bits = 011 (minus)
  >[<+>-]<[             if input != 45 try next char

                    check for plus
  <->                   set current bits = 010 (plus)
  ++[                   if input != 43 try next char

                    check for comma
  <<<+>->+>             set current bits = 101 (comma)
  -[                    if input != 44 try next char

                    check for dot
  <->                   set current bits = 100 (dot)
  --[                   if input != 46 try next char

                    check for left bracket
  <<+>>                set current bits = 110 (left bracket)
  >+++++++++[<----->-]<[   if input != 91 go to next char


                    use right bracket
  <+>                   set current bits = 111 (right bracket)
  --                    decrease input by 2 / should be 0 now

  ]]]]]]]               close all ifs
  >[-]>>                delete 15 if still existant
  ,                     input next character
]
<<<<+[<+]>[>]           add one to each bit and delete LTE (for shorter search routine)

                    Start of binary to decimal routine

-                       set value start marker (VS)
>+                      set digit used marker (DU)
[<]                     go to LTE

                    binary to decimal loop: use "double and add algorithm" to calculate the digits of the decimal value
>+[                     if not on VS then
  [->+]-                restore current bit value and go to VS
  >                     go to first DU
  [                     digit doubling loop
    ->                  remove DU and go to corresponding digit
    [
      <++>-             decrement current value and add 2 to temp value four times
      [
        <++>-
        [
          <++>-
          [
            <++>-
            [                   if value was greater than 4 then
              <---- ----        subtract 8 from temp
              >>[-]++           set next digit temp = 2 (DU plus 1)
              <-                decrement current digit
              [<++>-]           set temp = remaining value * 2
            ]
          ]
        ]
      ]
    ]
    <[>+<-]             set current digit = temp
    +                   set DU
    >>                  go to next digit
  ]                     end of digit doubling loop
  <<[<<]>[<]>           go to current bit
  -[                    if bit is 2 (used plus 1)
    [->+]-              delete bit and go to VS
    >>+                 increment least significant digit
    <[<<]>[<]           go to current bit
  ]
  >+                    if not on VS then repeat  
]                   end of binary to decimal loop

>[>>]<                  go to most significant digit
<[                  printing loop: for each DU print corresponding value
  +++++++[>++++++<-]>.  add 48 to value (ASCII 0) and print
  <<<                   go to next DU
]

i z powrotem

[
tape: left tape end marker/LTE(-1), [digits], digit end marker/DE(0), carry, SB(-1), [binary data], 60, 15
digits: digit used marker/DU(1), digit, remainder, solution, 0
        else]                                    [exit else, exit if
binary data: value (, else, exit if, exit else)
]

                    input decimal value
->>                     set LTE
,[                      while input
  <++++++[>--------<-]  decrease input by 48
  +                     set DU
  >>>>> >,              input next digit
]
>->-                    set start of bits (SB) and first CCB
<<<+[-<+]>              delete LTE and go to first DU

                    division loop: calculate the remainders of the input divided by 2 repeatedly to get the (inverted) bits
[
                        divide each digit by 2
  [                     for each DU
    -                   delete DU (for exit if)
    >                   go to digit
    [->+<               dec digit / set remainder
      [->->+>]          if digit gt 0: dec digit / del remainder / inc solution / goto 0
                        pointer: (value(0) remainder is set) or (0 solution gt 1)
      <[<<<]            go to DU
      >                 go to digit
    ]
    <+                  set DU
    >>>[-<<+>>]         move solution to digit
    <[                  if remainder
      >>>>              go to next digit
      +++++ +++++       add 10 to digit/carry
      <<<<-             go back and delete remainder
    ]
    >>>                 go to next DU
  ]

                    append new bit
  >>>+[->+]             go to and delete CCB
  >-                    set new CCB
  <+[-<+]-<             go to carry
  [                     if carry
    >>+[->+]-<+         set last bit
    +[-<+]-<[-]         go to and clear carry
  ]

                    check if first digit became 0 / neccessary to check if value has been completely processed
  < <<<<<[<<<<<]>>>>>   go to first DU
  >[                    if digit gt 0
    <<                  go to exit if
  ]<[                   else
    -                   delete DU
    >>>                 go to exit else of next digit
  ]
  >>                    go to DU / DE if all digits processed
]                   end of division loop

                    decode binary values
>>>+[->+]               go to and delete CCB (after last bit)
<-                      delete leading 1
<                       go to first bit


                    Start of bit decoder
[
unary:
><+-.,[]
01234567

62 > 62
60 < -2
43 + -17
45 - 2
46 . 1
44 , -2
91 [ 47
93 ] 2

tape: start of bytes marker/SB(-1), [binary data], 60(print char/PC), 15
]

+[-                     while not SB

                    Set least significant to octal value of three bits
  [<++>-]               if first bit set add 2 to second bit
  <[<++>-]              for each second bit add 2 to third bit

  >+++[>+++++<-]        multiplier 15
  >[<+<++++>>-]         setup table 60 15

                    run through the 8 possibilities

                    0 greater than
  <<++                  set PC = 62 (greater than)
  <[                    if value gt 0 go to next char

                    1 less than
  >--                   set PC = 60 (less than)
  <-[                   if value gt 1 go to next char

                    2 plus
  >>[<->-]<--           set PC = 43 (plus)
  <-[                   if value gt 1 go to next char

                    3 minus
  >++                   set PC = 45 (minus)
  <-[                   if value gt 1 go to next char

                    4 dot
  >+                    set PC = 46 (dot)
  <-[                   if value gt 1 go to next char

                    5 comma
  >--                   set PC = 44 (comma)
  <-[                   if value gt 1 go to next char

                    6 left bracket
  >+[>+<-]>[<++>-]<+    set PC = 91 (left bracket) (inc (45) / double (90) / inc (91))
  <-[                   if value gt 1 go to next char

                    7 right bracket
  >++                   set PC = 93 (right bracket)
  <-                    decrease value the last time to exit if

  ]]]]]]]               close all ifs
  >.[-]                 print char and clear PC
  >[-]                  clear 15 if still existant

  <<<                   go to next bits
  +                     repeat if not SB
]
dorycki
źródło
1
Konwertując na Unary, możesz odjąć 60 bezpośrednio z komórki wejściowej zamiast umieszczać ją najpierw w jej własnej komórce, oszczędzając 16 bajtów. Kolejne 4 bajty można zapisać, nie tworząc od razu 45 (tym samym jeszcze bardziej zagęszczając układ taśmy). Ponadto nieco golfistą jest sprawdzanie bajtów wejściowych w kolejności 01325467.
Nitrodon
Alternatywą miałem na myśli utworzenie 45, podczas gdy dodajesz 15 do komórki wejściowej.
Nitrodon
6

Python 2, 80 79 63 55 + 86 64 = 119 bajtów

Podziękowania dla Sp3000 za jego liczne sugestie, pozwalające zaoszczędzić wiele bajtów.

Brainfuck to Unary, 78 77 61 53 + 2 = 55 bajtów

Dodano dwa bajty do uwzględnienia otaczających danych na wejściu.

print int(`[1]+map("><+-.,[]".find,input())`[1::3],8)

Unary to Brainfuck, 86 64 bajtów

print''.join("><+-.,[]"[int(i)]for i in oct(input())[2:]if'L'>i)

Sprawdź to na ideone tutaj.

Kade
źródło
3

CJam, 35 bajtów

Brainfuck to Unary, 17 bajtów

1r"><+-.,[]"f#+8b

Wypróbuj online.

Jak to działa

 r                e# Read a whitespace-separated token from STDIN.
            f     e# For each character in the token:
  "><+-.,[]" #    e#     Find its index in this string.
1             +   e# Prepend a 1 to the results.
               8b e# Convert to integer, using base 8 conversion.

Unary to Brainfuck, 18 bajtów

ri8b"><+-.,[]"f=1>

Wypróbuj online.

Jak to działa

r                  e# Read a whitespace separated token from STDIN.
 i                 e# Interpret as integer.
  8b               e# Convert to array using base 8 conversion.
              f    e# For each digit:
    "><+-.,[]" =   e#     Select the corresponding character from the string.
                1> e# Discard the first character.
Dennis
źródło
2

Bash + coreutils, 39 + 47 = 86

b2u.sh:

dc -e8i1`tr '<>+-.,[]' 0-7`p|tr -dc 0-9

u2b.sh:

dc -e8o?p|tr -dc 0-9|tr 0-7 '<>+-.,[]'|cut -c2-

Wyjście testowe:

$ echo "++++++[>++++++++++++<-]>.>++++++++++[>++++++++++<-]>+.+++++++..+++.>++++[>+++++++++++<-]>.<+++[>----<-]>.<<<<<+++[>+++++<-]>.>>.+++.------.--------.>>+." | ./b2u.sh
239234206933197750788456456928845900180965531636435002144714670872282710109774487453364223333807054152602699434658684117337034763550216789 
$ echo 239234206933197750788456456928845900180965531636435002144714670872282710109774487453364223333807054152602699434658684117337034763550216789 | ./u2b.sh
++++++[>++++++++++++<-[>.>++++++++++[>++++++++++<-[>+.+++++++..+++.>++++[>+++++++++++<-[>.<+++[>----<-[>.<<<<<+++[>+++++<-[>.>>.+++.------.--------.>>+.
$
Cyfrowa trauma
źródło
1
tr -dc 0-9 (a w golfie kodowym można założyć, że ?jest w porządku bez
szwów
1

Japt , 13 + 13 = 26 bajtów

Brainfuck to Unary

i< n"><+-.,[]

Spróbuj!

Wyjaśnienie:

i<               :Insert a "<" at the start of the string (representing 1)
   n             :Convert string to decimal by interpreting as:
    "><+-.,[]    : A base 8 number represented by the 8 characters of BF

Unary dla Brainfuck

s"><+-.,[]" Å

Spróbuj!

Wyjaśnienie:

s                :Convert decimal to string representation of:
 "><+-.,[]"      : Base 8 using the BF characters to represent the 8 digits
            Å    :Remove the extra "<" at the front

Notatki

Nie mogę znaleźć meta postu, ale jeśli moja pamięć służy poprawnie, odpowiedzi mogą ograniczać operacje we / wy do liczb obsługiwanych przez ich język, o ile implementują algorytm, który działałby, gdyby język zaczął obsługiwać większe liczby. Tak jest w tym przypadku, ponieważ zdolność Japt do traktowania łańcucha jako „bazy nprzy użyciu tych nznaków dla cyfr” może wykorzystywać tylko numbertyp danych po drugiej stronie operacji, a zatem przypadki testowe nie będą działać poprawnie; wyjście pierwszego programu i wejście drugiego programie zmusić ilość jednego, który może być przedstawiony w postaci number, zamiast rzeczywistego numeru. Dla liczb, które mogą być doskonale reprezentowane przez Japt'snumbertyp danych te programy będą działać zgodnie z potrzebami, a jeśli numbertyp danych zmieni się, aby obsługiwać większe liczby, wówczas te programy również zaczną obsługiwać te liczby.

Kamil Drakari
źródło
0

05AB1E , 33 (17 + 16) bajtów

Brainfuck do Unary-length:

"><+-.,[]"sSk1š8β

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

"><+-.,[]"           # Push string "><+-.,[]"
          s          # Swap to take the (implicit) input
           S         # Convert it to a list of characters
            k        # Check for each the index in the string
             1š      # Prepend a 1 to the list of indices
               8β    # Convert the list to Base-8 (and output implicitly)

Unary-length do Brainfuck

8в¦"><+-.,[]"sèJ

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

8в                  # Convert the (implicit) input-list from Base-8 to Base-10
  ¦                 # Remove the first 1
   "><+-.,[]"       # Push string "><+-.,[]"
             s      # Swap the list and string on the stack
              è     # Index each integer into this string
               J    # Join everything together (and output implicitly)
Kevin Cruijssen
źródło
0

Dart , 77 + 142 = 219 bajtów

f(s)=>BigInt.parse('1'+s.split('').map('><+-.,[]'.indexOf).join(''),radix:8);

F(n)=>BigInt.parse(n).toRadixString(8).split('').map((s)=>'><+-.,[]'.substring(int.parse(s),int.parse(s)+1)).join('').toString().substring(1);

Wypróbuj online!

Elcan
źródło
0

C (gcc) , 254 bajty

#include"gmp.h"
f(i,o)char*i,*o;{mpz_t l;char*c="><+-.,[]";if(*i>47&*i<58)for(mpz_init_set_str(l,i,0),mpz_get_str(o,8,l);*o;*o++=o[1]?c[o[1]-48]:0);else for(mpz_init_set_si(l,1);mpz_get_str(o,10,l),*i;mpz_mul_si(l,l,8),mpz_add_ui(l,l,strchr(c,*i++)-c));}

Wypróbuj online!

Określa kierunek, w którym należy podążać na podstawie input ( i), zapisuje wynik w przekazywanym buforze ( o). Zauważ, że niektóre kompilatory pozwalają na zapis 4 bajtów w oparciu o zdefiniowaną w implementacji kolejność o ++. W takich przypadkach dostarczone rozwiązanie obetnie dodatkowy znak z konwersji Unary-> BF i o[1]wszystkie można zastąpić, *oaby przywrócić zachowanie.

LambdaBeta
źródło
Językiem powinien być tutaj „C (gcc) + GMP”
tylko ASCII,
Czy ten program jest krótszy niż jeden program niż 2? Polecam także wstawienie #include <string.h>stopki zamiast nagłówka, aby pokazać, że działa bez tego importu. Czy również C ++ nie byłby krótszy z powodu przeciążenia operatora? : P
tylko ASCII,
Również nieważne, ale zmieniam każdy sina uimoże
tylko ASCII,
*i>47&*i<58-> *i%48<10?
Tylko ASCII,
także mpz_init_set_str->mpz_set_str
tylko ASCII,