RosettaCodeData/Task/Binary-digits/Joy/binary-digits-1.joy

6 lines
113 B
Plaintext

HIDE
_ == [null] [pop] [2 div swap] [48 + putch] linrec
IN
int2bin == [null] [48 + putch] [_] ifte '\n putch
END