Ideone.com

fork download

copy

import Data.List
force = foldl' go ()
	where go a b = a `seq` b `seq` ()
main = let a = [1, 2, 4, undefined] in force a `seq` print 1

Runtime error #stdin #stdout 0.02s 3588KB

stdin

copy

Standard input is empty

stdout

copy

Standard output is empty

https://ideone.com/oy8hf

language:

Haskell (ghc 8.4.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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