Probabilities for drawing Ace of Clubs and Ace of Spaces

gistfile1.fs

// draw Ace of Clubs and Ace of Spaces in order
completeDeck 
  |> select 2
  |> filter ((=) [A,Clubs; A,Spades])
  |> probability 
  |> printfn "%A"  // prints "1/2652"

// draw Ace of Clubs and Ace of Spaces in any order
completeDeck 
  |> select 2
  |> filterInAnyOrder [A,Clubs; A,Spades]    
  |> probability
  |> printfn "A"  //  prints "1/1326"