Select Code to Download

[0] Perl> sub a(){ 1 }; sub b(){ return 1; };;
[0] Perl> cmpthese -1,{ a=>q[ a() for 1 .. 1000;], b=>q[b() for 1 .. 1
+000;] };;
     Rate    b    a
b  4668/s   -- -80%
a 23195/s 397%   --