Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

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}
61.

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}
51.

Update 4: Use $_:

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

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
    *ahem*

    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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2014-08-31 00:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls