diff options
| author | Jan Tuomi <jan.tuomi@valuemotive.com> | 2022-09-24 14:36:37 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 95fa4b4de7027749a6512def696d07ed64217b50 (patch) | |
| tree | 699738c9aecf7a2830656e137bdcc1175bff31e1 /src/Utils.hs | |
| parent | 5995f723058c5152980fb74034ad8f4d8bbd7a99 (diff) | |
Implement match
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 |