HandGen.fs

  let genHand : Gen<Hand> =
    let deck =
      gen {
        let! seed = Gen.choose (0, 100000)
        let deck = shuffle newDeck seed
        return deck }
       
    gen {
      let! (ShuffledDeck d) = deck
      let hand =
        d
        |> List.take 5
      return hand }
      
  // Shorter
  let genHand : Gen<Hand> =
    gen {
      let! seed = Gen.choose (0, 100000)
      let deck = shuffle newDeck seed

      let (ShuffledDeck d) = deck
      return d |> List.take 5 }
      
  // Even shorter :-)
    let genHand : Gen<Hand> =
    gen {
      let! seed = Gen.choose (0, 100000)
      let (ShuffledDeck deck) = shuffle newDeck seed

      return deck |> List.take 5 }