Help for this page

Select Code to Download


  1. or download this
    perl -e'map{splice@l,rand@l+1,0,$_}<>;print@l'
  2. or download this
    perl -e'splice@l,rand@l+1,0,$_ for<>;print@l'
  3. or download this
    perl -e'print sort{4-rand 9}<>'