anchor.diff:              return Common.oneOrFiveRoll()
           }
           g |> Arb.fromGen
  +
  +type FourOfAKindWithExtraPointsPropertyAttribute () =
  +    inherit PropertyAttribute (
  +        Arbitrary = [| typeof<FourOfAKindWithExtraPoints> |])
   
   type FourOfAKindWithNoExtraPointsPropertyAttribute () =
       inherit PropertyAttribute (
  
positive.code:         }
          g |> Arb.fromGen
  
  type ThreeOfAKindWithAnotherThreeOfAKind =
      static member Roll() =
          let g = gen {
  
negative.code:         let expected = 2 * (n |> ZonkKata.Roll.ThreeOfAKindPoints)
          let actual = roll |> ZonkKata.Roll.CalculatePoints
          test <@ expected = actual @>
  
      [<FourOfAKindWithExtraPointsProperty>]
      let ``Four of a kind with extra points should return more than the four of a kind points.`` (n : int, roll : int list) =
          let expected = n |> ZonkKata.Roll.FourOfAKindPoints
          let actual = roll |> ZonkKata.Roll.CalculatePoints
          test <@ expected < actual @>
  