hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

PRELUDE add shiftM'

Browse Source
This commit is contained in:
hasufell 2015-01-08 01:38:18 +01:00
parent 550957da13
commit 1dd4dd6f59
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
MyPrelude.hs
View File

@ -93,6 +93,12 @@ shiftM 0 xs = xs
shiftM n xs = drop n xs ++ take n xs shiftM n xs = drop n xs ++ take n xs
-- |Shift a list.
-- E.g.: shiftM' (== 5)
shiftM' :: Eq a => a -> [a] -> [a]
shiftM' s xs = dropWhile (/= s) xs ++ takeWhile (/= s) xs
-- |Get the pivot of a list. -- |Get the pivot of a list.
pivot :: [a] -> Maybe a pivot :: [a] -> Maybe a
pivot [] = Nothing pivot [] = Nothing