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