fork download
  1. #!/usr/bin/perl6
  2. # your code goes here
  3.  
  4. # default is Rat
  5. say 0.333.WHAT;
  6. say 0.2222 - 0.22 - 0.0005;
  7. say 0.2222 - 0.22 - 0.0005 == 0.0017;
  8.  
  9. # Num is IEEE754 number
  10. say 0.255.Num.WHAT;
  11. say 0.2222.Num - 0.22.Num - 0.0005.Num;
Success #stdin #stdout 0.21s 67656KB
stdin
Standard input is empty
stdout
(Rat)
0.0017
True
(Num)
0.00170000000000001
False