From 11f2b58b189c93dd7e7f5431717da92a33eceedc Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sun, 4 Dec 2022 19:35:32 -0500
Subject: day2: fix forth solution

---
 day2/both-clean.forth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3