in reply to What's the answer to this puzzle? Most unique/golfed solution? (fun)
55 characters:
perl -E'$_=1;say,s/(.)\1*/$&=~y...c.$1/ge while$i++<19'
In Section
Seekers of Perl Wisdom
in reply to What's the answer to this puzzle? Most unique/golfed solution? (fun)
55 characters:
perl -E'$_=1;say,s/(.)\1*/$&=~y...c.$1/ge while$i++<19'