DouKaku? 4560 anekos: リストで書くのはめんどくさいので。(２進数の記述)

Comment detail

リストで書くのはめんどくさいので。

b :: Integer -> Integer
b 0 = 0
b x = b' x + 2 * b (div x 10)
    where b' x = if odd x then 1 else 0

main = print $ b 01101001  -- 10