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

Switch parameters order

Browse Source
This commit is contained in:
Rnhmjoj 2014-10-16 23:00:52 +02:00
parent 95e0a5732e
commit ac5831f063
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Alea/List.hs
View File

@ -6,11 +6,11 @@ removeAt :: Int -> [a] -> (a, [a])
removeAt n xs = (xs !! n, take n xs ++ drop (n+1) xs) removeAt n xs = (xs !! n, take n xs ++ drop (n+1) xs)
-- Split a list into a list of lists -- Split a list into a list of lists
-- ex. split "ab,cd,ef" ',' == ["ab","cd","ef"] -- ex. split ',' "ab,cd,ef" == ["ab","cd","ef"]
split :: (Eq a) => [a] -> a -> [[a]] split :: (Eq a) => a -> [a] -> [[a]]
split [] _ = [[]] split _ [] = [[]]
split (c:cs) delim 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 cs delim rest = split delim cs