home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / demo_table.pl < prev    next >
Encoding:
Perl Script  |  2001-04-26  |  594 b   |  18 lines
  1. #! /usr/local/bin/perl -w
  2.  
  3. use Text::Reform;
  4.  
  5. my @values   = (1..12);
  6.  
  7. my @squares  = map { sprintf "%.6g", $_**2    } @values;
  8. my @roots    = map { sprintf "%.6g", sqrt($_) } @values;
  9. my @logs     = map { sprintf "%.6g", log($_)  } @values;
  10. my @inverses = map { sprintf "%.6g", 1/$_     } @values;
  11.  
  12. print +form
  13. "  N      N**2    sqrt(N)      log(N)      1/N",
  14. "=====================================================",
  15. "| [[  |  [[[  |  [[[[[[[[[[ | [[[[[[[[[ | [[[[[[[[[ |
  16. -----------------------------------------------------",
  17. \@values,  \@squares,    \@roots,       \@logs,      \@inverses;
  18.