RosettaCodeData/Task/Iterated-digits-squaring/Befunge/iterated-digits-squaring.bf
2018-08-17 15:15:24 +01:00

5 lines
130 B
Beef

1-1\10v!:/+55\<>::**>>-!|
v0:\+<_:55+%:*^^"d":+1$<:
>\`!#^ _$:"Y"-#v_$\1+\:^0
>01-\0^ @,+55.<>:1>-!>#^_
>,,,$." >=",,,^ >>".1">#<