My first attempt (a.k.a. learning to use map)

Comments and suggestions desired. Thanks.

$_='$a="PRLMONKS";x($h{$_}=$_,(x ord($_)%74,split//,$a));print"$_\n"fo
+reach(x($h{$_}*$_,(sort keys%h)));';$_=~s/x/map/g;eval;
[download]

Comment on My first attempt (a.k.a. learning to use map) Download Code

Replies are listed 'Best First'.
Re: My first attempt (a.k.a. learning to use map) by Zaxo (Archbishop) on Sep 28, 2001 at 08:01 UTC
I think you got your mapping exercise. For `$_=~s/x/map/g;` how about `s gxgmapgig,` as an obfoosticator? After Compline, Zaxo	[reply] [d/l] [select]
Re: My first attempt (a.k.a. learning to use map) by CubicSpline (Friar) on Sep 28, 2001 at 19:16 UTC
Oh no, this is terrible! I need to have a Q in my "PRLMONKS" string. Hello! Well, it was kinda late. Next time!!	[reply]