More fun with a reference


Pathologically Eclectic Rubbish Lister
	PerlMonks

by kschwab (Vicar)

on Dec 22, 2018 at 17:48 UTC ( [id://1227611]=obfuscated: print w/replies, xml )

Need Help??

Stealing part of choroba's idea.

perl -e 's/^/pack+q.a..($^F^$^F**$^F),qq^\x19"\x11\x04mX^^\$\//e/print
+'
[download]

Comment on More fun with a reference Download Code

Replies are listed 'Best First'.
Re: More fun with a reference by Tux (Canon) on Dec 27, 2018 at 10:05 UTC
`perl -E'@C=(split$C,$C.\"cC")[1..4];for(@C,$C,$,,$)){$C[$_]++for$C,2,$#C};$C[2]^="\cC";say@C'` Enjoy, Have FUN! H.Merijn	[reply] [d/l]
Re^2: More fun with a reference by kschwab (Vicar) on Dec 27, 2018 at 16:15 UTC
Love it. Needs more 'C' though :) `perl -E'@C=(split$C,$C.\"cC")[++$^C..$^C<<$^C+($^C)];for(@C,$c,$c,$c){ +$C[$_]++for$C,2,$#C};$C[$^C<<1]^="\cC";say@C'` [download]	[reply] [d/l]

Domain Nodelet^?

Node Status^?

node history
Node Type: obfuscated [id://1227611]
Approved by Discipulus
Front-paged by haukex
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others about the Monastery: (5)

As of 2024-04-25 12:59 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found