Help for this page

Select Code to Download


  1. or download this
    # Not yet:
    $ perl6 -e 'my num128 $one = Num(1); $one += 1e-30; say $one == 1'
    False
    
  2. or download this
    $ perl6 -e 'my $one = 1; $one += 1e-16; say $one == 1'
    True
    ...
    (Num)
    $ perl6 -e 'my $val = sin(pi/2) + 0.1; my $eleven = 0; $eleven += $val
    + for 1..10; say $eleven == 11'
    False