use Perl

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

  by Purdy (2383)

  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
  • 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.
    • Re:Anyone tackled the golf puzzle yet? (Score:1)

      by Purdy (2383) <jasonNO@SPAMpurdy.info> on 2002.02.02 12:28 (#3996) Homepage Journal

      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

      Reply to This

      Parent