anekos #4560(2007/12/02 12:19 GMT) [ Haskell ] Rating0/0=0.00
リストで書くのはめんどくさいので。
1 2 3 4 5 6
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
Rating0/0=0.00-0+
[ reply ]
anekos
#4560()
[
Haskell
]
Rating0/0=0.00
リストで書くのはめんどくさいので。
Rating0/0=0.00-0+