在一个列表中筛选位置，Haskell

Question

我需要打印奇数索引的元素。目前正在打印索引。

我不明白如何打印这个索引的元素？

f :: [Int] -> [Int]
f lst = filter odd [0..length lst]

-- I can't edit this part
main = do
   inputdata <- getContents
   mapM_ (putStrLn. show). f. map read. lines $ inputdata

- rel1x

Answer 1

如果您想“步行”完成此操作：

odds [] = []
odds [x] = []
odds (e1:e2:xs) = e2 : odds xs

- bmk

Answer 2

你可以使用zip函数将你的[Int]转换为一个[(Int, Int)]，其中第一个元素是索引，第二个元素是原始值。然后你可以使用fst和snd来获取你想要的结果：

f :: [a] -> [a]
f lst = map fst $ filter (odd.snd) indexed where
    indexed = zip lst [0..]

请注意，没有必要将此限制为 Int 列表，它现在可以在任何类型的列表上运行：

> f "qwertyuiopasdfghjklzxcvbnm"
"wryipsfhkzcbm"

- Vic Smith

---

是的，但是 lst[0..]。非常感谢，Vic！ - rel1x

Answer 3

Prelude> map snd $ filter (odd . fst) (zip [0 .. ] ["aa", "bb", "cc", "dd"])
["bb","dd"]

- Bartosz Marcinkowski

---

这段代码展示了如何通过先对索引进行zip操作，然后得到无参版本的函数：f = map snd . filter (odd . fst) . zip [0..] - dopamane

Answer 4

我认为最简单的方法是使用列表推导式。

Prelude> let arr = [0..10]
Prelude> [j | (i, j) <- zip [0..] arr, odd i]
[1,3,5,7,9]

- utdemir

Answer 5

f :: [Int] -> [Int]
f lst = [lst!!i|i<-[1..length lst],odd  i]

- the_interest_seeker

---

这非常低效。 - dfeuer

Answer 6

我发现还有另外两种实现f函数的方法非常优雅：

f lst = map (lst!!) [1, 3..(length lst)]

并且

import Data.List.Split

f lst = concatMap (drop 1) (chunksOf 2 lst)

- pteranobyte

---

第一个非常慢。 - dfeuer