Commit 6270b79c authored by Gilles Coremans's avatar Gilles Coremans
Browse files

Remove unused function from Comble

parent ece5566d
......@@ -56,7 +56,3 @@ splitn n x = concatMap (\y -> map (y:) $ splitn (n-1) (x-y)) [1..(x-1)]
asum :: [Comble val] -> Comble val
asum = foldr (<|>) empty
tabulate :: (A.Ix i) => (i -> e) -> (i,i) -> A.Array i e
tabulate f (l,u) =
A.listArray (l,u) (map f (A.range (l,u)))
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