diff options
Diffstat (limited to 'day2/both-clean.forth')
| -rw-r--r-- | day2/both-clean.forth | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/day2/both-clean.forth b/day2/both-clean.forth index 38f27b7..4739568 100644 --- a/day2/both-clean.forth +++ b/day2/both-clean.forth @@ -2,7 +2,7 @@ 2 constant paper 3 constant scissors -: is-win ( them us -- yes ) - dup <0 swap 2 = or ; +: is-win ( them us -- yes ) - dup -1 = swap 2 = or ; : get-score ( them us -- score ) 2dup is-win if 6 + else |