docs: make nfib compute the Fibonacci sequence [skipci]
authorArtem Pelenitsyn <a.pelenitsyn@gmail.com>
Sat, 23 Mar 2019 17:18:12 +0000 (13:18 -0400)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Fri, 29 Mar 2019 18:18:20 +0000 (14:18 -0400)
docs/users_guide/parallel.rst

index fea8fa4..6c2a7ae 100644 (file)
@@ -120,7 +120,7 @@ For example, consider the following parallel version of our old nemesis,
 
     nfib :: Int -> Int
     nfib n | n <= 1 = 1
 
     nfib :: Int -> Int
     nfib n | n <= 1 = 1
-           | otherwise = par n1 (pseq n2 (n1 + n2 + 1))
+           | otherwise = par n1 (pseq n2 (n1 + n2))
                          where n1 = nfib (n-1)
                                n2 = nfib (n-2)
 
                          where n1 = nfib (n-1)
                                n2 = nfib (n-2)