"be consistent" PerlMonks

### Re: Secret Perl Operators: the boolean list squash operator, x!!

by eyepopslikeamosquito (Chancellor)
 on Jul 31, 2006 at 21:40 UTC ( #564877=note: print w/replies, xml ) Need Help??

```-ap056 sub b{\$_=lc;y/aeiouy//."/".y/a-z0-
9//}\$c=\$b=':^I';map{\$c.=pack\$l=A.((\$l=y///c)>3?++\$l:4),\$_;\$b.=pack\$l,b
+}@F;\$c
=~s/(.{59})...+\S.*/\$1.../&&\$b=~s/(.{58}\S*).*/\$1/;\$_=(@F."\$c
".b."\$b
")x!!@F;s/ *\$//mg
```
```-n0 for\$n(A..Z){\$;[pos=-split/\$n/i].="\$n \$#_\n"x!!\$#_}print@
```
```y/01/ #/,@F=/.../g,print"@F[@_]
"for unpack'(b30)*','\xE7\xDF\xFF?%\xD9\x84-
\xE5\xFF\x9F?eH\x96%\xE7\xCF\x9F?'x!!split//,pop
```
```-nl sub J{map\$_[\$s-\$_].=pop,1..\$s;@_}\$s=8;sub
S{/./g;\$&^t||!(\$s/=2)?(\$&x\$s)x\$s:(J(&S,&S),J&S,&S)x!!(\$s*=2)}print for
+ S
```
```-pa (\$~,\$;,@F)=sort{\$a-\$b}@F,(\$c=\$~+\$;)x!!s/\b\$~\b|\b(\$;)\b/\$c,\$#-
/gwhile\$;;s/\$c|,//g
```
```sub
b{[@b=(abs||No,bottle."s"x!!++\$_,of,beer),on,the,wall]}print
"@{+b},\n@b,\nTake one down, pass it around,\n@{+b}.\n"
for-pop||-99..-1
```

Create A New User
Node Status?
node history
Node Type: note [id://564877]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2018-04-20 22:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (81 votes). Check out past polls.

Notices?