Nim game: Difference between revisions
m
→{{header|11l}}: Void
(Added XBasic) |
Alextretyak (talk | contribs) m (→{{header|11l}}: Void) |
||
| (One intermediate revision by one other user not shown) | |||
Line 22:
<syntaxhighlight lang="11l">V tokens = 12
F getTokens(curTokens) ->
print(‘How many tokens would you like to take? ’, end' ‘’)
V take = Int(input())
Line 1,666:
</pre>
=={{header|COBOL}}==
{{works with|GNUCobol|2.0.0 y posterior}}
<syntaxhighlight lang="cobol"> IDENTIFICATION DIVISION.
PROGRAM-ID. NIM-GAME.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MONTON PIC 99 VALUE 12.
01 LLEVAR PIC 9 VALUE 0.
01 TEMP PIC 9.
PROCEDURE DIVISION.
PERFORM UNTIL MONTON = 0
DISPLAY "There are " MONTON " tokens remaining. How many"
"would you like to take? "
ACCEPT LLEVAR
PERFORM UNTIL LLEVAR > 0 AND LLEVAR < 4
DISPLAY "You must take 1, 2, or 3 tokens. How many"
"would you like to take "
ACCEPT LLEVAR
END-PERFORM
COMPUTE TEMP = 4 - LLEVAR
DISPLAY "On my turn I will take " TEMP " token(s)."
SUBTRACT 4 FROM MONTON
END-PERFORM
DISPLAY " "
DISPLAY "I got the last token. I win! Better luck next time."
STOP RUN.
</syntaxhighlight>
=={{header|Clojure}}==
| |||