On Dec 12, 2007 4:17 PM, Brent Yorgey <byorgey@gmail.com > wrote:

On Dec 12, 2007 10:36 AM, Arie Groeneveld < bradypus@xs4all.nl> wrote:
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

One can also use Data.Char.digitToInt in place of (flip (-) 48 . ord).

-Brent

_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe