Penney's game: Difference between revisions

function penny_game()

local player, computer = "", ""

function player_choose()

io.write( "Enter your sequence of three H and/or T: " )

local t = io.read():upper()

for i = 1, 3 do

c = t:sub( i, i )

return t

end

function computer_choose()

local t = ""

if player:sub( 2, 2 ) == "T" then

t = "H"

return t

end

if math.random( 2 ) == 1 then

computer = computer_choose()

io.write( "My sequence is: " .. computer .. "\n" )

end

local coin, i = "", 1

while( true ) do

io.write( "H" )

end

i = i + 1

if seq == player then

end

end

math.randomseed( os.time() )

local cpu, user = 0, 0

r = penny_game()

if r > 0 then

io.write( "Play again (Y/N)? " )

r = io.read()

</lang>

{{out}}

>Exit code: 0

</pre>

=={{header|Perl}}==

<lang perl>