On Sun, Jun 30, 2002 at 08:43:50PM +0100, Qingning Huo wrote: > Here is my 39, > > #!perl -p > y/!b/ > /;s!\d(?=\d*(\D))\D?!$1x$&!eg
Isn't that a 40?
Here is mine. It is only one char longer than yours, I counted it as 41.
#!perl -p
y/!b/
/;s/./$;+=$&;$;=$&x$;if$&<1/ge
CU,
Sec
--
Do not meddle in the affairs of sysadmins,
they are quick to anger and have no need for subtlety.
