ब्रेनफ ** केरी टू यूनरी एंड बैक

Question

एक भाषा है कि प्रतिबंधित स्रोत और अन्य ऐसी चुनौतियों में बहुत उपयोगी है है एकल , एक brainfuck व्युत्पन्न जिसमें कार्यक्रमों में केवल एक ही चरित्र के साथ में लिखा जाता है। आपका काम एक कार्यक्रम को लिखने के लिए ब्रेनफॉक से यूनरी में बदलने का कार्यक्रम है और एक ही भाषा में दोनों कार्यक्रमों के विपरीत करने का कार्यक्रम है। आपका स्कोर दो कार्यक्रमों की लंबाई का योग होगा।

आप ब्रेनफॉक से यूनरी में कैसे परिवर्तित होते हैं?

• पहले आप इस तालिका के अनुसार ब्रेनफक कोड को बाइनरी में परिवर्तित करें:

• अब कोड के क्रम में एक विशाल द्विआधारी संख्या में कोड को सम्मिलित करें।
• 1एक अद्वितीय बाइनरी नंबर सुनिश्चित करने के लिए स्ट्रिंग को प्रीपेंड करें ।
• किसी भी वर्ण का उपयोग करके एक बाइनरी नंबर से एक यूनिरी नंबर में परिवर्तित करें।
• उदाहरण के लिए: +.होगा 000000000000000000000000000000000000000000000000000000000000000000000000000000000000(84 शून्य)।

ब्रेनफक -> यूनरी स्पेक्स

• चूंकि परिणामी कार्यक्रम असंभव रूप से विशाल होंगे, वास्तविक कार्यक्रम नहीं बल्कि परिणामी कार्यक्रम की लंबाई केवल प्रिंट करें।
• स्टड, फंक्शन arg आदि के माध्यम से ब्रेनफक प्रोग्राम को एक स्ट्रिंग के रूप में लें और लंबाई को आउटपुट करें।
• कार्यक्रम हमेशा मान्य होगा और इसमें केवल 8 वर्ण होंगे।

यूनिरी -> ब्रेनफक स्पेक्स

• आपको उपरोक्त एल्गोरिदम के रिवर्स को लागू करना होगा।
• फिर से प्रश्न में विशाल आकारों के कारण, इनपुट एक संख्या होगी जो यूनरी कोड की लंबाई का वर्णन करती है।
• समान I / O नियम हमेशा की तरह।
• कार्यक्रम हमेशा मान्य होगा और इसमें केवल 8 वर्ण होंगे।

परीक्षण के मामलों

• नमस्ते विश्व - ++++++[>++++++++++++<-]>.>++++++++++[>++++++++++<-]>+.+++++++..+++.>++++[>+++++++++++<-]>.<+++[>----<-]>.<<<<<+++[>+++++<-]>.>>.+++.------.--------.>>+.=239234107117088762456728667968602154633390994619022073954825877681363348343524058579165785448174718768772358485472231582844556848101441556
• फाइबोनैचि - ++++++++++++++++++++++++++++++++++++++++++++>++++++++++++++++++++++++++++++++>++++++++++++++++>>+<<[>>>>++++++++++<<[->+>-[>+>>]>[+[-<+>]>+>>]<<<<<<]>[<+>-]>[-]>>>++++++++++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>>[++++++++++++++++++++++++++++++++++++++++++++++++.[-]]<[++++++++++++++++++++++++++++++++++++++++++++++++.[-]]<<<++++++++++++++++++++++++++++++++++++++++++++++++.[-]<<<<<<<.>.>>[>>+<<-]>[>+<<+>-]>[<+>-]<<<-]<<++...=13067995222095367150854793937817629722033205198624522624687536186118993888926522550140580142585590431635487113180955099384652678100247403485397450658564826143160529351955621991895221530908461364045400531236124980271740502887704217664044858614821622360156740992393765239123681327824577149595724956207165558106099868913919959549896553103116795519592552089266360725543244154867904980260

यह कोड-गोल्फ बाइट्स जीत में सबसे कम स्कोर है!

Unary में समाधान के लिए कोई भी? ; P

Comments

एक अधिक उपयुक्त शीर्षक संभवतः "ब्रेनफुक टू गोलुनार एंड बैक" होगा

— Sp3000

@ Sp3000 अच्छी बात है, लेकिन मुझे लगता है कि ज्यादातर लोगों को वास्तव में यह नहीं सुना है कि एक (खुद को शामिल)।

— माल्टीसेन

@ मेटालिसन मुझे नहीं लगता कि आपके परीक्षण के मामले सही हैं। उदाहरण के लिए, बाइनरी में पहले नंबर के प्रमुख अंक हैं 10101010101010, जब उन्हें होना चाहिए1010010010010

