Re: More fun with a reference

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

Comment on Re: More fun with a reference Download Code

Replies are listed 'Best First'.
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]