Jensen's Device: Difference between revisions

Content deleted Content added
m →‎[[Jensen's Device#python]]: partial revert, now the actual passed "i" in incremented.
→‎{{header|Haskell}}: if it doesn't matter, make it undefined
Line 170: Line 170:


foo = runST $ do
foo = runST $ do
i <- newSTRef 42 -- initial value doesn't matter
i <- newSTRef undefined -- initial value doesn't matter
sum' i 1 100 $ return recip `ap` readSTRef i
sum' i 1 100 $ return recip `ap` readSTRef i