Haskell　リストからの取り出しについて

リストが与えられたとき、偶数番目の要素だけを取り出す関数を作りたいのですが思うように作れません
kisuuhosii xs =zip xs (cycle ["Odd","Even"])を作って

ghci>kisuuhosii [1,2,3,4,5]
[(1,"Odd"),(2,"Even"),(3,"Odd"),(4,"Even"),(5,"Odd")]
となり、後は"Even"の含まれたタプルを消してfst関数を使えばうまく動くと思うのですが書き方がわかりません。
ヒントをお願いします。

行動規範の内容に同意します

回答2件

ベストアンサー

4つ用意しました。

Haskell
1gusu1 :: [a] -> [a]
2gusu1 [] = []
3gusu1 [_] = []
4gusu1 (_:x:xs) = x : gusu1 xs
5
6gusu2 :: [a] -> [a]
7gusu2 xs = [x | (i, x) <- zip [0..] xs, odd i]
8
9gusu3 :: [a] -> [a]
10gusu3 = map snd . filter (odd . fst) . zip [0..]
11
12gusu4 :: [a] -> [a]
13gusu4 = map snd . filter fst . zip (cycle [False, True])

gusu1
パターンマッチ。リストが空であればもちろん空、1要素しかなければそれは奇数番目なのでこれも空、2要素以上有れば1番目を捨てて2番目のみ取り出して、残り(これは空の場合もある)に対して再帰すれば良い。
gusu2
リスト内包表記。[0..]をzipすることでインデックス付きのリストにする。あとはインデックスが奇数(0から始めているので)の時の要素だけでリストとするだけ。
gusu3
gusu2のmap+filter版。やっていることはgusu2と同じで、書き方が違うだけ。ポイントフリースタイルで書ける。
gusu4
gusu3でインデックスを使わない版。奇数番目がFalse、偶数番目がTrueになるリストをzipする。あとは、Trueになっている物をfilterして、mapで要素を取り出すだけ。