mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Binary-digits/Joy/binary-digits.joy

4 lines
114 B
Plaintext
Raw Permalink Blame History

DEFINE bin == "" [pop 1 >] [[2 div "01" of] dip cons] while ["01" of] dip cons.
[0 1 2 5 50 9000] [bin] map put.
Reference in New Issue View Git Blame Copy Permalink