day2: cleaner approach

day2/both-clean.forth

@@ -0,0 +1,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
+