Re: ACA JAPH (hints)

[goibhniu]

My first clue is to explain ACA in the post. It's probably not very helpful; just a nudge in a direction. Here's the link:

<Reveal this spoiler or all spoilers in this node or all in this thread>

My next clue is somethign most here could do themselves, but I just learned it this week (from reading PerlMonks!). Here's the perl -MO=Deparse output (this is without eyepopslikeamosquito's reduction):

@ca = (sub {
    @kp = split(//, shift @_, 0);
    $c = shift @_;
    $p2{' '} = ' ';
    $C2{' '} = ' ';
    foreach $_ (@kp, ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'
+, 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x
+', 'y', 'z')) {
        if (not exists $p2{$_}) {
            $k = chr 65 + ($a++ + $c) % 26;
            $p2{$_} = $k;
            $C2{$k} = $_;
        }
    }
}
, sub {
    $t = shift @_;
    $h = shift @_;
    foreach $_ (split(//, $t, 0)) {
        $r = $r . $$h{$_};
    }
    return $r;
}
);
$ca[0]->('thequickbrownfoxjumpsoverthelazydogs', 10);
print $ca[1]->('ZOCK FWUKLMT BMTE LFQR', \%C2) . "\n";

My next clue is to comment my variables. This is a big leap and probably a give away. I wish I had better intermediate clues for ya.

<Reveal this spoiler>

ok, here's what I'm doing:

<Reveal this spoiler>