fork download
copy 
  1. undigits :: [Int] -> Int
  2. undigits = foldl (\a x -> a * 10 + x) 0
  3.  
  4. main :: IO ()
  5. main = print $ undigits [1,4,2,7,9,3,4,6]
Success #stdin #stdout 0s 4640KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
14279346
https://ideone.com/rrpnds
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!