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