Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: (Golf) Cryptographer's Tool #1

by btrott (Parson)
on Jun 20, 2001 at 00:50 UTC ( #89809=note: print w/ replies, xml ) Need Help??

in reply to (Golf) Cryptographer's Tool #1

Here's mine. Not particularly interesting, really, and probably missing out on a few standard golf tricks.

sub c {my(@a,%h,$i)=split//,pop;my$s=pop;$s=~s!(.)!$h{$1}||=$a[$i++]!g +e;$s}
67 chars.

Update: got rid of one character by using substr:

sub c {my($a,%h,$i)=pop;my$s=pop;$s=~s!(.)!$h{$1}||=substr$a,$i++,1!ge +;$s}
66 chars.

Update 2: if you don't need strict:

sub c {($s,$a)=@_;my(%h,$i);$s=~s!(.)!$h{$1}||=substr$a,$i++,1!ge;$s}

Update 3: Oh, and the reason I'm still initializing %h and $i is so that the sub will work on repeated invocations. If we don't *have* to do that, this will do:

sub c {($s,$a)=@_;$s=~s!(.)!$h{$1}||=substr$a,$i++,1!ge;$s}

Update 4: Use $_:

sub c {($_,$a)=@_;s!(.)!$h{$1}||=substr$a,$i++,1!ge;$_}

Update 5: Okay, so none of these actually *work* per the spec. Thanks, tilly. :)

Comment on Re: (Golf) Cryptographer's Tool #1
Select or Download Code
Re (tilly) 2: (Golf) Cryptographer's Tool #1
by tilly (Archbishop) on Jun 20, 2001 at 01:21 UTC

    All 4 solutions fail if the alphabet includes a 0. (That is zero.)

      I move that it be resolved that for the purposes of this golf the alphabet may not include a zero.

      Is there a second?


        Absolutely. :)
        I move that it be resolved that the golf meet the original spec. Particularly since it was rather carefully and precisely defined.

        Which means that you lazy bums also need to handle the ASCII character "\n" correctly. :-P

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://89809]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2014-11-23 22:49 GMT
Find Nodes?
    Voting Booth?

    My preferred Perl binaries come from:

    Results (134 votes), past polls