Select Code to Download

  #! /usr/bin/perl -w
  use strict;
...

  cmpthese (-1, {interp => "interpolated()",
                 nonint => "noninterpolated()"});

            Rate nonint interp
  nonint 13917/s     --    -0%
  interp 13964/s     0%     --