RosettaCodeData/Task/Binary-digits/SNUSP/binary-digits.snusp

6 lines
136 B
Plaintext

/recurse\
$,binary!\@\>?!\@/<@\.#
! \=/ \=itoa=@@@+@+++++#
/<+>- \ div2
\?!#-?/+# mod2