Skip to content

Instantly share code, notes, and snippets.

@SoulFireMage
Created December 29, 2013 07:50
Show Gist options
  • Save SoulFireMage/8168419 to your computer and use it in GitHub Desktop.
Save SoulFireMage/8168419 to your computer and use it in GitHub Desktop.
VwlCount
let (|Vowel|) chr = match chr with
|'a'|'e'|'i'|'o'|'u' -> 1
| _ -> 0
let count = "afwefaf;oijv;oiwerj;gfj;wjofjojejfjov ns" |> Seq.map(fun (Vowel x) ->x ) |> Seq.sum
count
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment