On Wednesday, May 15, 2002, at 10:49 , Bob Showalter wrote:
Useless advice - the value of merit volks is TPS - Transactions
per Second - from this you can do resolutions through the known
TPK - turns per Knot - and solve the 3-bearing mo-board solution
for final firing solution... Unless you are out of torpedoes,
at which point one should rig for gun action, and call
"Action Stations..."
[..]
>> sub unique{ [ keys {map { $_{$_} = 1 } @_ }] }
> ^^^^^^^^^^^^^^^^^^^^^^
>
> This returns a list of the results of the block { $_{$_} = 1 }
> as evaluated for each value in @_.
[..]
> Now the final sub is:
>
> sub unique { keys %{{map {($_ => 1)} @_}} }
>
> (I removed the square brackets to return a list instead of an
> array ref. Your choice.)
[..]
Survey Says:
Benchmark: timing 100000 iterations of bobb, doGrepMe, harryGrep, notHarry.
...
bobb: 100000.00/s (n=100000)
doGrepMe: 81300.81/s (n=100000)
harryGrep: 135135.14/s (n=100000)
notHarry: 79365.08/s (n=100000)
The Functions return SAME lists
They also have the same count of elements: 48
thought I would get a feel for
sub bobbingForKeys {
keys %{{map {($_ => 1)} @_}}
} # end of bobbingForKeys
sub notAsHarryButt {
return [ keys %{{map {($_ => 1)} @_}} ];
} # end of notAsHarryButt
I still think YOU guys are INSANE...
ciao
drieux
---
Useless advice - the value of merit volks is TPS - Transactions
per Second - from this you can do resolutions through the known
TPK - turns per Knot - and solve the 3-bearing mo-board solution
for final firing solution... Unless you are out of torpedoes,
at which point one should rig for gun action, and call
"Action Stations..."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
