script1_random.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use List::Util qw(shuffle);
   5
   6 my $string = " :) " unless $ARGV[0];
   7 $string = " (: " unless not $ARGV[0];
   8
   9 my @prehash = shuffle(1..1000);
  10 my %dontprint;
  11
  12 foreach (1..100) {
  13         $dontprint{$prehash[$_]} = 1;
  14 }
  15
  16 foreach (1..1000) {
  17         unless (exists $dontprint{$_}) {print $string};
  18         unless (not exists $dontprint{$_}) {print "    "};
  19 }
  20
  21 print;