Demo/comparisons/README

   1 Subject: Re: What language would you use?
   2 From: Tom Christiansen <tchrist@mox.perl.com>
   3 Date: 6 Nov 1994 15:14:51 GMT
   4 Newsgroups: comp.lang.python,comp.lang.tcl,comp.lang.scheme,comp.lang.misc,comp.lang.perl
   5 Message-Id: <39irtb$3t4@csnews.cs.Colorado.EDU>
   6 References: <39b7ha$j9v@zeno.nscf.org> <39hhjp$lgn@csnews.cs.Colorado.EDU> <39hvsu$dus@mathserv.mps.ohio-state.edu>
   7
   8 [...]
   9 If you're really into benchmarks, I'd love it if someone were to code up
  10 the following problems in tcl, python, and scheme (and whatever else you'd
  11 like).  Separate versions (one optimized for speed, one for beauty :-) are
  12 ok.  Post your code so we can time it on our own systems.
  13
  14 0)  Factorial Test  (numerics and function calls)
  15
  16         (we did this already)
  17
  18 1)  Regular Expressions Test
  19
  20     Read a file of (extended per egrep) regular expressions (one per line),
  21     and apply those to all files whose names are listed on the command line.
  22     Basically, an 'egrep -f' simulator.  Test it with 20 "vt100" patterns
  23     against a five /etc/termcap files.  Tests using more elaborate patters
  24     would also be interesting.  Your code should not break if given hundreds
  25     of regular expressions or binary files to scan.
  26
  27 2)  Sorting Test
  28
  29     Sort an input file that consists of lines like this
  30
  31         var1=23 other=14 ditto=23 fred=2
  32
  33     such that each output line is sorted WRT to the number.  Order
  34     of output lines does not change.  Resolve collisions using the
  35     variable name.   e.g.
  36
  37         fred=2 other=14 ditto=23 var1=23
  38
  39     Lines may be up to several kilobytes in length and contain
  40     zillions of variables.
  41
  42 3)  System Test
  43
  44     Given a list of directories, report any bogus symbolic links contained
  45     anywhere in those subtrees.  A bogus symbolic link is one that cannot
  46     be resolved because it points to a nonexistent or otherwise
  47     unresolvable file.  Do *not* use an external find executable.
  48     Directories may be very very deep.  Print a warning immediately if the
  49     system you're running on doesn't support symbolic links.
  50
  51
  52 I'll post perl solutions if people post the others.
  53
  54
  55 --tom
  56 --
  57 Tom Christiansen      Perl Consultant, Gamer, Hiker      tchrist@mox.perl.com
  58
  59  "But Billy! A *small* allowance prepares you for a lifetime of small
  60  salaries and for your Social Security payments."    --Family Circus