lecture code viewer

downloads

Code

#!/usr/local/bin/perl

$\= "\n";
use Data::Dumper;

@nums = (1..20);

@nums = sort { rand(3)-1 } @nums;

print Dumper(\@nums);

for (1..10) {
  push @random_numbers, rand();
}

# sort the index based on array values
for $i ( 0..@random_numbers-1 ) {
  print qq(index $i value $random_numbers[$i]);
}

# sort the index based on array values
for $i ( sort { $random_numbers[$a] <=> $random_numbers[$b] } (0..@random_numbers-1) ) {
  print qq(index $i value $random_numbers[$i]);
}