Help for this page

Select Code to Download


  1. or download this
    sub f {
        ($x,$y)=@_;print$x--while$x>=$y
    }
    
  2. or download this
    perl -le '$_=ord$/;print$_--while$_'