Reinier Lamers schreef:
printint :: Int -> [Char]
printint = map chr . map (+0x30) . reverse . map (`mod` 10) .
takeWhile (>0) . iterate (`div`10)
Most of the time I use this:
digits :: Integer -> [Int]
digits = map (flip(-)48.ord) . show
Regards
=@@i
