Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!decwrl!ucbvax!iwarp.intel.com!news
From: merlyn@iwarp.intel.com (Randal Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: sort
Message-ID: <1990Aug22.160417.11360@iwarp.intel.com>
Date: 22 Aug 90 16:04:17 GMT
References: <1990Aug21.202005.26275@uvaarpa.Virginia.EDU> <1990Aug21.224327.20194@iwarp.intel.com> <1990Aug22.111018.3329@comp.vuw.ac.nz>
Sender: news@iwarp.intel.com
Reply-To: merlyn@iwarp.intel.com (Randal Schwartz)
Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA
Lines: 23
In-Reply-To: Andrew.Vignaux@comp.vuw.ac.nz (Andrew Vignaux)

In article <1990Aug22.111018.3329@comp.vuw.ac.nz>, Andrew.Vignaux@comp (Andrew Vignaux) writes:
| 	$s=(localtime(time))[0]; sub n { ($a - $b) * $s; }
| 
| print grep(s/.*\t//,sort n grep($_=++$i/-50."\t$_",split(/\n*/,<<JAPH)));
| ,rekcah lreP rehtona tsuJ
| JAPH

Wow!  A piece of code that really *does* fail based on time-of-day!
(And in Perl... I'm heartbroken. :-)

| Lament:		Why do my one-liners never fit in one line? :-(

You don't use long enough lines. :-)

P.S. If you don't see it, think about what happens at 0 seconds into
the minute.

print "Just another Perl [book] hacker,"
-- 
/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\
| on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III      |
| merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn |
\=Cute Quote: "Welcome to Portland, Oregon, home of the California Raisins!"=/