DouKaku? 7360 M.Suzuki: バイト数との事なので。。。スペースと...(LL Golf Hole 7 - バイト数を読みやすくする)

Comment detail

バイト数との事なので。。。
スペースと改行を詰めて101Byte

1
2
3

toMan n = snd $ last $ filter (\x -> n>fst x)
    $ map (\(x,y) -> (1024^x,(show $ n/1024^x) ++ [y]))
    $ zip [0,1..] " kMGTPEZY"

内包表現を使用して空白を詰めると73Byte

1	toMan n = last [(show $ n/1024^x) ++ [y] \| (x,y) <- zip [0,1..] " kMGTPEZY", n>=1024^x]