Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: (On Speed Diff, etc.) Closure on Closures (beta)

by chunlou (Curate)
on Jun 25, 2003 at 23:12 UTC ( #269051=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
                     Rate     obj_counter closure_counter
    obj_counter     192/s              --            -51%
    closure_counter 388/s            102%              --
    
  2. or download this
    use strict;
    use warnings;
    ...
                       Rate     obj_dir_iter closure_dir_iter
    obj_dir_iter     1667/s               --              -8%
    closure_dir_iter 1818/s               9%               --
    
  3. or download this
    use strict;
    use warnings;
    ...
                     Rate closure_turtle     obj_turtle
    closure_turtle 15.4/s             --           -23%
    obj_turtle     20.0/s            30%             --
    
  4. or download this
    # IF = %b.(%x.(%y.(b x) y))
    $IF = sub { 
    ...
    
    print $IF->($TRUE)->("then")->("else");   # prints "then"
    print $IF->($FALSE)->("then")->("else");  # prints "else"
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://269051]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2014-09-22 15:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (198 votes), past polls