Select Code to Download

  DB<228> sort { (-1)**(rand(2)%2)  } 1..10
 => (5, 8, 7, 6, 9, 10, 1, 4, 2, 3)

  DB<483> for (1..100000) {$x=0;$g[$x++]{$_}++ for sort {(-1) ** int r
+and 2} a..d }
 => ""
...
  { a => 24773, b => 24944, c => 25203, d => 25080 },
  { a => 24863, b => 25103, c => 25172, d => 24862 },
]