Help for this page

Select Code to Download


  1. or download this
    $n=4; 
print $n." -- ".(--$n||'no more'),".\n" while $n;
...
1 -- 1.
0 -- no more.
  2. or download this
    $n=4; print $n." -- ",(--$n||'no more'),".\n" while $n;
                    #^--- is a comma now!
...
2 -- 1.
1 -- no more.
  3. or download this
    use B::Concise; 
sub sample { $n=4; print $n." -- ".(--$n||'no more'),".\n" while $n; }
+ 
...
j  <@> leave K*
k  <1> leavesub[1 ref] K/REFC,1