Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: Golf: RPN calculator

by jmcnamara (Monsignor)
on Jul 26, 2001 at 17:00 UTC ( #99958=note: print w/replies, xml ) Need Help??

in reply to Golf: RPN calculator

It is sad to say but I'm beginning to see everything through Golf tinted glasses. Even module releases.

These are 45 chars. The arg list is included as an example:
perl -MMath::RPN -le'print+rpn+join",",@ARGV' 100 9 '*' 5 / 32 + perl -MMath::RPN -le'$"=",";print+rpn"@ARGV"' 100 9 '*' 5 / 32 +


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://99958]
[Lady_Aleena]: Why does grep(/.*$in.*/, @my_modules) work but grep { $_ =~ /.*$in.*/; $_ } @my_modules not work? What did I do wrong in the second?
[tobyink]: Why are you returning $_ n your grep block? You should return a boolean.
[tobyink]: *in your grep block
[tobyink]: You can use grep { $_ =~ /.*$in.*/; } @my_modules but why not stick to grep(/.*$in.*/, @my_modules)? (The latter is faster.)
[shmem]: Lady_Aleena, in the first example grep evaluates the result from grep and if true, returns $_. In the second, it always returns $_
[shmem]: ..the result from the pattern match
[Lady_Aleena]: tobyink, I did after I failed to get the BLOCK to work. I can't seem to get my brain around grep BLOCK, though I'm okay with grep EXPR.
[shmem]: so in the second example grep returns all true elements of the list passed

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2017-05-27 07:40 GMT
Find Nodes?
    Voting Booth?