Help for this page

Select Code to Download


  1. or download this
     perl -e 'my @a=(1/3, 1/4, 1/5, 1/6, 1/7);
print "[".join(", ",@a)."]\n"'
...
> perl -e 'use P;my @a=(1/3, 1/4, 1/5, 1/6, 1/7);
P "%s", \@a;'
[0.33, 0.25, 0.20, 0.17, 0.14]
  2. or download this
    > perl -e 'use P;my @a=(1/3, 1/4, $x, 1/6, 1/7);     
P "%s", \@a;'   
[0.33, 0.25, (undef), 0.17, 0.14]