Select Code to Download

sub shifty {
...
   map { return ++$v } map { $v |= $v >> $_ } (1,2,4,8,16);
}

sub shifty2 {
...
   return ++$v;
}