Skip to content

Instantly share code, notes, and snippets.

@toburger

toburger/BumFitz.fsx

Last active August 29, 2015 14:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save toburger/809de3a9d0be7e50014b to your computer and use it in GitHub Desktop.
Save toburger/809de3a9d0be7e50014b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
BumFitz.fsx
#r "System.Speech"
open System.Speech.Synthesis
let synt = new SpeechSynthesizer()
// synt.Rate <- 5 // schneller mochn!
let say s = synt.Speak(s: string)
[1 .. 100]
|> List.map (fun n ->
match n%3, n%5 with
| 0, 0 -> "BumFitz"
| 0, _ -> "Fitz"
| _, 0 -> "Bum"
| _ -> string n)
|> List.iter say
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment