On Sat, 16 Feb 2002, Paul Johnson wrote: > On Fri, Feb 15, 2002 at 11:47:27PM +0000, Stephen Turner wrote: > > > Well, I repeat my challenge. Can anyone beat Karsten's 46 without using > > POSIX? > > I think my entries must have been late, but here's a 41. > > #!/usr/bin/perl -l > $_=pop;print/A/?360:/B/?47:/Z/?46655:1 > __END__ One char shorter... but still cheating ;-)
#!/usr/bin/perl -l print{1,1,A,360,B,47,Z,46655}->{+pop} -- Philippe "BooK" Bruhat No one profits at the death of another (except for the mortician). (Moral from Groo The Wanderer #7 (Epic))