On Jul 22, 2002 at 04:00:32 +0000, Ton Hospel wrote: > In article <[EMAIL PROTECTED]>, > [EMAIL PROTECTED] writes: > > En op 21 juli 2002 sprak Steffen: > >> #!perl -l > >> $b=$ARGV[0];@a=(1,60,60,24,365);while($a=pop@a){$a*=$_ for@a;print > >> int$b/$a;$b=$b%$a} > > > > Some gratuitous obfuscation and only 8 strokes saved: > > > > #!perl -l > > @)=(s))pop)e,$=,$=,24,365);map($=*=$_,@)),print($_/$=|$%),$_%=$=while$==pop@ > > ) > > > mtve: -l print for(@a=gmtime pop)[5]-70,@a[7,2,1,0]
~> perl -l'print for(@a=gmtime pop)[5]-70,@a[7,2,1,0]' 30844803 0 357 0 0 3 357 days in a year, eh? --rick
