fork download
copy 
  1.  
  2. digitSum n = let { q = div n 10 ; r = mod n 10 } in
  3.     if q == 0 then r else r + digitSum q
  4.  
  5. printf f x = putStrLn $ show x ++ " -> " ++ show (f x)
  6.  
  7. main = mapM_ (printf digitSum) [123, 456, 789]
Success #stdin #stdout 0s 5680KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
123 -> 6
456 -> 15
789 -> 24
https://ideone.com/GGG8Nn
language:
Haskell (ghc 8.4.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!