Brainf ** k para Unário e Traseiro

15

Uma linguagem que é muito útil em fontes restritas e outros desafios é o Unary , um derivado do cérebro em que os programas são escritos com apenas um caractere. Seu trabalho é escrever um programa para converter programas de inconsciente para unário e um programa para fazer o oposto, ambos os programas no mesmo idioma. Sua pontuação será a soma dos comprimentos dos dois programas.

Como você converte de brainfuck para unário?

  • Primeiro, converta seu código brainfuck em binário, de acordo com esta tabela:

Tabela de conversão

  • Agora concatene o código em um número binário gigante na ordem do código.
  • Coloque um prefixo 1a na sequência para garantir um número binário exclusivo.
  • Converta de um número binário para um número unário usando qualquer caractere.
  • Ex: +.seria 000000000000000000000000000000000000000000000000000000000000000000000000000000000000(84 zeros).

Brainfuck -> Especificações Unárias

  • Como os programas resultantes serão impossivelmente grandes, imprima não o programa real, mas apenas a duração do programa resultante.
  • Pegue o programa brainfuck como uma string através de stdin, function arg, etc e produza o comprimento.
  • O programa sempre será válido e terá apenas esses 8 caracteres.

Unário -> Especificações Brainfuck

  • Você terá que implementar o inverso do algoritmo acima.
  • Novamente, devido aos grandes tamanhos em questão, a entrada será um número que descreve o comprimento do código Unário.
  • As mesmas regras de E / S de sempre.
  • O programa sempre será válido e terá apenas esses 8 caracteres.

Casos de teste

  • Olá Mundo - ++++++[>++++++++++++<-]>.>++++++++++[>++++++++++<-]>+.+++++++..+++.>++++[>+++++++++++<-]>.<+++[>----<-]>.<<<<<+++[>+++++<-]>.>>.+++.------.--------.>>+.=239234107117088762456728667968602154633390994619022073954825877681363348343524058579165785448174718768772358485472231582844556848101441556
  • Fibonacci - ++++++++++++++++++++++++++++++++++++++++++++>++++++++++++++++++++++++++++++++>++++++++++++++++>>+<<[>>>>++++++++++<<[->+>-[>+>>]>[+[-<+>]>+>>]<<<<<<]>[<+>-]>[-]>>>++++++++++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>>[++++++++++++++++++++++++++++++++++++++++++++++++.[-]]<[++++++++++++++++++++++++++++++++++++++++++++++++.[-]]<<<++++++++++++++++++++++++++++++++++++++++++++++++.[-]<<<<<<<.>.>>[>>+<<-]>[>+<<+>-]>[<+>-]<<<-]<<++...=13067995222095367150854793937817629722033205198624522624687536186118993888926522550140580142585590431635487113180955099384652678100247403485397450658564826143160529351955621991895221530908461364045400531236124980271740502887704217664044858614821622360156740992393765239123681327824577149595724956207165558106099868913919959549896553103116795519592552089266360725543244154867904980260

Isso é código-golfe, e a pontuação mais baixa em bytes ganha!

Alguém quer uma solução em Unary? ; P

Maltysen
fonte
7
Um título mais apropriado provavelmente seria "Brainfuck to Golunar and Back"
Sp3000
@ Sp3000: bom argumento, mas acho que a maioria das pessoas nunca ouviu falar dele (inclusive eu).
Maltysen
@ Maltysen Eu não acho que seus casos de teste estão corretos. Por exemplo, os dígitos iniciais do primeiro número em binário são 10101010101010, quando deveriam estar1010010010010
isaacg
@isaacg desculpe, tirei eles de um site que estava usando um mecanismo de tradução diferente, será corrigido.
Maltysen 07/07/2015
1
Podemos convertê-los em um programa que não é exatamente igual, mas faz exatamente a mesma coisa?
precisa saber é o seguinte

Respostas:

12

Pitão, 17 + 17 = 34 bytes

BF -> Unário, 17 bytes

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

Unário -> BF, 17 bytes

s@L"><+-.,[]"tjQ8
isaacg
fonte
7

cérebro , 563 335 318 316 296 + 529 373 366 336 = 632 bytes

Como obviamente faltava uma solução em um idioma relacionado, aqui está a solução no brainfuck e no Golunar. Não consegui postar uma resposta em unário, porque isso precisaria de alguns fantásticos bilhões de vezes mais memória do que existem átomos no universo ^^

A rotina "back" não verifica se o código Golunar / Unário é válido. Se a contagem de bits mod 3! = 1, ocorrerá um loop sem fim imprimindo muitos ">" s.

Agradeço ao Nitrodon por me ajudar a obter abaixo de 300 caracteres para o código unificado do bf

brainfuck para unário

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

Experimente online!

e volta

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

Experimente online!

Golunar / unárias-dígitos, 509 303 288 286 268 + 478 337 331 304 = 572 bytes

brainfuck para unário

2845581296974449674357817038179762273623136917867627972159702240227366875240878616687779429553529795902322625321040063298921498529640547483869509829184440577052825434462245755576011912505085065586076069824710351537537205287083477698633592357950165322060367940923703887

