;;; Video poker tool

(define royal-flush-prob 0.0000015)
(define straight-flush-prob 0.000014)
(define four-of-a-kind-prob 0.00024)
(define full-house-prob 0.0014)
(define flush-prob 0.0020)
(define straight-prob 0.0039)
(define three-of-a-kind-prob 0.0211)
(define two-pairs-prob 0.0475)
(define pair-of-jacks-or-better-prob 0.1300)
(define one-pair-prob 0.4226)
(define high-card-prob 0.5012)

(define royal-flush-payoff           4000)
(define straight-flush-payoff         250)
(define four-of-a-kind-payoff         125)
(define full-house-payoff             45)
(define flush-payoff                 30)
(define straight-payoff               20)
(define three-of-a-kind-payoff         15)
(define two-pair-payoff              10)
(define pair-of-jacks-or-better-payoff   5)

(define expectation
  (+ (* royal-flush-payoff royal-flush-prob)
     (* straight-flush-payoff straight-flush-prob)
     (* four-of-a-kind-payoff four-of-a-kind-prob)
     (* flush-payoff flush-prob)
     (* straight-payoff straight-prob)
     (* three-of-a-kind-payoff three-of-a-kind-prob)
     (* pair-of-jacks-or-better-payoff pair-of-jacks-or-better-prob)))