f# - 带有活跃模式的 FizzBu​​zz

Question

我试图了解事件模式，所以我在玩 FizzBu​​zz:

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 选项？

Answer 1

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" 
  | _ -> ""