Select Code to Download

perl -MBenchmark=cmpthese -e'cmpthese -1, { cute => sub { [0,1]->[rand
+ 2] }, list => sub { qw(0 1)[rand 2] } }'

          Rate cute list
cute  768000/s   -- -74%
list 2899719/s 278%   --