http://www.perlmonks.org?node_id=862789

$;^=$;;$:='+';${::}{$:}=$_,for{},[];$==65;@+=map{$=<<=1; $=^=131,if+128&$=;chr$=}0..1<<8;@+{@+}=(0..126)x$=;print map{$:=$+[$+{$:}+$+{z}];$/=$;;$/=$;eq$/?$_:$+[$+{$/}+$+{ $:}]^$_,for@_;$/}@_=split//,'C|fqF[Ja-Dh{wzZf8t})1N@C:';

My second contribution here does not like strictures, I admit, but mostly for aesthetical reasons. With a rather simple change it would. And ambrus is right: This kind is somewhat less like minigolf.

Replies are listed 'Best First'.
Re: Dollar Plus
by ambrus (Abbot) on Oct 01, 2010 at 17:51 UTC
Re: Dollar Plus
by ambrus (Abbot) on Oct 02, 2010 at 21:30 UTC