home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.8.3.809-MSWin32-x86.msi / _34631936832d86d12456aa47b0afb8ba < prev    next >
Encoding:
Text File  |  2004-02-02  |  611 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.