Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse,-p -le"print - --$i"
    BEGIN { $/ = "\n"; $\ = "\n"; }
    print((-(--$i)));
    -e syntax OK
    
  2. or download this
    print(-( ++$i - --$i ))