stupid reply-to 2008/5/19 Jasper <[EMAIL PROTECTED]>: > 2007/11/20 Tuomo Salo <[EMAIL PROTECTED]>: >> This one has no performance issues and is even a little bit shorter. Yay! >> >> #!perl -l >> $r=qr/\((??{$r})*\)/;map/^$r+$/&&print,glob"{(,)}"x2x pop > > OK, so it took me a number(!) of months, but this is shorter, and > prints in order.. > > #!perl -l > eval'$c-=fork?wait&&$c?s//(/:.1:- s//)/;'x2x pop||print > > Didn't I read a proverb somewhere about a tortoise and a hare, and the > tortoise losing his job, and the hare shifting the blame onto the > ex-tortoise? > -- > Jasper >
-- Jasper