in reply to Re: What's the answer to this puzzle? Most unique/golfed solution? (fun)
in thread What's the answer to this puzzle? Most unique/golfed solution? (fun)
thundergnat,
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
This just trims a few characters from your approach, which I think is a very good one (I couldn't find an inherently better one).
# 68 strokes perl -E'map{say$_=$t||1;$t="";$t.=(length$&).$1while/(.)\1*/g}0..19'
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
|
---|
In Section
Seekers of Perl Wisdom