>>> For each space, parenthesis and semicolon in your solution, think >>> carefully if they are needed. Or just try to remove them, and see if >>> your solution still works. >> >> for(@names){print;last if/Dr /;} >> >> 32 strokes :) >> >> I get the feeling that people are laughing at my puny golfing skills :) > > We all were beginners once. We don't laugh (in public) at people who > make elementary mistakes if they haven't gotten the chance to learn > about them. We laugh at people who make elementary mistakes after they > have been golfing for years. > > And we laugh at people who are told to CHECK FOR EVERY SEMICOLON IF IT > CAN BE REMOVED, AND WHO THEN JUST LEAVE THEM IN!!!
[localhost:~/Programming/Perl/Various code] tor% cat golf #!/usr/bin/perl for(@names){print;last if/Dr /} [localhost:~/Programming/Perl/Various code] tor% ./golf [localhost:~/Programming/Perl/Various code] tor% Hmm, I thought I checked that? 31 strokes :) I'm off to apply this to my TPR0,3 code :) Tor