RosettaCodeData/Task/Loops-While/Brainf---/loops-while.bf
2026-04-30 12:34:36 -04:00

24 lines
395 B
Brainfuck

[1024 = 2^3 * 2^3 * 2^4]
++++++++[->++++++++[->++++++++++++++++<]<]>>
[
>[-]>[-]+>[-]+<
[
>[-<-
<<[->+>+<<]
>[-<+>]>>
]
++++++++++>[-]+>[-]>[-]>[-]<<<<<
[->-[>+>>]>[[-<+>]+>+>>]<<<<<]
>>-[-<<+>>]
<[-]++++++++[-<++++++>]
>>[-<<+>>]
<<
]
<[.[-]<]
<
>>+++++++++++++.---.[-]<<
Set divisor to 2
>++>+<< [->-[>+>>]>[[-<+>]+>+>>]<<<<<]
>>> ]