5 lines
145 B
Text
5 lines
145 B
Text
[dup 1 gt? [dup 2 % swap 2 / loop] swap do?] \loop def
|
|
|
|
[\loop doin rev \to-string map "" join] \bin def
|
|
|
|
[0 1 2 5 50 9000] \bin map " " join pl
|