Commit 44bff05d authored by Greif's avatar Greif Committed by Sebastian Graf

Typofix

parent 8b3c9596
...@@ -76,7 +76,7 @@ main = do ...@@ -76,7 +76,7 @@ main = do
let zs = Data.Set.toList $ {- take n $ -} transcl_set rel_set (Data.Set.fromList seeds) -- set-based with 1-to-n rel let zs = Data.Set.toList $ {- take n $ -} transcl_set rel_set (Data.Set.fromList seeds) -- set-based with 1-to-n rel
#else #else
let zs = {- take n $ -} transcl rel_list seeds -- default: seq, circular, with a 1-to-n list-based relation let zs = {- take n $ -} transcl rel_list seeds -- default: seq, circular, with a 1-to-n list-based relation
-- unused verions -- unused versions
-- let zs = {- take n $ -} transcl_dup rel_one seeds -- no elim of duplicates; good parallelism but stupid -- let zs = {- take n $ -} transcl_dup rel_one seeds -- no elim of duplicates; good parallelism but stupid
-- let zs = {- take n $ -} transcl_simp rel_one seeds -- list-based with 1-to-1 rel -- let zs = {- take n $ -} transcl_simp rel_one seeds -- list-based with 1-to-1 rel
#endif #endif
...@@ -120,4 +120,3 @@ nfib :: Int -> Int ...@@ -120,4 +120,3 @@ nfib :: Int -> Int
nfib 0 = 1 nfib 0 = 1
nfib 1 = 1 nfib 1 = 1
nfib n = nfib (n-1) + nfib (n-2) + 1 nfib n = nfib (n-1) + nfib (n-2) + 1
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment