home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _34631936832d86d12456aa47b0afb8ba < prev    next >
Text File  |  2004-06-01  |  611b  |  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.