Perl

Ruby code posted by tabac!
created at 14 Mar 22:34, updated at 13 Apr 03:53

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl

use strict;
use warnings;

our $x, $y;

for ($x=1; $x<=10; $x++) {
  for ($y=1; $y<=10; $y++) {
    printf("%3d ", $x*$y);
  }
  print "\n";
}
171 Bytes in 2 ms with coderay