— isaacg

@isaacg क्षमा करें, उन्हें एक वेबसाइट मिली जो एक अलग अनुवाद तंत्र का उपयोग कर रही थी, ठीक हो जाएगी।

— माल्टसेन

क्या हम उन्हें एक ऐसे कार्यक्रम में बदल सकते हैं, जो बिल्कुल समान नहीं है, लेकिन वास्तव में वही काम करता है?

— jimmy23013

Answer 1

पायथ, 17 + 17 = 34 बाइट्स

बीएफ -> यूनरी, 17 बाइट्स

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

Unary -> BF, 17 बाइट्स

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

Answer 2

ब्रेनफक , 563 335 318 316 296 + 529 373 366 336 = 632 बाइट्स

चूंकि यह स्पष्ट रूप से संबंधित भाषा में एक समाधान याद कर रहा था, यहां ब्रेनफक और गोलुनार में समाधान है। मैं एक उत्तर को एकात्मक में पोस्ट नहीं कर सका, क्योंकि ब्रह्मांड में परमाणुओं की तुलना में कुछ शानदार समय की आवश्यकता होगी।

"बैक" रूटीन की जाँच नहीं करेगा यदि गोलुनार / यूनरी कोड वैध है। यदि बिट 3 mod 3! = 1 को गिनता है तो यह एक अंतहीन लूप में चला जाएगा जो बहुत सारे ">" s को प्रिंट करेगा।

बीएफ के लिए यूनिफ़ॉर्म कोड के नीचे 300 चार्ट प्राप्त करने में मेरी मदद करने के लिए नाइट्रोडॉन का धन्यवाद

यूनियनों के लिए मंथन

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

इसे ऑनलाइन आज़माएं!

और वापस

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

इसे ऑनलाइन आज़माएं!

गोलुनार / यूनरी -अंक, 509 303 288 286 268 + 478 337 331 304 = 572 बाइट्स

यूनियनों के लिए मंथन

2845581296974449674357817038179762273623136917867627972159702240227366875240878616687779429553529795902322625321040063298921498529640547483869509829184440577052825434462245755576011912505085065586076069824710351537537205287083477698633592357950165322060367940923703887

और वापस

3775574485023133646619269732540391678811443648964274086227256847322821618228135493733703990523803451383315165001915937932498966394771849173263120467073642011339214182483748816052890450078070151307011943625602391238338941712116968736593594971620990210178757280976709140113340322124688909388916094040773207

---

स्रोत कोड

यूनियनों के लिए मंथन

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

और वापस

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

Comments

यूनरी में परिवर्तित होने पर, आप 60 को सीधे इनपुट सेल से हटा सकते हैं, इसे पहले अपने सेल में डालने के बजाय, 16 बाइट्स बचा सकते हैं। एक और 4 बाइट्स को तुरंत 45 नहीं बनाकर बचाया जा सकता है (इस प्रकार आगे भी टेप लेआउट को कम करना)। इसके अतिरिक्त, यह थोड़ा golfier आदेश 01325467. में इनपुट बाइट्स की जाँच करने के लिए है

— Nitrodon

मेरा मतलब था कि आप इनपुट सेल में १५ जोड़ते समय ४५ बना सकते थे।

— नाइट्रोडॉन

Answer 3

पायथन 2, 80 79 63 55 + 86 64 = 119 बाइट्स

अपने ^कई सुझावों के लिए Sp3000 का धन्यवाद , बहुत सारे बाइट्स बचाए।

यूनरी के लिए ब्रेनफक, 78 77 61 53 + 2 = 55 बाइट्स

इनपुट पर आसपास के खाते के लिए दो बाइट्स जोड़े।

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

ब्रेनफक के लिए यूनरी, 86 64 बाइट्स

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

इसे यहाँ ideone पर देखें।

Comments

यूनरी के लिए 47 बाइट्स -> ब्रेनफक

— नकारात्मक सात

Answer 4

सीजेएम, 35 बाइट्स

यूनरी से ब्रेनफक, 17 बाइट्स

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

इसे ऑनलाइन आज़माएं।

यह काम किस प्रकार करता है

 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.

ब्रेनफक के लिए यूनरी, 18 बाइट्स

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

इसे ऑनलाइन आज़माएं।

यह काम किस प्रकार करता है

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.

Answer 5

बैश + कोरुटिल्स, 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-

परीक्षण उत्पादन:

