1 people like it.

Fun with FizzBuzz

Lazily generate fizzbuzz results and provide a test function. Parameterize the inputs and predicates.

Generate a FizzBuzz result set given two predicates and a max value

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
let getFizzBuzz pred1 pred2 (n: int) =
    match pred1 n, pred2 n with
    | true,true -> "FizzBuzz"
    | true,_    -> "Fizz"
    | _,true    -> "Buzz"
    | _         -> string n

let fizzbuzz pred1 pred2 =
    let getFizzBuzz = getFizzBuzz pred1 pred2
    Seq.unfold(fun n -> Some(getFizzBuzz n, n+1)) 1

Generate the Coding Horror FizzBuzz

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
11: 
12: 
13: 
14: 
fizzbuzz (fun x -> x%3=0) (fun x -> x%5=0) |> Seq.take 100 |> Seq.toArray
(* Results:
val it : string [] =
  [|"1"; "2"; "Fizz"; "4"; "Buzz"; "Fizz"; "7"; "8"; "Fizz"; "Buzz"; "11";
    "Fizz"; "13"; "14"; "FizzBuzz"; "16"; "17"; "Fizz"; "19"; "Buzz"; "Fizz";
    "22"; "23"; "Fizz"; "Buzz"; "26"; "Fizz"; "28"; "29"; "FizzBuzz"; "31";
    "32"; "Fizz"; "34"; "Buzz"; "Fizz"; "37"; "38"; "Fizz"; "Buzz"; "41";
    "Fizz"; "43"; "44"; "FizzBuzz"; "46"; "47"; "Fizz"; "49"; "Buzz"; "Fizz";
    "52"; "53"; "Fizz"; "Buzz"; "56"; "Fizz"; "58"; "59"; "FizzBuzz"; "61";
    "62"; "Fizz"; "64"; "Buzz"; "Fizz"; "67"; "68"; "Fizz"; "Buzz"; "71";
    "Fizz"; "73"; "74"; "FizzBuzz"; "76"; "77"; "Fizz"; "79"; "Buzz"; "Fizz";
    "82"; "83"; "Fizz"; "Buzz"; "86"; "Fizz"; "88"; "89"; "FizzBuzz"; "91";
    "92"; "Fizz"; "94"; "Buzz"; "Fizz"; "97"; "98"; "Fizz"; "Buzz"|]
*)

FizzBuzz tester

1: 
2: 
3: 
4: 
5: 
6: 
7: 
// NOTE: Since you pass in the predicates, you will always receive a result of 'true'.
let testFizzBuzz n =
    let pred1, pred2 = (fun x -> x%3=0), (fun x -> x%5=0)
    getFizzBuzz pred1 pred2 n
        = (fizzbuzz pred1 pred2
           |> Seq.skip (n-1)
           |> Seq.head)
val getFizzBuzz : pred1:(int -> bool) -> pred2:(int -> bool) -> n:int -> string

Full name: Script.getFizzBuzz
val pred1 : (int -> bool)
val pred2 : (int -> bool)
val n : int
Multiple items
val int : value:'T -> int (requires member op_Explicit)

Full name: Microsoft.FSharp.Core.Operators.int

--------------------
type int = int32

Full name: Microsoft.FSharp.Core.int

--------------------
type int<'Measure> = int

Full name: Microsoft.FSharp.Core.int<_>
Multiple items
val string : value:'T -> string

Full name: Microsoft.FSharp.Core.Operators.string

--------------------
type string = System.String

Full name: Microsoft.FSharp.Core.string
val fizzbuzz : pred1:(int -> bool) -> pred2:(int -> bool) -> seq<string>

Full name: Script.fizzbuzz
val getFizzBuzz : (int -> string)
module Seq

from Microsoft.FSharp.Collections
val unfold : generator:('State -> ('T * 'State) option) -> state:'State -> seq<'T>

Full name: Microsoft.FSharp.Collections.Seq.unfold
union case Option.Some: Value: 'T -> Option<'T>
val x : int
val take : count:int -> source:seq<'T> -> seq<'T>

Full name: Microsoft.FSharp.Collections.Seq.take
val toArray : source:seq<'T> -> 'T []

Full name: Microsoft.FSharp.Collections.Seq.toArray
val testFizzBuzz : n:int -> bool

Full name: Script.testFizzBuzz
val skip : count:int -> source:seq<'T> -> seq<'T>

Full name: Microsoft.FSharp.Collections.Seq.skip
val head : source:seq<'T> -> 'T

Full name: Microsoft.FSharp.Collections.Seq.head

More information

Link:http://fssnip.net/kO
Posted:10 years ago
Author:Ryan Riley
Tags: fizzbuzz