Jensen's Device: Difference between revisions
m
→{{header|Haskell}}: Added type signatures
m (→{{header|Haskell}}: Pruned out one import, adjusted a name to avoid a wiki formatting glitch, simplified slightly.) |
m (→{{header|Haskell}}: Added type signatures) |
||
Line 606:
import Data.STRef
sum_ :: STRef s Double -> Double -> Double -> ST s Double -> ST s Double
sum_ ref_i lo hi term = sum <$> mapM ((>> term) . writeSTRef ref_i) [lo .. hi]
foo :: Double
foo =
runST $
Line 613 ⟶ 615:
sum_ i 1 100 $ recip <$> readSTRef i
main :: IO ()
main = print foo</lang>
{{Out}}
| |||