Re: potential Golf task - seconds -> years, days ...

[Andrew . Savige]

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@
)

Sorry 'bout that.

/-\