diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2022-12-04 19:35:32 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2022-12-04 19:35:32 -0500 |
| commit | 11f2b58b189c93dd7e7f5431717da92a33eceedc (patch) | |
| tree | 972362fb3b772f948fe94458c1c5919dbbfa4c16 | |
| parent | ad6eddeeb7ec5145d3cf38ecd21dfb1f71fd4bf2 (diff) | |
day2: fix forth solution
| -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 |