Help for this page

Select Code to Download


  1. or download this
     
    $ perl graph.pl 3
    5 6 9
 
    $ perl graph.pl 4
    1 2 3 4
  2. or download this
     
$ perl graph.pl 3
would give:
...
1 3 4
2 3 4
5 6 9
  3. or download this
    _BEGIN__
#Credit Greg Bacon
...
            print join(" ", map $$_, 1..$k), "\n";
        }
__END__