Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
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. :)

Replies are listed 'Best First'.
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?

      :)

        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

        Absolutely. :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://89809]
help
Chatterbox?
[stevieb]: I'm rather pleased with myself and everything I've leared along this arduous and sometimes frustrating path
[stevieb]: Just need to implement an email plugin or something so I can get alerted remotely if the status of a build has changed from the last run
[stevieb]: Because of the extreme complexity of the testing code itself, I implemented extensive logging so I can troubleshoot much easier by setting a high debug level.
[stevieb]: if you're interested in the test/build backend, have a look at Test::BrewBuild.

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2017-04-28 21:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (529 votes). Check out past polls.