Spoof game: Difference between revisions
m
→{{header|Wren}}: Minor tidy
(Added Go) |
m (→{{header|Wren}}: Minor tidy) |
||
| (12 intermediate revisions by 8 users not shown) | |||
Line 1:
[[Category:Puzzles]]
[[Category:Games]]
{{draft task}}
Create Spoof game. See details: [https://en.wikipedia.org/wiki/Spoof_(game) Spoof game]
<br><br>
=={{header|C}}==
{{trans|Kotlin}}
<
#include <stdlib.h>
#include <time.h>
Line 147:
}
return 0;
}</
{{output}}
Line 196:
PLAYER 2 buys the drinks!
</pre>
=={{header|FreeBASIC}}==
{{trans|Julia}}
<syntaxhighlight lang="freebasic">Function PideEntero(texto As String) As Integer
Dim As Integer mon
While true
Color 15: Print !"\n"; texto;
Input " (supply an integer) => ", mon
If (0 <= mon <= 6) Then Return mon
Wend
End Function
Sub ChinosParaDos
Dim As Integer olla, monedas(0 To 6)
Dim As Integer mi_olla = 0, mi_apuesta = 0, tu_olla = 0, tu_apuesta = 0
Dim As Integer numRondas = PideEntero("How many games do you want?")
For cont As Integer = 1 To numRondas
While true
mi_olla = Int(Rnd * 3)
mi_apuesta = Int(Rnd * 6)
If (mi_olla + 3) < mi_apuesta Then Exit While
Wend
Color 14: Print !"\nI have put my pot and guess."
Color 7
While true
tu_olla = PideEntero("Your pot?")
tu_apuesta = PideEntero("Your guess?")
If (0 <= tu_olla <= 6) And (0 <= tu_apuesta <= 6) And (tu_olla + 4 > tu_apuesta) Then Exit While
Wend
Print !"\nMy put is:"; mi_olla
Print "My guess is:"; mi_apuesta
olla = mi_olla + tu_olla
If (mi_apuesta = olla) And (tu_apuesta = olla) Then
Color 6: Print !"\nDraw!\n"
Elseif mi_apuesta = olla Then
Color 12: Print !"\nI won!\n"
Elseif tu_apuesta = olla Then
Color 9: Print !"\nYou won!\n"
Else
Color 13: Print !"\nNo winner!\n"
End If
Next cont
End Sub
Randomize Timer
Do
Cls
Color 11: Print !"Spoof game\n=========="
ChinosParaDos
Color 15: Print "Another round? (Press X to exit, or another key to continue)"
Loop Until (Ucase(Input(1)) = "X")
End</syntaxhighlight>
=={{header|Go}}==
{{trans|Kotlin}}
<
import (
Line 340 ⟶ 393:
}
}
}</
{{out}}
Line 390 ⟶ 443:
PLAYER 1 buys the drinks!
</pre>
=={{header|Julia}}==
{{trans|Ring}}
<syntaxhighlight lang="julia">function queryint(prompt)
while true
print("\n", prompt, " (supply an integer) => ")
(n = tryparse(Int, strip(readline(stdin)))) != nothing && return n
end
end
function spoofgamefortwo()
spoof = 0:6
mypot, myguess, yourpot, yourguess = 0, 0, 0, 0
ngames = queryint("How many games do you want?")
for _ in 1:ngames
while true
mypot = rand(1:3)
myguess = rand(1:6)
if mypot + 3 < myguess
break
end
end
println("I have put my pot and guess.")
while true
yourpot = queryint("Your pot?")
yourguess = queryint("Your guess?")
if 0 <= yourpot <= 6 && 0 <= yourguess <= 6 && (yourpot + 4 > yourguess)
break
end
end
println("My put is: $mypot")
println("My guess is: $myguess")
pot = mypot + yourpot
if myguess == pot && yourguess == pot
println("Draw!")
elseif myguess == pot
println("I won!")
elseif yourguess == pot
println("You won!")
else
println("No winner!")
end
end
end
spoofgamefortwo()
</syntaxhighlight>{{out}}
<pre>
How many games do you want? (supply an integer) => 2
I have put my pot and guess.
Your pot? (supply an integer) => 1
Your guess? (supply an integer) => 3
My put is: 2
My guess is: 6
You won!
I have put my pot and guess.
Your pot? (supply an integer) => 2
Your guess? (supply an integer) => 4
My put is: 1
My guess is: 5
No winner!
</pre>
=={{header|Kotlin}}==
This program has a TEST mode. If you set it to true, the number of coins allocated to each player for each round won't be erased after he/she presses ENTER, which allows you to check it is working out the total for the round correctly.
<
import java.util.Random
Line 482 ⟶ 601:
round++
}
}</
{{output}}
Line 555 ⟶ 674:
PLAYER 3 buys the drinks!</pre>
=={{header|Nim}}==
{{trans|Kotlin}}
<syntaxhighlight lang="nim">import math, random, sequtils, strformat, strutils, terminal
const Test = true
proc getNumber(prompt: string; min, max: int; showMinMax: bool): int =
while true:
stdout.write prompt
stdout.write if showMinMax: &" from {min} to {max}: " else: ": "
stdout.flushFile()
try:
result = stdin.readLine().parseInt()
except ValueError:
echo "Wrong input"
continue
except EOFError:
quit "\nEnd of file encountered. Quitting", QuitFailure
if result in min..max: break
echo "Value out of range"
echo()
proc play() =
let
players = getNumber("Number of players", 2, 9, true)
coins = getNumber("Number of coins per player", 3, 6, true)
var
remaining = toSeq(1..players)
first = rand(1..players)
round = 1
echo "The number of coins in your hand will be randomly determined for"
echo "each round and displayed to you. However, when you press ENTER"
echo "it will be erased so that the other players, who should look"
echo "away until it's their turn, won't see it. When asked to guess"
echo "the total, the computer won't allow a 'bum guess'."
while true:
echo &"\nROUND {round:}\n"
var
n = first
hands = newSeq[int](players + 1)
guesses = repeat(- 1, players + 1)
while true:
echo &" PLAYER {n}:"
echo " Please come to the computer and press ENTER"
hands[n] = rand(coins)
let plural = if hands[n] > 1: "s" else: ""
stdout.write &" <There are {hands[n]} coin{plural} in your hand>"
discard stdin.readLine()
if not Test:
cursorUp()
eraseLine()
stdout.write '\r'
else:
echo()
while true:
let min = hands[n]
let max = remaining.high * coins + hands[n]
let guess = getNumber(" Guess the total", min, max, false)
if guess notin guesses:
guesses[n] = guess
break
echo " Already guessed by another player, try again"
let index = remaining.find(n)
n = remaining[(index + 1) mod remaining.len]
if n == first: break
let total = sum(hands)
echo " Total coins held = ", total
var eliminated = false
for i, n in remaining:
if guesses[n] == total:
echo &" PLAYER {n} guessed correctly and is eliminated"
remaining.delete(i)
eliminated = true
break
if not eliminated:
echo " No player guessed correctly in this round"
else:
if remaining.len == 1:
echo &"\nPLAYER {remaining[0]} buys the drinks!"
return
let index = remaining.find(n)
first = remaining[(index + 1) mod remaining.len]
inc round
randomize()
play()</syntaxhighlight>
{{out}}
Sample game in test mode.
<pre>Number of players from 2 to 9: 3
Number of coins per player from 3 to 6: 3
The number of coins in your hand will be randomly determined for
each round and displayed to you. However, when you press ENTER
it will be erased so that the other players, who should look
away until it's their turn, won't see it. When asked to guess
the total, the computer won't allow a 'bum guess'.
ROUND 1
PLAYER 1:
Please come to the computer and press ENTER
<There are 3 coins in your hand>
Guess the total: 6
PLAYER 2:
Please come to the computer and press ENTER
<There are 0 coin in your hand>
Guess the total: 5
PLAYER 3:
Please come to the computer and press ENTER
<There are 1 coin in your hand>
Guess the total: 4
Total coins held = 4
PLAYER 3 guessed correctly and is eliminated
ROUND 2
PLAYER 2:
Please come to the computer and press ENTER
<There are 0 coin in your hand>
Guess the total: 3
PLAYER 1:
Please come to the computer and press ENTER
<There are 0 coin in your hand>
Guess the total: 0
Total coins held = 0
PLAYER 1 guessed correctly and is eliminated
PLAYER 2 buys the drinks!</pre>
=={{header|Perl}}==
{{trans|Julia}}
<syntaxhighlight lang="perl">use strict;
use warnings;
use feature 'say';
sub query_for_integer {
my ($prompt) = @_;
while (1) {
print "$prompt " and chop($_ = <>);
/^\d+$/ ? return $_ : say '(need an integer)';
}
}
sub spoof_for_2 {
my ($mypot, $myguess, $yourpot, $yourguess) = (0, 0, 0, 0);
my $ngames = query_for_integer('How many games do you want?');
for (1 .. $ngames) {
while (1) {
$mypot = 1 + int rand 3;
$myguess = 1 + int rand 6;
last if $mypot+3 < $myguess;
}
say 'I have set my pot and guess.';
while (1) {
$yourpot = query_for_integer('Your pot?' );
$yourguess = query_for_integer('Your guess?');
last if (0 <= $yourpot and $yourpot <= 6) and (0 <= $yourguess and $yourguess <= 6) and $yourpot+4 > $yourguess;
}
say "My pot is: $mypot\nMy guess is: $myguess";
my $pot = $mypot + $yourpot;
if ($myguess == $pot and $yourguess == $pot) { say 'Draw!' }
elsif ($myguess == $pot) { say 'I won!' }
elsif ($yourguess == $pot) { say 'You won!' }
else { say 'No winner!' }
}
}
spoof_for_2();</syntaxhighlight>
{{out}}
<pre>How many games do you want? 1
Your pot? 2
Your guess? 3
I have set my pot and guess.
My pot is: 1
My guess is: 6
You won!</pre>
=={{header|Phix}}==
<syntaxhighlight lang="phix">function get_number(string prompt, integer lo, hi, pot, bool show=false)
if show then prompt &= sprintf(" from %d to %d",{lo,hi}) end if
printf(1,prompt&" : ")
integer n = -1
while n<lo or n>hi do
n = wait_key()-'0'
if n='!'-'0' and not show then
printf(1,"\rYou have %d coins in your hand, max guess is %d\r",{lo,hi})
sleep(2)
printf(1," \r")
printf(1,prompt&" : ")
end if
end while
if n=pot then
printf(1,"**\n")
else
printf(1,"%d\n",n)
end if
return n
end function
constant help = """
Guess the total number of coins in everybody's hands.
Inputs/guesses between 1 and 9 can be entered using the keys 1 to 9, but
just to make life a little more interesting, guesses of 10 .. 54 must be
entered using :;<=>?@AB ... XYZ[\]^_`abcdef (no return key required).
Use ! to see your hand, obviously only when no-one else is looking.
You may not guess less than the number of coins in your hand, or more
than that plus (players-1)*maxcoins, or any already known wrong guess.
"""
procedure main()
printf(1,help)
integer players = get_number("Number of players", 2, 9, -1, show:=true),
maxcoins = get_number("Max coins per player", 3, 6, -1, show:=true),
first = rand(players), next = first
printf(1,"player%d goes first\n",first)
sequence hands = sq_sub(sq_rand(repeat(maxcoins+1,players)),1),
remaining = tagset(players),
game_log = repeat("",players),
guessed = {}
for i=1 to players do
game_log[i] = sprintf("player%d:%s",{i,iff(i<first?" -":"")})
end for
integer pot = sum(hands),
rm1 = (players-1)*maxcoins
while length(remaining)>1 do
integer player = remaining[next],
hp = hands[player],
guess = get_number(sprintf("player%d guess",player),hp,hp+rm1,pot)
if find(guess,guessed) then
printf(1,"Already guessed by another player, try again\n");
else
game_log[player] &= sprintf(" %d",guess)
if guess==pot then
printf(1,"player%d guessed correctly and is eliminated!\n",player)
remaining[next..next] = {}
else
guessed &= guess
next += 1
end if
if next>length(remaining) then next = 1 end if
end if
end while
printf(1,"hands: %s\n",{sprint(hands)})
printf(1,"Game log:\n")
pp(game_log,{pp_Nest,1})
printf(1,"pot:%d, player%d buys the drinks!\n",{pot,remaining[1]})
{} = wait_key()
end procedure
main()</syntaxhighlight>
{{out}}
<pre>
Guess the total number of coins in everybody's hands.
Inputs/guesses between 1 and 9 can be entered using the keys 1 to 9, but
just to make life a little more interesting, guesses of 10 .. 54 must be
entered using :;<=>?@AB ... XYZ[\]^_`abcdef (no return key required).
Use ! to see your hand, obviously only when no-one else is looking.
You may not guess less than the number of coins in your hand, or more
than that plus (players-1)*maxcoins, or any already known wrong guess.
Number of players from 2 to 9 : 3
Max coins per player from 3 to 6 : 6
player3 goes first
player3 guess : 18
player1 guess : 17
player2 guess : 13
player3 guess : **
player3 guessed correctly and is eliminated!
player1 guess : 9
player2 guess : 11
player1 guess : **
player1 guessed correctly and is eliminated!
hands: {5,1,6}
Game log:
{"player1: - 17 9 12",
"player2: - 13 11",
"player3: 18 12"}
pot:12, player2 buys the drinks!
</pre>
=={{header|Raku}}==
(formerly Perl 6)
{{trans|Perl}}
<syntaxhighlight lang="raku" line>sub query_for_integer ($prompt) { loop { ($_ = prompt "$prompt ") ~~ /^ \d+ $/ ?? return $_ !! say '(need an integer)'; } }
sub spoof_for_2 {
my ($mypot, $myguess, $yourpot, $yourguess) = 0, 0, 0, 0;
my $ngames = query_for_integer('How many games do you want?');
for 1 .. $ngames {
repeat {
$mypot = 1 + 3.rand.Int;
$myguess = 1 + 6.rand.Int;
} until $mypot+3 < $myguess;
say 'I have set my pot and guess.';
repeat {
$yourpot = query_for_integer('Your pot?' );
$yourguess = query_for_integer('Your guess?');
} until 0 <= $yourpot & $yourguess <= 6 and $yourpot+4 > $yourguess;
say "My pot is: $mypot\nMy guess is: $myguess";
given $mypot + $yourpot {
when $myguess & $yourguess { say 'Draw!' }
when $myguess { say 'I won!' }
when $yourguess { say 'You won!' }
default { say 'No winner!' }
}
}
}
spoof_for_2();</syntaxhighlight>
{{out}}
<pre>How many games do you want? 1
Your pot? 2
Your guess? 3
I have set my pot and guess.
My pot is: 1
My guess is: 5
You won!</pre>
=={{header|REXX}}==
A method was used to enable a player to play the "same" game over again.
A little extra code was added to add verbiage for various error conditions.
<syntaxhighlight lang="rexx">/*REXX program plays the "spoof" game with a human player (does presentation & scoring).*/
parse arg seed .; if datatype(seed, 'W') then call random ,,seed /*use RANDOM seed? */
__= copies('─', 9) /*literal used in the game's prompting.*/
do forever /*$ = computer; @ = human or CBLF. */
do until $pot+3<$g; $pot = random(0, 3) /*get a computer number for the pot. */
$g = random(0, 6) /* " " " " " " guess. */
end /*until*/
say
say copies('─', 55); say __ "The computer has got a pot and a guess."
@pot= 0
@pot= prompt(__ 'What is your pot? (or QUIT)' )
@g= prompt(__ 'What is your guess? (or QUIT)', .)
say __ "The computer's pot is: " $pot
say __ "The computer's guess is: " $g
pot= $pot + @pot
say
select
when $g==pot & @g==pot then say __ 'This game is a draw.'
when $g==pot then say __ 'This game won by the computer.'
when @g==pot then say __ 'This game won by you. Congratulations!'
otherwise say __ 'This game has no winner.'
end /*select*/
end /*forever*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
prompt: do forever; er= __ '***error*** '; say arg(1); parse pull # y . 1 _,?
upper #; if abbrev('QUIT', #, 1) then exit 1 /*user wants to quit? */
if #=='' then do; say er "no argument entered." ; iterate; end
if y\=='' then do; say er "too many arguments:" _; iterate; end
if \datatype(#,'N') then do; say er "argument isn't numeric:" #; iterate; end
if \datatype(#,'W') then do; say er "argument isn't an integer:" #; iterate; end
if ?==. & @pot+3>=# then do; say er "illegal input for guess:" #; iterate; end
#= # / 1; return #
end /*forever*/</syntaxhighlight>
{{out|output|text=:}}
<pre>
───────────────────────────────────────────────────────
───────── The computer has got a pot and a guess.
───────── What is your pot? (or QUIT)
1 ◄■■■■■■■■■■■ user input.
───────── What is your guess? (or QUIT)
2 ◄■■■■■■■■■■■ user input.
───────── The computer's pot is: 1
───────── The computer's guess is: 6
───────── This game won by you. Congratulations!
───────────────────────────────────────────────────────
───────── The computer has got a pot and a guess.
───────── What is your pot? (or QUIT)
3 ◄■■■■■■■■■■■ user input.
───────── What is your guess? (or QUIT)
4 ◄■■■■■■■■■■■ user input.
───────── The computer's pot is: 2
───────── The computer's guess is: 6
───────── This game has no winner.
───────────────────────────────────────────────────────
───────── The computer has got a pot and a guess.
───────── What is your pot? (or QUIT)
4 ◄■■■■■■■■■■■ user input.
───────── What is your guess? (or QUIT)
2 ◄■■■■■■■■■■■ user input.
───────── The computer's pot is: 1
───────── The computer's guess is: 5
───────── This game won by the computer.
───────────────────────────────────────────────────────
───────── The computer has got a pot and a guess.
───────── What is your pot? (or QUIT)
q ◄■■■■■■■■■■■ user input.
</pre>
=={{header|Ring}}==
<
# Project : Spoof game
Line 603 ⟶ 1,147:
ok
next
</syntaxhighlight>
Output:
<pre>
Line 631 ⟶ 1,175:
My guess is: 5
No winner!
</pre>
=={{header|Wren}}==
{{trans|Kotlin}}
{{libheader|Wren-ioutil}}
{{libheader|Wren-math}}
<syntaxhighlight lang="wren">import "random" for Random
import "./ioutil" for Input, Output, Stdin
import "./math" for Nums
var TEST = true // set to 'false' to erase each player's coins
var getNumber = Fn.new { |prompt, min, max, showMinMax|
prompt = prompt + (showMinMax ? " from %(min) to %(max) : " : " : ")
var input = Input.integer(prompt, min, max)
System.print()
return input
}
var rand = Random.new()
var players = getNumber.call("Number of players", 2, 9, true)
var coins = getNumber.call("Number of coins per player", 3, 6, true)
var remaining = List.filled(players, 0)
for (i in 0...players) remaining[i] = i + 1
var first = 1 + rand.int(players)
var round = 1
System.print("The number of coins in your hand will be randomly determined for")
System.print("each round and displayed to you. However, when you press ENTER")
System.print("it will be erased so that the other players, who should look")
System.print("away until it's their turn, won't see it. When asked to guess")
System.print("the total, the computer won't allow a 'bum guess'.")
while(true) {
System.print("\nROUND %(round):\n")
var n = first
var hands = List.filled(players + 1, 0)
var guesses = List.filled(players + 1, -1)
while (true) {
System.print(" PLAYER %(n):")
System.print(" Please come to the computer and press ENTER")
hands[n] = rand.int(coins + 1)
Output.fwrite(" <There are %(hands[n]) coin(s) in your hand>")
Stdin.readLine()
if (!TEST) {
System.write("\e[1A") // move cursor up one line
System.write("\e[2K") // erase line
System.print("\r") // move cursor to beginning of line
} else System.print()
while (true) {
var min = hands[n]
var max = (remaining.count - 1) * coins + hands[n]
var guess = getNumber.call(" Guess the total", min, max, false)
if (!guesses.contains(guess)) {
guesses[n] = guess
break
}
System.print(" Already guessed by another player, try again")
}
var index = remaining.indexOf(n)
n = (index < remaining.count - 1) ? remaining[index + 1] : remaining[0]
if (n == first) break
}
var total = Nums.sum(hands)
System.print(" Total coins held = %(total)")
var eliminated = false
for (i in remaining) {
if (guesses[i] == total) {
System.print(" PLAYER %(i) guessed correctly and is eliminated")
remaining.remove(i)
eliminated = true
break
}
}
if (!eliminated) {
System.print(" No players guessed correctly in this round")
} else if (remaining.count == 1) {
System.print("\nPLAYER %(remaining[0]) buys the drinks!")
return
}
var index2 = remaining.indexOf(n)
first = (index2 < remaining.count - 1) ? remaining[index2 + 1] : remaining[0]
round = round + 1
}</syntaxhighlight>
{{out}}
Sample game:
<pre>
Number of players from 2 to 9 : 3
Number of coins per player from 3 to 6 : 3
The number of coins in your hand will be randomly determined for
each round and displayed to you. However, when you press ENTER
it will be erased so that the other players, who should look
away until it's their turn, won't see it. When asked to guess
the total, the computer won't allow a 'bum guess'.
ROUND 1:
PLAYER 3:
Please come to the computer and press ENTER
<There are 3 coin(s) in your hand>
Guess the total : 7
PLAYER 1:
Please come to the computer and press ENTER
<There are 0 coin(s) in your hand>
Guess the total : 5
PLAYER 2:
Please come to the computer and press ENTER
<There are 0 coin(s) in your hand>
Guess the total : 3
Total coins held = 3
PLAYER 2 guessed correctly and is eliminated
ROUND 2:
PLAYER 1:
Please come to the computer and press ENTER
<There are 3 coin(s) in your hand>
Guess the total : 5
PLAYER 3:
Please come to the computer and press ENTER
<There are 2 coin(s) in your hand>
Guess the total : 4
Total coins held = 5
PLAYER 1 guessed correctly and is eliminated
PLAYER 3 buys the drinks!
</pre>
=={{header|zkl}}==
{{trans|Ring}}
<
reg mypot,yourpot,myguess,yourguess;
do{ mypot,myguess = (0).random(4),(0).random(7); // 0..3, 0..6
Line 657 ⟶ 1,338:
try{ return(ask(msg).strip().toInt()) }
catch{ println("ack"); return(self.fcn(msg)) } // tail recursion
}</
{{out}}
<pre style="height:35ex">
| |||