bin/meme-math.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 my $start = time;
   7 for (my $n = 0; $n < 100; $n++) {
   8     my $f = $n - 25;
   9     my $tmp = 50 - $n;
  10     my $b = $tmp * $tmp;
  11
  12     my $ans = $n * $n;
  13     my $ans2 = sprintf("%02d%02d",$f,$b);
  14     #my $ans2 = 100*$f+$b;
  15     print "$n^2 = $ans => $ans2\n" unless $ans == $ans2;
  16 }
  17 my $end = time - $start;
  18
  19 print "Execution Time: $end";