[SOLVED] CS | cards perms sols totalScore totalTests |

| cards perms sols totalScore totalTests |

cards := #(1C 2C 3C 4C 5C 6C 7C 8C 9C 10C 11C 12C 13C
1D 2D 3D 4D 5D 6D 7D 8D 9D 10D 11D 12D 13D
1H 2H 3H 4H 5H 6H 7H 8H 9H 10H 11H 12H 13H
1S 2S 3S 4S 5S 6S 7S 8S 9S 10S 11S 12S 13S
).

perms := #( #( 987654321)1 2-6 straight flush VS 1-5 straight flush
#( 40 41 42 43 48 49 50 51 52 )2 Royal flush VS straight flush
#( 40 41 27 28 114 15 42 29 )3 Four aces VS 2-full-of-A
#( 30 13 27 44 12 17 33 41 43 )4 3-fours VS 2-fours
#( 27 45 348 44 43 41 33 12 )5 Flush VS straight
#( 17 31 30 51 44 43 41 33 12 )6 3-fours VS 2-queens-2-fives
#( 17 39 30 52 44 25 41 51 12 )7 Q-full-of-K VS Q-full-of-4
#( 11 25 939 50 48 349 45 )8 9-K straight VS 9-J-two-pair
#( 50 26 39 311 27 20 48 52 )9 J-K-two-pair VS K-pair
#( 40 52 46 11 48 27 29 32 37 )10A-pair VS J-pair
).

sols :=#( #( 2C3C4C5C6C) 1 2-6 straight flush
#( 10S 11S 12S 13S 1S) 2 Royal flush
#( 1C1D1H1S) 3 Four aces
#( 4D4H4S) 4 3-fours
#( 2S4S5S6S9S) 5 Flush
#( 4D4H4S) 6 3-fours
#( 12C 12D 12S 13H 13S ) 7 Q-full-of-K
#( 10S 11S 12D 13H 9S) 8 9-K straight
#( 11C 11S 13H 13S ) 9 J-K-two-pair
#( 1H1S) 10A-pair
).

totalScore := 0.
totalTests := 0.

Transcript clear.
1 to: 10 do: [ :test |
| poker input deal youSaid shouldBe ex |
input:= (perms at: test).
shouldBe := (sols at: test).
deal := OrderedCollection new.
input do: [ :id | deal add: (cards at: id) ].

ex := false.
[ poker := Poker new. youSaid := (poker deal: input) ] on: Exception do: [ :e |
Transcript show: Exception on input:; cr; show: input; cr.
Transcript show: e description; cr; show: SKIPPING; cr.
ex := true.
].
ex ifFalse: [

youSaid size > 5
ifTrue: [
Transcript show: Test ; show: test; show: DISCREPANCY: ; show: input; cr.
Transcript show: P1: ; show: (deal at: 1), ,, (deal at: 3); cr.
Transcript show: P2: ; show: (deal at: 2), ,, (deal at: 4); cr.
Transcript show: Pool: ; show: (deal at: 5), ,, (deal at: 6), ,, (deal at: 7), ,, (deal at: 8), ,, (deal at: 9); cr.
Transcript show: You returned: ; show: youSaid; cr.
Transcript show: Cannot return more than five cards! Test FAILED; cr.
]
ifFalse: [
| score |
score := 0.
shouldBe do: [ :elem | (youSaid includes: elem) ifTrue: [ score := score + 1 ] ].
(score = shouldBe size)
ifTrue:[
Transcript show: Test ; show: test; show: FULL MARKS.
Transcript show: (; show: score; show: of ; show: (shouldBe size); show: cards correct); cr.
]
ifFalse: [
Transcript show: Test ; show: test; show: DISCREPANCY: ; show: input; cr.
Transcript show: P1: ; show: (deal at: 1), ,, (deal at: 3); cr.
Transcript show: P2: ; show: (deal at: 2), ,, (deal at: 4); cr.
Transcript show: Pool: ; show: (deal at: 5), ,, (deal at: 6), ,, (deal at: 7), ,, (deal at: 8), ,, (deal at: 9); cr.
Transcript show: You returned: ; show: youSaid; cr.
Transcript show: Should contain: ; show: shouldBe; cr.
Transcript show: ; show: score; show: of ; show: (shouldBe size); show: cards correct; cr.
].
totalScore := totalScore + (score / shouldBe size).
].
].
totalTests := totalTests + 1.
].

Transcript cr; show: Total score: ; show: (100 * totalScore / totalTests) asFloat; show: %(.
Transcript show: totalScore asFloat; show: /; show: totalTests asFloat; show: points); cr.