Harmonic series: Difference between revisions

Content added Content deleted
Line 277: Line 277:
putStrLn
putStrLn
$ fmap
$ fmap
( \n ->
( showFirstLimit
<*> \n -> find ((> n) . snd) indexedHarmonic
showFirstLimit n $
find ((> n) . snd) indexedHarmonic
)
)
[1 .. 10]
[1 .. 10]