Help for this page

Select Code to Download


  1. or download this
    sub Mix {
map{my$i=$_;map$i<@$_?$$_[$i]:(),@_}0..map@$_,@_
}
  2. or download this
    sub Mix {
map{splice@$_,0,1}map@_,map@$_,@_
}
  3. or download this
    sub Mix {
map{splice@$_,0,1}map@_,map@$_,@_=map[@$_],@_
}
  4. or download this
    sub Mix {
map{map{splice@$_,0,1}(@_)x@$_}@_
}