Return to Answer

added 12 characters in body

Source Link

edited Mar 9, 2019 at 1:44

Strict, 6452 bytes

import SystemGHC.IO.Unsafe
f _=p
main=f$unsafePerformIO$p_=print()
p=print 3main=f$unsafePerformIO$f()

With -XStrict, prints 3() an extra time.

Thanks to @Sriotchilism O'Zaic for two bytes.

import System.IO.Unsafe
f _=p
main=f$unsafePerformIO$p
p=print 3

With -XStrict, prints 3 an extra time.

import GHC.IO
f _=print()
main=f$unsafePerformIO$f()

With -XStrict, prints () an extra time.

Thanks to @Sriotchilism O'Zaic for two bytes.

Source Link

created Mar 8, 2019 at 21:43

import System.IO.Unsafe
f _=p
main=f$unsafePerformIO$p
p=print 3

With -XStrict, prints 3 an extra time.