1: $a=" Jacehklnoprstu";@b=split//,"1ECD0289D54B0A4B7052364B";
   2: foreach $c(@b){$d.=substr($a,hex($c),1);}print"$d\n";

Replies are listed 'Best First'.
RE: This was completely wasted on my wife.
by kryten (Scribe) on Apr 21, 2000 at 23:28 UTC
    My wife doesn't like variables much, so they were wasted on her. 
    foreach(split//,'1ECD0289D54B0A4B7052364BF'){print substr(" Jacehklnop
+rstu\n",hex($_),1)};

    [download]

    kryten
    who feels compelled to admit that he is not actually married, but claims this falls under GPL (General Poetic License.) :)
[reply]
[d/l]
      since your wife doesn't like variables very much why not taking away that $_ too ? foreach(split//,'1ECD0289D54B0A4B7052364BF'){print substr(" Jacehklnoprstu\n",hex,1)}; ;) marcos
[reply]
      Let me also add my own version

      map {unless (/^$/) {y/Q-Z/0-9/; print chr hex;}} split /(\w{2})/, "UAX
+VXTXUSQWRWEWFXUWYWVXSSQXQWVXSWCSQWYWRWTWBWVXSSR";

      [download]

      ;)
      marcos
[reply]
[d/l]
      THAT was cool.
[reply]
      foreach(split//,'937A0864251B'){print substr(" .cEiklRsVY\n",hex($_),1)};
[reply]
        true dat :-)
[reply]
RE: This was completely wasted on my wife.
by Anonymous Monk on Apr 21, 2000 at 21:30 UTC
    Slick.
[reply]

Back to Craft