![]() |
git.alexw.nyc | home | about | git | garden |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | \ Not done 0 value total 0 const rock 1 const paper 2 const scissors \ slightly broken atm : score ( n1 n2 -- n3 ) dup >r 1+ swap - 3 mod 3 * V1 1+ + rdrop ; : A ( -- n ) rock ; : B paper ; : C scissors ; : X ( n -- ) rock score to+ total ; : Y paper score to+ total ; : Z scissors score to+ total ; f<< /aoc/input total . nl> |