Help for this page

Select Code to Download


  1. or download this
      DB<232> x $x=4; while( ($y)= ( $u = splice( @t,0,1 ))){ last unless 
+$x--; print ":$_: " }

 :: :: :: ::  empty array
  2. or download this
              shift(@a)   ===   ( $t = splice( @a,0,1 ) )