Re^2: What's the answer to this puzzle? Most unique/golfed solution? (fun)


There's more than one way to do things
	PerlMonks

by liverpole (Monsignor)

on Sep 23, 2011 at 14:42 UTC ( #927574=note: print w/ replies, xml )

Need Help??

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'
[download]

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Comment on Re^2: What's the answer to this puzzle? Most unique/golfed solution? (fun) Download Code

Node Status^?

node history
Node Type: note [id://927574]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others chilling in the Monastery: (5)

As of 2013-05-20 04:05 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?