e volta

3775574485023133646619269732540391678811443648964274086227256847322821618228135493733703990523803451383315165001915937932498966394771849173263120467073642011339214182483748816052890450078070151307011943625602391238338941712116968736593594971620990210178757280976709140113340322124688909388916094040773207

Códigos-fonte

brainfuck para unário

[
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
]

e volta

[
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
]
Dorian
fonte
1
Ao converter para Unary, você pode subtrair os 60 diretamente da célula de entrada em vez de colocá-los em sua própria célula primeiro, economizando 16 bytes. Outros 4 bytes podem ser salvos não criando os 45 imediatamente (compactando ainda mais o layout da fita). Além disso, é um pouco mais golfista verificar os bytes de entrada na ordem 01325467.
Nitrodon
A alternativa que eu quis dizer foi criar os 45 enquanto você adicionava 15 à célula de entrada.
Nitrodon
6

Python 2, 80 79 63 55 + 86 64 = 119 bytes

Agradeço ao Sp3000 por suas inúmeras sugestões, economizando muitos bytes.

Brainfuck para Unário, 78 77 61 53 + 2 = 55 bytes

Adicionado dois bytes para contabilizar "s" circundantes na entrada.

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

Unário para Brainfuck, 86 64 bytes

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

Confira em ideone aqui.

Kade
fonte
3

CJam, 35 bytes

Brainfuck para Unário, 17 bytes

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

Experimente online.

Como funciona

 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.

Unário para Brainfuck, 18 bytes

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

Experimente online.

Como funciona

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
fonte
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-

Saída de teste:

$ echo "++++++[>++++++++++++<-]>.>++++++++++[>++++++++++<-]>+.+++++++..+++.>++++[>+++++++++++<-]>.<+++[>----<-]>.<<<<<+++[>+++++<-]>.>>.+++.------.--------.>>+." | ./b2u.sh
239234206933197750788456456928845900180965531636435002144714670872282710109774487453364223333807054152602699434658684117337034763550216789 
$ echo 239234206933197750788456456928845900180965531636435002144714670872282710109774487453364223333807054152602699434658684117337034763550216789 | ./u2b.sh
++++++[>++++++++++++<-[>.>++++++++++[>++++++++++<-[>+.+++++++..+++.>++++[>+++++++++++<-[>.<+++[>----<-[>.<<<<<+++[>+++++<-[>.>>.+++.------.--------.>>+.
$
Trauma Digital
fonte
1
tr -dc 0-9 (e no golfe código que você pode assumir que ?é bom unescaped)
izabera
1

Japt , 13 + 13 = 26 bytes

Brainfuck Faz Unário

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

Tente!

Explicação:

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

Unário para Brainfuck

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

Tente!

Explicação:

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

Notas

Não consigo encontrar a meta post, mas se minha memória servir corretamente, as respostas poderão limitar a E / S a números que seu idioma possa suportar, desde que eles implementem um algoritmo que funcionaria se o idioma começar a suportar números maiores. Esse é o caso aqui, a capacidade de Japt de tratar uma string como "base nusando esses ncaracteres para os dígitos" pode usar apenas o numbertipo de dados do outro lado da operação e, portanto, os casos de teste não serão executados com êxito; a saída do primeiro programa e o tipo de dados de entrada do segundo programa coagirão o número a um que pode ser representado como a , em vez de usar o número real. Para números que podem ser perfeitamente representados pelos números de Japt desses programas funcionará conforme desejado e, se o tipo de dados for alterado para suportar números maiores, esses programas também começarão a suportar esses números.numbernumbernumber

Kamil Drakari
fonte
0

05AB1E , 33 (17 + 16) bytes

Brainfuck para Unary-length:

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

Experimente online ou verifique todos os casos de teste .

Explicação:

"><+-.,[]"           # 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)

Comprimento unário para Brainfuck

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

Experimente online ou verifique todos os casos de teste .

Explicação:

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
fonte
0

Dardo , 77 + 142 = 219 bytes

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);

Experimente online!

Elcan
fonte
0

C (gcc) , 254 bytes

#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));}

Experimente online!

Determina qual direção seguir com base em input ( i), armazena o resultado no buffer passado ( o). Observe que alguns compiladores permitem salvar 4 bytes com base na ordem definida pelo implementação do o ++. Nesses casos, a solução fornecida truncará um caractere extra da conversão Unary-> BF e os o[1]todos poderão ser substituídos por *opara recuperar o comportamento.

LambdaBeta
fonte
O idioma deve ser "C (gcc) + GMP" aqui
somente ASCII
Além disso, isso é mais curto como um programa que como 2? E também recomendo colocar #include <string.h>o rodapé em vez do cabeçalho para mostrar que funciona sem essa importação. C ++ também não seria mais curto devido à sobrecarga do operador? : P
somente ASCII
Também não é importante, mas eu mudaria tudo sipara uitalvez
apenas
*i>47&*i<58-> *i%48<10?
somente ASCII
também mpz_init_set_str->mpz_set_str
somente ASCII