cardinal golf

[C. Abney]

shoot.

perl -le 'for(1..125){($b,$c)=reverse
split//;print$_,($c!=1?($b==1?"st":$b==2?"nd":$b==3?"rd":"th"):"th")}'


On Fri, 2004-02-06 at 11:33, C. Abney wrote:
> perl -le 'for(1..25){($b,$c)=reverse
> split//;print$_,($b==1&&$c!=1?"st":$b==2&&$c!=1?"nd":$b==3&&$c!=1?"rd":"th")}'
> 
> Best I could do in a half hour (just for fun).
> 
> -- 
> Charles Abney
> Polymorphism Research Laboratory, 0603
> UCSD School of Medicine
> 9500 Gilman Dr.
> La Jolla, CA 92093-0603
-- 
Charles Abney
Polymorphism Research Laboratory, 0603
UCSD School of Medicine
9500 Gilman Dr.
La Jolla, CA 92093-0603
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 307 bytes
Desc: This is a digitally signed message part
Url : http://mail.pm.org/archives/san-diego-pm/attachments/20040206/fb712e97/attachment.bin