$ echo "++++++[>++++++++++++<-]>.>++++++++++[>++++++++++<-]>+.+++++++..+++.>++++[>+++++++++++<-]>.<+++[>----<-]>.<<<<<+++[>+++++<-]>.>>.+++.------.--------.>>+." | ./b2u.sh
239234206933197750788456456928845900180965531636435002144714670872282710109774487453364223333807054152602699434658684117337034763550216789 
$ echo 239234206933197750788456456928845900180965531636435002144714670872282710109774487453364223333807054152602699434658684117337034763550216789 | ./u2b.sh
++++++[>++++++++++++<-[>.>++++++++++[>++++++++++<-[>+.+++++++..+++.>++++[>+++++++++++<-[>.<+++[>----<-[>.<<<<<+++[>+++++<-[>.>>.+++.------.--------.>>+.
$

Comments

tr -dc 0-9 (और कोड गोल्फ में आप मान सकते हैं कि ?यह ठीक नहीं है)

— izabera

Answer 6

जाप , 13 + 13 = 26 बाइट्स

यूनरी के लिए मंथन

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

कोशिश करो!

स्पष्टीकरण:

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

यूनिफ्री टू ब्रेनफक

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

कोशिश करो!

स्पष्टीकरण:

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

टिप्पणियाँ

मुझे मेटा पोस्ट नहीं मिल रहा है, लेकिन अगर मेरी मेमोरी सही ढंग से जवाब देती है तो I / O को उन नंबरों तक सीमित करने की अनुमति दी जाती है, जो उनकी भाषा का समर्थन कर सकती हैं, जब तक कि वे एक एल्गोरिथ्म को लागू करते हैं जो काम करेगा यदि भाषा बड़ी संख्या का समर्थन करना शुरू कर देती है। यह मामला यहाँ है, जाप की एक स्ट्रिंग को " अंकों के लिए nइन nवर्णों का उपयोग करके आधार" के रूप में व्यवहार करने की क्षमता केवल numberऑपरेशन के दूसरी तरफ डेटा प्रकार का उपयोग कर सकती है , और इस प्रकार परीक्षण के मामले वास्तव में सफलतापूर्वक नहीं चलेंगे; पहले प्रोग्राम का आउटपुट और दूसरे प्रोग्राम का इनपुट उस संख्या को एक numberकर देगा जो वास्तविक संख्या का उपयोग करने के बजाय एक के रूप में दर्शाई जा सकती है । उन संख्याओं के लिए जिन्हें जाप द्वारा पूरी तरह से दर्शाया जा सकता हैnumberडेटा प्रकार ये प्रोग्राम इच्छानुसार काम करेंगे, और यदि numberबड़ी संख्या का समर्थन करने के लिए डेटा प्रकार बदलता है तो ये प्रोग्राम उन संख्याओं को भी समर्थन देना शुरू कर देंगे।

Answer 7

05AB1E , 33 (17 + 16) बाइट्स

यूनरी-लंबाई तक ब्रेनफैक:

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

इसे ऑनलाइन आज़माएं या सभी परीक्षण मामलों को सत्यापित करें ।

स्पष्टीकरण:

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

यूनरी-लंबाई से ब्रेनफक तक

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

इसे ऑनलाइन आज़माएं या सभी परीक्षण मामलों को सत्यापित करें ।

स्पष्टीकरण:

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)

Answer 8

डार्ट , 77 + 142 = 219 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 9

सी (जीसीसी) , 254 बाइट्स

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

इसे ऑनलाइन आज़माएं!

निर्धारित करता है कि इनपुट ( i) के आधार पर किस दिशा में जाना है , परिणाम को पारित बफर ( o) में संग्रहीत करता है । ध्यान दें कि कुछ संकलक ओ ++ के कार्यान्वयन-परिभाषित आदेश के आधार पर 4 बाइट की बचत की अनुमति देते हैं। इन मामलों में प्रदान किए गए समाधान, यूनरी-> बीएफ रूपांतरण से एक अतिरिक्त चरित्र को अलग कर देंगे और व्यवहार को पुनर्प्राप्त करने के लिए o[1]सभी को प्रतिस्थापित किया *oजा सकता है।

Comments

भाषा यहां "C (gcc) + GMP" होनी चाहिए

— केवल

इसके अलावा, क्या यह 2 की तुलना में एक कार्यक्रम के रूप में छोटा है? और मैं #include <string.h>शीर्षलेख के बजाय पाद लेख में यह अनुशंसा करता हूं कि वह उस आयात के बिना काम करे। इसके ऑपरेटर की ओवरलोडिंग के कारण C ++ कम नहीं होगी? : P

— केवल

इसके अलावा महत्वपूर्ण नहीं है, लेकिन मैं हर बदल देंगे siकरने के लिए uiहो सकता है

— ASCII-केवल

*i>47&*i<58-> *i%48<10?

— केवल

यह भी mpz_init_set_str->mpz_set_str

— केवल