Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict; use warnings;
use YAML::XS;
...
    return $orig;
}
__DATA__
  2. or download this
    ---
key1: &id05
    - &id02
...
            name: baz
            hometown: Perth
...
  3. or download this
                Rate recursive tail_call      loop
recursive  951/s        --       -6%      -14%
tail_call 1016/s        7%        --       -9%
loop      1111/s       17%        9%        --
  4. or download this
    print map{(split//,'hark, suPerJacent other l')[$_]}(11,7,6,16,5,1,15,18..23,8..10,24,17,0,12,13,3,14,2,4);