Data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions

View file

@ -0,0 +1,20 @@
nim=: {{
prompt tokens=: 12
}}
prompt=: {{
echo 'tokens: ',":tokens
if. 1>tokens do.
echo 'game over'
else.
echo 'take 1, 2 or 3 tokens'
end.
}}
take=: {{
assert. y e.1 2 3
assert. 0=#$y
echo 'tokens: ',":tokens=:tokens-y
echo 'I take ',(":t=. 4-y),' tokens'
prompt tokens=:tokens-t
}}

View file

@ -0,0 +1,18 @@
nim''
tokens: 12
take 1, 2 or 3 tokens
take 1
tokens: 11
I take 3 tokens
tokens: 8
take 1, 2 or 3 tokens
take 3
tokens: 5
I take 1 tokens
tokens: 4
take 1, 2 or 3 tokens
take 2
tokens: 2
I take 2 tokens
tokens: 0
game over