1 people like it.
Like the snippet!

Inverse Fizz Buzz

Inspired by this post: http://www.jasq.org/2/post/2012/05/inverse-fizzbuzz.html (fixed small typo, plus trying out this editing fssnip for the first time)

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21: 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30:

  let isFizzBuzz x = 
        (x % 3 = 0) || (x % 5 = 0)

    let toFizzBuzz x =
        match (x % 3,x % 5) with
        | (0,0) -> "fizzbuzz"
        | (0,_) -> "fizz"
        | (_,0) -> "buzz"
        | _ ->  ""

    let fizzBuzzCandidates =
        seq {1 .. 100 } 
        |> Seq.filter(isFizzBuzz) 
        |> Seq.toList

    let fizzBuzzList start lenght =
        fizzBuzzCandidates
        |> Seq.skip start
        |> Seq.take lenght   

    let rec InverseFizzBuzz  (index:int) (fizzBuzzInput:list<string>) = 
        let fizzBuzzNumbers  = fizzBuzzList index fizzBuzzInput.Length                   
        let fizzBuzzStrings = fizzBuzzNumbers |> Seq.map(toFizzBuzz)                      
        if (Seq.forall2(fun x y -> x = y) fizzBuzzStrings fizzBuzzInput) then
            fizzBuzzNumbers
        else
            InverseFizzBuzz (index + 1) fizzBuzzInput

    let GetInverseFizzBuzz (fizzBuzzInput:list<string>) = 
        InverseFizzBuzz 0 fizzBuzzInput

val isFizzBuzz : x:int -> bool

Full name: Script.isFizzBuzz

val x : int

val toFizzBuzz : x:int -> string

Full name: Script.toFizzBuzz

val fizzBuzzCandidates : int list

Full name: Script.fizzBuzzCandidates

Multiple items
val seq : sequence:seq<'T> -> seq<'T>

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

--------------------
type seq<'T> = System.Collections.Generic.IEnumerable<'T>

Full name: Microsoft.FSharp.Collections.seq<_>

module Seq

from Microsoft.FSharp.Collections

val filter : predicate:('T -> bool) -> source:seq<'T> -> seq<'T>

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

val toList : source:seq<'T> -> 'T list

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

val fizzBuzzList : start:int -> lenght:int -> seq<int>

Full name: Script.fizzBuzzList

val start : int

val lenght : int

val skip : count:int -> source:seq<'T> -> seq<'T>

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

val take : count:int -> source:seq<'T> -> seq<'T>

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

val InverseFizzBuzz : index:int -> fizzBuzzInput:string list -> seq<int>

Full name: Script.InverseFizzBuzz

val index : 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<_>

val fizzBuzzInput : string list

type 'T list = List<'T>

Full name: Microsoft.FSharp.Collections.list<_>

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 fizzBuzzNumbers : seq<int>

property List.Length: int

val fizzBuzzStrings : seq<string>

val map : mapping:('T -> 'U) -> source:seq<'T> -> seq<'U>

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

val forall2 : predicate:('T1 -> 'T2 -> bool) -> source1:seq<'T1> -> source2:seq<'T2> -> bool

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

val x : string

val y : string

val GetInverseFizzBuzz : fizzBuzzInput:string list -> seq<int>

Full name: Script.GetInverseFizzBuzz

Next Version Raw view Test code New version

More information

Link:	http://fssnip.net/bS
Posted:	12 years ago
Author:	Tony Abell
Tags:	fizz buzz