Penney's game: Difference between revisions

 

 

 

Create a program that tosses the coin, keeps score and plays Penney's game against a human opponent.

* Who chooses and shows their sequence of three should be chosen randomly.

* If going second, the computer should automatically play [[wp:Penney's_game#Analysis_of_the_three-bit_game|the optimum sequence]].

* Successive coin tosses should be shown.

 

 

* [https://www.youtube.com/watch?v=OcYnlSenF04 The Penney Ante Part 1] (Video).

* [https://www.youtube.com/watch?v=U9wak7g5yQA The Penney Ante Part 2] (Video).

 

=={{header|Batch File}}==

::Penney's Game Task from Rosetta Code Wiki

::Batch File Implementation

 

:validate

)

{{out}}

Note: The outputs of tosses are 'delayed' just to make the game a little more dramatic.

 

[Type Y if U Wanna Beat Me, or Else, Exit...]</pre>

 

=={{header|C}}==

This solution stores the sequences in bit-packed integers. With minor adjustments, this can be extended to allow larger sequence lengths beyond the required 3. However, the ai's algorithm for the perfect choice would need to be altered. More robust methods of input could be chosen, as scanf is generally fairly unsafe. A safer alternative would be to use something like fgets, and parse the input string ourselves.

#include <stdio.h>

#include <stdlib.h>

return 0;

}

{{out}}

<pre>

 

</pre>

=={{header|C++}}==

#include <time.h>

#include <iostream>

return 0;

}

{{out}}

<pre>

[Y] to play again

</pre>

 

=={{header|D}}==

{{trans|Python}}

import std.stdio, std.random, std.algorithm, std.string,

std.conv, std.range, core.thread;

Thread.sleep(1.seconds);

}

The output is the same as the Python entry.

 

=={{header|Haskell}}==

import System.IO

import System.Random

stdgen <- getStdGen

let (cpuFirst, genA) = random stdgen

{{out}}

<pre>

=={{header|J}}==

'''Solution:'''

 

randomize '' NB. randomize seed for new session

'Toss sequence is %s' printf < (3 + <./ Result) {. Tosses

echo ('No result';'You win!';'Computer won!') {::~ *-/ Result

'''Usage:'''

Computer chose TTT

Choose a sequence of three coin tosses (H/T):

Computer chose HHT

Toss sequence is HTHTT

 

=={{header|Java}}==

 

public class PenneysGame {

return s;

}

 

<pre>Computer chooses HTH

Computer wins!</pre>

 

 

}

}

}

}

}

 

 

}

}

}

}

 

}

{{out}}

 

import random

from time import sleep

print('\n I win!')

break

 

{{out}}

You win!

>>> </pre>

 

=={{header|Racket}}==

This does what's required of it from the task... just don't input anything outside the alphabet "htHT" for the human move.

 

;; Penney's Game. Tim Brown 2014-10-15

(define (flip . _) (match (random 2) (0 "H") (1 "T")))

(printf "~a chooses: ~a~%" (car p1) (flips->string (cdr p1)))

(values p1 (cons 'Hom-Sap (get-human-sequence)))]))

 

{{out}}

</pre>

(Nail-biting stuff!)

 

=={{header|REXX}}==

<pre>

───────── The computer won first toss, the pick was: HHH

 

───────── Pick a sequence of 3 coin tosses of H or T (Heads or Tails) or Quit:

 

───────── your pick: TTT

 

───────── Pick a sequence of 3 coin tosses of H or T (Heads or Tails) or Quit:

 

───────── your pick: HHT

 

───────── Pick a sequence of 3 coin tosses of H or T (Heads or Tails) or Quit:

 

───────── your pick: HHH

 

───────── Pick a sequence of 3 coin tosses of H or T (Heads or Tails) or Quit:

 

───────── your pick: TTH

 

───────── Pick a sequence of 3 coin tosses of H or T (Heads or Tails) or Quit:

 

───────── your pick: THH

 

───────── Pick a sequence of 3 coin tosses of H or T (Heads or Tails) or Quit:

───────── Oops! You can't choose the computer's choice: TTH

 

───────── Pick a sequence of 3 coin tosses of H or T (Heads or Tails) or Quit:

 

───────── your pick: THT

 

───────── Pick a sequence of 3 coin tosses of H or T (Heads or Tails) or Quit:

</pre>

 

 

def yourChoice

puts "Enter your choice (H/T)"

end

 

loop do

 

{{out}}

Heads Heads Tails Heads Tails Heads Tails Tails Tails Tails Tails Tails Tails Heads Heads

You win!

</pre>

 

=={{header|Tcl}}==

{{works with|Tcl|8.6}}

 

oo::class create Player {

}

 

{{out|Sample Game}}

<!-- Huh! This was a long one… -->

=={{header|UNIX Shell}}==

{{works with|Bash}}

main() {

 

if [[ $(flip) == H ]]; then

p2=$(choose_sequence)

else

fi

 

while true; do

case "$p1" in

esac

done

 

p2=$(choose_sequence "$p1")

fi

 

 

while true; do

flip=$(flip)

flips+=$flip

case "$flips" in

esac

done

if (( $# )); then

case "$1" in

*) result=H;;

esac

result=$(flip)$(flip)$(flip)

fi

}

 

flip() {

else

fi

}

 

 

{{Output}}

 

Human first:

Flipping to see who goes first ... You do.

 

I win!</pre>