fork download
copy 
  1. incLast [] = []
  2. incLast (x:[]) = [x + 1]
  3. incLast (x:xs) = x : incLast xs
  4.  
  5. main :: IO ()
  6. main = do
  7.     print $ last $ incLast [1..2999999]
Success #stdin #stdout 0.17s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3000000
https://ideone.com/OHnLHn
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!