diff options
Diffstat (limited to 'day2/part1.forth')
| -rw-r--r-- | day2/part1.forth | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/day2/part1.forth b/day2/part1.forth new file mode 100644 index 0000000..b23e418 --- /dev/null +++ b/day2/part1.forth @@ -0,0 +1,19 @@ +: next-rpc ( fd -- score-or-false-if-eof ) + pad 4 rot read-line throw ( read next line from file ) + swap 3 = and if ( if read complete round ) + pad 2 + c@ dup 87 - ( score for our hand ) + swap pad c@ - ( difference between hands ) + dup 23 = if drop 3 + else ( 3pts for tie e.g. 'X' - 'A' ) + dup 21 = swap 24 = or if 6 + then ( 6pts for win ) + then + else false then ; ( false if end-of-file ) + +: all-rpcs ( fd -- total-score ) + 0 begin ( start with zero score ) + over next-rpc ( read next hand ) + dup if + true then ( add to score if not EOF ) + 0= until nip ; + +s" input" r/o open-file throw all-rpcs . cr ( play all rounds in input ) +bye + |