More fun with a reference

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]