fork(3) download
copy 
  1.  
  2. digitSum n = f (div n 10) (mod n 10) where
  3.     f 0 r = r
  4.     f q r = r + digitSum q
  5.  
  6. printf f x = putStrLn $ show x ++ " -> " ++ show (f x)
  7.  
  8. main = mapM_ (printf digitSum) [123, 456, 789]
Success #stdin #stdout 0s 5724KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
123 -> 6
456 -> 15
789 -> 24
https://ideone.com/Vxdtvn
language:
Haskell (ghc 8.4.4)
created:
10 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!