Tuomo Salo <[EMAIL PROTECTED]> writes: > From the keyboard of Phil Carmody (2007-11-15 15:05): > > I saw this on sci.math, and thought "one liner" ;-) > > While I could not squeeze this down to a one 80 char line, there is only > one line that does not begin with a # :-) > > #!perl -l > $\=~s#(.*)\n#"$1(\n"x($1=~y/(//<$a)."$1)\n"x($1=~y/)//*2<$_-1) > #gefor 1..2*($a=pop);print
The following is technically speaking not a one-liner, but is 80 characters total split to multiple lines: #!perl $_||=11x pop;/1(1*) ?(1?)/?map$_&&do$0,$1!=$'&&"$`($1 1$2$'","$`)$1 $'"x$2:print -- Juho Snellman