5 lines
149 B
Text
5 lines
149 B
Text
fun binary
|
|
(0, b) = implode ` map (fn x = if int x then chr (x + 48) else x) b
|
|
| (n, b) = binary (n div 2, n mod 2 :: b)
|
|
| n = binary (n, [])
|
|
;
|