Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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 musing on the Monastery: (5)
As of 2014-09-21 12:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (168 votes), past polls