Rock-paper-scissors: Difference between revisions
m
→{{header|Wren}}: Minor tidy
(→{{header|jq}}: pseudo-pseudo) |
m (→{{header|Wren}}: Minor tidy) |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 4,856:
NPC = randint(0, 2)
print('The computer played ' + hands[NPC] + '; ' + judge[YOU-NPC])</syntaxhighlight>
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery">
[ 0 ] is rock ( --> n )
[ 1 ] is paper ( --> n )
[ 2 ] is scissor ( --> n )
[ $ "Choose rock, paper or scissors: "
input cr
trim reverse trim reverse
$ "" swap witheach [ lower join ]
dup $ "rock" = iff
[ drop rock ] done
dup $ "paper" = iff
[ drop paper ] done
$ "scissors" = iff
scissor done
again ] is player ( --> n )
[ stack 1 ] is rocks ( --> s )
[ stack 1 ] is papers ( --> s )
[ stack 1 ] is scissors ( --> s )
[ 1 swap
[ table rocks papers scissors ]
do tally ] is notechoice ( n --> )
[ 0 ' [ rocks papers scissors ]
witheach [ share + ]
random
dup rocks share < iff
[ drop paper ] done
rocks share -
papers share < iff
scissor done
rock ] is computer ( --> n )
[ say "Computer chose "
[ table rock paper scissors ]
echo say "." cr ] is echomove ( n --> )
[ [ table
[ table 0 1 2 ]
[ table 2 0 1 ]
[ table 1 2 0 ] ] do ] is result ( n n --> n )
[ [ table
$ "It's a draw."
$ "Computer wins."
$ "Player wins." ]
do echo$ cr cr ] is announce ( n --> )
[ stack 0 ] is draws ( --> s )
[ stack 0 ] is cwins ( --> s )
[ stack 0 ] is pwins ( --> s )
[ [ table draws cwins pwins ]
1 swap tally ] is keepscore ( n --> )
[ say "Computer: " cwins share echo
say " Player: " pwins share echo
say " Draws: " draws share echo
cr cr ] is scoreboard ( --> )
[ ' [ rocks papers scissors ]
witheach [ 1 swap replace ]
' [ draws cwins pwins ]
witheach [ 0 swap replace ] ] is initialise ( --> )
[ 0
[ drop
$ "How many games? " input
trim reverse trim reverse
$->n until ]
cr ] is games ( --> n )
[ initialise
games times
[ computer
player dup notechoice
over echomove
result dup announce
keepscore
scoreboard ] ] is play ( --> )</syntaxhighlight>
{{out}}
As a dialogue in the Quackery shell.
<pre>/O> play
...
How many games? 3
Choose rock, paper or scissors: rock
Computer chose rock.
It's a draw.
Computer: 0 Player: 0 Draws: 1
Choose rock, paper or scissors: paper
Computer chose scissors.
Computer wins.
Computer: 1 Player: 0 Draws: 1
Choose rock, paper or scissors: scissors
Computer chose paper.
Player wins.
Computer: 1 Player: 1 Draws: 1
Stack empty.
/O></pre>
=={{header|R}}==
Line 6,644 ⟶ 6,763:
done</syntaxhighlight>
=={{header|V (Vlang)}}==
Semi-translation of Go version:
<syntaxhighlight lang="v (vlang)">
import rand
import os
Line 6,812 ⟶ 6,931:
{{libheader|Wren-str}}
{{libheader|Wren-ioutil}}
<syntaxhighlight lang="
import "./str" for Str
import "./ioutil" for Input
var choices = "rpsq"
| |||