如何在F#中按索引过滤列表？剔除奇数索引元素并求最大值

嘿，这个需求用F#的标准库就能轻松搞定，咱们分两步来实现：

1. 过滤奇数索引的元素 #

首先要明确：F#的列表是0起始索引的，所以你说的“奇数索引”对应的是索引值为1、3、5的元素（也就是原列表里的5、6、7）。我们可以用List.mapi给每个元素绑定它的索引，再筛选出符合条件的元素：

let originalList = [400; 5; 401; 6; 403; 7]
// 给每个元素带上索引，过滤奇数索引，再提取元素
let filteredList = 
    originalList
    |> List.mapi (fun index item -> (index, item))  // 生成(索引, 元素)的配对列表
    |> List.filter (fun (idx, _) -> idx % 2 = 1)    // 筛选索引为奇数的项
    |> List.map snd                                 // 提取配对中的元素部分
// 此时filteredList的值就是 [5; 6; 7]

2. 找出过滤后列表的最大值 #

拿到过滤后的列表后，直接用F#内置的List.max函数就能获取最大值——因为咱们的过滤结果是非空列表，所以不用担心抛出异常：

let maxValue = filteredList |> List.max
printfn "过滤后列表的最大值是: %d" maxValue  // 输出结果为7

合并成一行的简化写法 #

如果想更简洁，也可以把两步逻辑合并成一个管道操作：

let originalList = [400; 5; 401; 6; 403; 7]
let maxValue =
    originalList
    |> List.mapi (fun idx item -> (idx, item))
    |> List.filter (fun (idx, _) -> idx % 2 = 1)
    |> List.map snd
    |> List.max

printfn "%d" maxValue  // 输出7

如果你的场景中过滤后的列表可能为空，建议改用List.tryMax（它会返回int option类型，避免空列表导致的异常），用法如下：

let maxValueOption = filteredList |> List.tryMax
match maxValueOption with
| Some maxVal -> printfn "最大值是: %d" maxVal
| None -> printfn "列表为空，无法获取最大值"

内容的提问来源于stack exchange，提问作者Shiro Pie