blob: 38f27b777c54fa79fe9e0c2e2117f1cd63b9c2b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
1 constant rock
2 constant paper
3 constant scissors
: is-win ( them us -- yes ) - dup <0 swap 2 = or ;
: get-score ( them us -- score )
2dup is-win if 6 + else
2dup = if 3 +
then then nip ;
: get-loser ( them -- us ) 2 - 3 mod 1+ ;
: get-winner ( them -- us ) 3 mod 1+ ;
: A rock ;
: B paper ;
: C scissors ;
: X rock get-score + ;
: Y paper get-score + ;
: Z scissors get-score + ;
0
include input
. cr
: X dup get-loser get-score + ;
: Y dup get-score + ;
: Z dup get-winner get-score + ;
0
include input
. cr
bye
|
