http://qs321.pair.com?node_id=1226862


in reply to Re: Make random numbers
in thread Make random numbers

Hi friend , this is my code

#Hi First practice for PR class use warnings ; use strict ; print 'First Number > ' ; chomp(my $A = <STDIN>) ; print 'Second Number > ' ; chomp(my $B = <STDIN>) ; my @range = ($A .. $B) ; my $rndn = $range[rand(@range)] ; my @points ; my $counter = 0 ; while ($counter <= 100) { $rndn ; push @{$points[$counter]},$rndn ; $counter++ ; } print @points, "\n" ;