RosettaCodeData/Task/Loops-While/Brainf---/loops-while.bf

25 lines
395 B
Beef
Raw Permalink Normal View History

2026-04-30 12:34:36 -04:00
[1024 = 2^3 * 2^3 * 2^4]
++++++++[->++++++++[->++++++++++++++++<]<]>>
[
>[-]>[-]+>[-]+<
[
>[-<-
<<[->+>+<<]
>[-<+>]>>
]
++++++++++>[-]+>[-]>[-]>[-]<<<<<
[->-[>+>>]>[[-<+>]+>+>>]<<<<<]
>>-[-<<+>>]
<[-]++++++++[-<++++++>]
>>[-<<+>>]
<<
]
<[.[-]<]
<
>>+++++++++++++.---.[-]<<
Set divisor to 2
>++>+<< [->-[>+>>]>[[-<+>]+>+>>]<<<<<]
>>> ]