Help for this page

Select Code to Download


  1. or download this
    >perl -le"print substr +(reverse unpack 'B*', pack 'd', shift), 12" .1
1101100110011001100110011001100110011001100101011001
...
>perl -le"printf '%.16e', shift" .1
1.0000000000000001e-001
                 ^ error
  2. or download this
    >perl -le"$x=.1; $n=$x*100;         print int $n"
10

>perl -le"$x=.1; $n+=$x for 1..100; print int $n"
9