multiplication table in Perl

(thing) by ariels Thu Jan 11 2001 at 10:47:55
Simple, snappy, short: 
#!/usr/local/bin/perl -w
use strict;
for$-(1..9){printf'%3d',$_*$-for 1..9;print$/}
Much easier than memorising your multiplication tables, no?

-w and strict optional, of course.

del.icio.us Furl Facebook Digg StumbleUpon Reddit   (I like it!) 1 C!
Y'know, if you log in, you can write something here, or contact authors directly on the site. Create a New User if you don't already have an account.