Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • by ziggy (25) on 2002.05.10 8:36 (#8230) Journal
    You could shave some strokes off of that:
    print $ARGV[0]**.5    ## Starting solution: 18 strokes

    print$ARGV[0]**.5     ## Extraneous whitespace
    print shift()**.5     ## D'OH! ()'s needed here
    print pop()**.5       ## Single-arg version: 15 strokes
    :-) ** 2