Help for this page

Select Code to Download


  1. or download this
    19:49 >perl -wE "for (my ($i, $j) = (1, 5); $i <= 5; ++$i, --$j) { say
    + abs($i - $j); }"
    4
    ...
    4
    
    19:49 >