Commit 30a10277 authored by Simon Marlow's avatar Simon Marlow

remove n+k pattern

parent 98c6f2fc
......@@ -37,5 +37,5 @@ parTree n (Branch a xs) = a `par` mySeqList (map (parTree (n-1)) xs)
prune :: Int -> (Tree a) -> (Tree a)
prune 0 (Branch a l) = Branch a []
prune (n+1) (Branch a l) = Branch a (map (prune n) l)
prune n (Branch a l) = Branch a (map (prune (n-1)) l)
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