mirror of https://github.com/acidanthera/audk.git
61 lines
2.3 KiB
Plaintext
61 lines
2.3 KiB
Plaintext
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
|