Anonymous user
Go Fish: Difference between revisions
→{{header|Red}}
Line 516:
p
][
if empty? fhand [go-fish 3 fhand]
either find-in fhand kind [
check-for-books thand kind
Line 563 ⟶ 564:
if empty? chand [
go-fish
show-cards
]
Line 577 ⟶ 578:
if empty? phand [
go-fish
show-cards
]
Line 591 ⟶ 592:
deal-cards 9 phand
show-cards
while [cbooks + pbooks <
game-round
]
Line 598 ⟶ 599:
print [newline "Computer books:" cbooks newline "Player books:" pbooks]
]
demo
</lang>
| |||