Threaded Mode | Linear Mode

***Back_track*** · 07-25-2010, 11:52 AM

Code:

#!/usr/bin/perl -w

$Count = 0;

$Think = int(rand 10);

#Creates an psuedo-random integer between 0-10

do{

print "Pick a Number:\t";

chomp($guess=<stdin>); 

if ($guess > $Think){

    print "Too High!\n";      

    }

if($guess < $Think){

    print "Too Low!\n";

    }

    $Count++;

}while($guess != $Think);

print "Correct!\nIt Took You $Count Tries To Get It!\n";

Just added a DoWhile Loop and A Counter.

***drdebcol*** · 07-28-2010, 12:35 AM

Very good and interesting, almost the same that i made in Delphi (GUI) :
http://www.pro9ramming.com/guess-the-num...-t-77.html
Great job !!!

***Back_track*** · 07-28-2010, 02:08 AM

(07-28-2010 12:35 AM)drdebcol Wrote: Very good and interesting, almost the same that i made in Delphi (GUI) :
http://www.pro9ramming.com/guess-the-num...-t-77.html
Great job !!!

Thanks. I may try to do this in Perl/TK. What are your opinions? Should I go for it, or not.