diff options
Diffstat (limited to 'src/Utils.hs')
| -rw-r--r-- | src/Utils.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Utils.hs b/src/Utils.hs index 227e120..d2068d4 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -6,3 +6,11 @@ module Utils where ($>) = flip ($) infixr 6 $> + +oddElems :: [a] -> [a] +oddElems [] = [] +oddElems (x:xs) = x:evenElems xs + +evenElems :: [a] -> [a] +evenElems [] = [] +evenElems (_:xs) = oddElems xs |