use Perl

• Anyone tackled the golf puzzle yet? (Score:1)

  by Purdy (2383) <jasonNO@SPAMpurdy.info> on 2002.02.01 14:46 (#3959) Homepage Journal

  Shooting a 94 and wondering if it could be lower (I am a beginner, so not using any of those wild $# characters or whatever [yet]).

  Jason

  Reply to This

  • Re:Anyone tackled the golf puzzle yet? (Score:1)

    by Purdy (2383)

    err, make that 92 - love eliminating un-necessary (for golf, anyway - not really usability/readability) ()'s.
    • Re:Anyone tackled the golf puzzle yet? (Score:1)

      by Purdy (2383)

      Last correction: 82 ... I submitted it already, so if I receive any help from here on, I won't feel (as) guilty for submitting it.

      Fun way to kill a few hours... :)

      Jason
      • I'm diseased!! ;) (Score:1)

        by Purdy (2383)

        I ... just ... can't ... stop!

        78!

        Jason
        • Re:I'm diseased!! ;) (Score:1)

          by jhi (318)

          69.
          • Re:I'm diseased!! ;) (Score:1)

            by Purdy (2383)

            ARGHHH!!! HOW?! I'm now at home and had to re-write it from memory and I'm at 76 (getting rid of semi-colons ;)) and don't see another way to reduce what I got so far...

            May try & tackle this with another approach...

            Jason
            • Re:I'm diseased!! ;) (Score:1)

              by jhi (318)

              65, but now I'm no more portable.
              • Re:I'm diseased!! ;) (Score:1)

                by jhi (318)

                62.
                (Yeah, I'm diseased, too. So, what's the news?)
                • Re:I'm diseased!! ;) (Score:1)

                  by jhi (318)

                  59.
                  • Re:I'm diseased!! ;) (Score:1)

                    by Purdy (2383)

                    71 - going out to drink this off ... I don't see how I can get below that (but I said that about 92 ;))

                    Jason

                    PS: hfb - your husband is Eeeevil! ;)
              • Re:I'm diseased!! ;) (Score:3, Funny)

                by hfb (74)

                What is this, a geek porn satire? LOL :)
  • Re:Anyone tackled the golf puzzle yet? (Score:2, Informative)

    by VSarkiss (704)

    Take a look at Ben Tilly's 48 and Blake Miller's 43 in this thread at Perl Monks [perlmonks.org].
    • Re:Anyone tackled the golf puzzle yet? (Score:1)

      by jhi (318)

      Okay, so I'm not diseased enough, which is probably a good thing... :-) I might as well
      send mine to the monks.
      • Re:Anyone tackled the golf puzzle yet? (Score:1)

        by jhi (318)

        So my original final was 59...

        $_=shift;y/0-9A-Z/\0-#/;(s/.//,($a*=36)+=ord$&)while length

        But using the monks' trick's I can get down to 43, too:

        $_=pop;y/0-9A-Z/\0-#/;($a*=36)+=ord for/./g

        Yes, no output. The rules didn't ask for it... (And as someone noted, reading the rules really creatively allows for one character replies...)

        (Okay, so I'm bored, trying to keep this thread alive on my own... :-)
        • Re:Anyone tackled the golf puzzle yet? (Score:1)

          by vsergu (505)

          If you're not printing the result, then you can do
          it in 39 like this:
          
              map{($t*=36)+=/\d/?$_:-55+ord}pop=~/./g
          • Re:Anyone tackled the golf puzzle yet? (Score:1)

            by jhi (318)

            But that is not portable to EBCDIC :-) (and it's not just the question of codepoints...)
            • Re:Anyone tackled the golf puzzle yet? (Score:1)

              by chromatic (983)

              That's funny. I was on the same track, but had to stop when I told myself "Jarkko wouldn't like this, it's too ASCII-centric."
            • Re:Anyone tackled the golf puzzle yet? (Score:1)

              by vsergu (505)

              Hmm, I hadn't realized yours was EBCDIC-capable. I guess since # is \x7b and the letter ranges are special-cased, it is. Very nice.
          • Re:Anyone tackled the golf puzzle yet? (Score:1)

            by Purdy (2383)

            Got back and now that everyone's sharing, I posted mine over @ PM [perlmonks.org], too.

            I'm really impressed with all of these solutions. I don't understand Blake's 43 stroke solution, but it's late here. :)

            I actually understand this solution (vsergu's) and I really like it - similiar to the functionality of mine, but a better twist on the math and lots of cool shortcuts.

            Jason
  • Re:Anyone tackled the golf puzzle yet? (Score:1)

    by garth (867)

    My first attempt at Perl Golf comes in at 49 stokes :-)
    
    $_=shift;if(m/\d/){print;}else{print ord()-55;}
    
    There is probably something wrong in there, and there is no checking of the input, but it is a fairly simple solution. I think I need to subscriber to the FWP list.
    • Bugger (Score:1)

      by garth (867)

      Just realised how wrong my solution is. It only works for one digit numbers.
      
      Oh well, back to the drawing board :-)
    • Re:Anyone tackled the golf puzzle yet? (Score:1)

      by Purdy (2383)

      As you already posted, that works for one digit checks ... some things I learned from PM to shorten your one-digit conversion (which is pretty neat) to 29:

      $_=pop;print(/\d/?$_:-55+ord)

      Jason