我试图了解事件模式,所以我在玩 FizzBuzz:
let (|Fizz|_|) i = if i % 3 = 0 then Some Fizz else None
let (|Buzz|_|) i = if i % 5 = 0 then Some Buzz else None
let (|FizzBuzz|_|) i = if i % 5 = 0 && i % 3 = 0 then Some FizzBuzz else None
let findMatch = function
| Some Fizz -> "Fizz"
| Some Buzz -> "Buzz"
| Some FizzBuzz -> "FizzBuzz"
| _ -> ""
let fizzBuzz = seq {for i in 0 .. 100 -> Some i}
|> Seq.map (fun i -> i, findMatch i)
这基本上是正确的方法,还是有更好的方法在这里使用事件模式?难道我不能做
findMatch
使用 int 而不是 int 选项?
最佳答案
Daniel 的第一个解决方案可以简化,因为您实际上不需要为 FizzBuzz
定义单独的事件模式。 .案例可谓兼具Fizz
和 Buzz
匹配,可以用模式语言很好地表达:
let findMatch = function
| Fizz & Buzz -> "FizzBuzz"
| Fizz -> "Fizz"
| Buzz -> "Buzz"
| _ -> ""
let fizzBuzz = [ for i in 0 .. 100 -> findMatch i ]
图案
Fizz & Buzz
如果两者都匹配 Fizz
和 Buzz
比赛。这依赖于模式首先匹配的事实,因此在这种情况下顺序是相关的。我还将您的最后一行缩短为我更喜欢的样式,并且更短一些(但意见各不相同)。或者,如果您不想定义太多单一用途的事件模式,您还可以编写一个参数化的事件模式来测试输入是否可以被任何指定的数字整除:
let (|DivisibleBy|_|) by n = if n%by=0 then Some DivisibleBy else None
let findMatch = function
| DivisibleBy 3 & DivisibleBy 5 -> "FizzBuzz"
| DivisibleBy 3 -> "Fizz"
| DivisibleBy 5 -> "Buzz"
| _ -> ""
关于f# - 带有活跃模式的 FizzBuzz,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10887506/