Entries from 2014-02-01 to 1 month
import Numeric -- 1未満の小数を2進数で表す shosuToBin :: Float -> [Int] shosuToBin n = shosuToBin' (n * 10^(keta n)) (keta n) shosuToBin' :: Float -> Int -> [Int] shosuToBin' n i | n == 0 = [] | n*2 >= 10^i = 1:shosuToBin' (n*2 - 10^i) i |…