我需要一个使用 List.fold 的方法来计算给定字符串中元音的数量。 到目前为止,我有这个方法。
let vowels = ['a';'e';'i';'o';'u']
let isVowel =
fun c -> vowels |> List.contains c
let count =
String.filter isVowel
>> String.length
printfn "%A" (count "aaaa")
它工作正常,但我不知道如何使用相同的 isVowel 方法制作一个 List.fold 。这是我的尝试。
下面的代码不起作用,它的目的是反映我的想法。由于 fold 方法应用 isVowel() ,它在字符串中的每个字符上返回真/假,如果条件为真,它将向累加器加 1,即 0 参数。当我尝试使用 if else insinde anon 函数时,出现错误。
let isVowel x =
match x with
| 'a' -> true
| 'e' -> true
| 'i' -> true
| 'o' -> true
| 'u' -> true
| _ -> false
let countNumOfVowels =
List.fold (fun (isVowel) (x) -> x + 1) 0 ["aaaa"]
答案 0 :(得分:1)
您正在尝试折叠一个列表,但您的源实际上是一个字符串。
如果使用 Seq.fold
,则字符串可以解释为字符序列:
"abracadabra" |> Seq.fold (fun i c -> if isVowel c then i + 1 else i) 0
// val it : int = 5
答案 1 :(得分:0)
这就是我要找的。谢谢格斯!
let countNumOfVowels str =
List.fold (fun (x: int) (c: char) -> if (isVowel c) then x + 1 else x) 0 (Seq.toList str)
countNumOfVowels "Hello"
> countNumOfVowels "Hello";;
val it : int = 2