#!/usr/bin/perl -w

use strict ;

my $samplesize = $ARGV[0] ;
my $max        = $ARGV[1] ;

chomp(my $prog = `basename $0`) ;

if ($#ARGV < 1)
{
  print "\nUsage: ./randomnumber.pl <samplesize> <max num>\n" ;
  exit ;
}


for (my $i = 0; $i<$samplesize; $i++)
{
  my $range = $max ;
  my $random_number = int(rand($range)) - $max/2;
  print "$random_number \n";
}

##</code><code>##

#!/usr/bin/perl -w

use strict ;


my %bin ;
my %size;
my %value ;
my $max = 0 ;
my $min = 0 ;
my $count ;


while ( <STDIN> ) 
{
   my @line= split  ;
   my $element = $line[0] ;
   $value{$element}++ ;
}



foreach my $i (sort {$a<=>$b} keys %value)
{
  if ($i > $max)
  {
    $max = $i ;
  }
  if ($i < $min)
  {
    $min = $i ;
  }
}