day2: fix forth solution

2 years ago · 11f2b58b18
parent ad6eddeeb7
commit 11f2b58b18
1 changed files with 1 additions and 1 deletions
--- 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