[Haskell-cafe] Folding Integrals

[Brent Yorgey]

On Dec 12, 2007 10:36 AM, Arie Groeneveld <bradypus at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/haskell-cafe/attachments/20071212/715a5553/attachment.htm