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

Question

リストが与えられたとき、偶数番目の要素だけを取り出す関数を作りたいのですが思うように作れません
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関数を使えばうまく動くと思うのですが書き方がわかりません。
ヒントをお願いします。

Answer 1

4つ用意しました。

gusu1 :: [a] -> [a]
gusu1 [] = []
gusu1 [_] = []
gusu1 (_:x:xs) = x : gusu1 xs

gusu2 :: [a] -> [a]
gusu2 xs = [x | (i, x) <- zip [0..] xs, odd i]

gusu3 :: [a] -> [a]
gusu3 = map snd . filter (odd . fst) . zip [0..]

gusu4 :: [a] -> [a]
gusu4 = 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で要素を取り出すだけ。

Q: なぜ、質問のコードを使わないのですか？
A: 文字列比較は遅いから。

Comments

[MtDew]

gusu2とgusu3がシンプルでわかり易かったです。
ありがとうございました。

[raccy]

オススメはgusu1だったんですけど…これぞHaskellというコードなので…(他の言語じゃ、まずできない)

Answer 2

どれくらいのヒントが必要なのかは分かりませんが、とりあえずfilter関数とmap関数を使えばできます。