Skip to content

Instantly share code, notes, and snippets.

@amalloy

amalloy/gist:7065462

Created October 20, 2013 05:50
Show Gist options
  • Save amalloy/7065462 to your computer and use it in GitHub Desktop.
Save amalloy/7065462 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
*Control.Memoize> let f = ([1,2..10^6] !!)
*Control.Memoize> time $ f 999999
(1000000,60004000000)
*Control.Memoize> time $ f 999999
(1000000,8001000000)
*Control.Memoize> let g = memoize f
*Control.Memoize> time $ g 999999
(1000000,4000000000)
*Control.Memoize> time $ g 999999
(1000000,0)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment