#irc thingie

gistfile1.txt

type A = | Correct | Incorrect
let answers = [1; 2; 3]
let correctanswers = [1; 2; 2]

answers 
|> List.zip correctanswers 
|> List.map (function | a,ca when a = ca -> Correct, a
                      | a,_              -> Incorrect, a)

// Just need a count? Use sumBy
answers 
|> List.zip correctanswers 
|> List.sumBy(function | a,ca when a = ca -> 1
                       | _                -> 0)