/ Published in: Other
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
decToBin x = reverse $ decToBin' x where decToBin' 0 = [] decToBin' y = let (a,b) = quotRem y 2 in [b] ++ decToBin' a