rnhmjoj/alea
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix whitespace

Browse Source
This commit is contained in:
Michele Guerini Rocco 2014-12-13 01:05:02 +01:00
parent 73093e4e29
commit 7ec9fbe884
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Alea/List.hs
View File

@ -5,7 +5,6 @@ module Alea.List where
split :: (Eq a) => a -> [a] -> [[a]] split :: (Eq a) => a -> [a] -> [[a]]
split _ [] = [[]] split _ [] = [[]]
split delim (c:cs) split delim (c:cs)
| c == delim = [] : rest | c == delim = [] : rest
| otherwise = (c : head rest) : tail rest | otherwise = (c : head rest) : tail rest
where where rest = split delim cs
rest = split delim cs