Select Code to Download

$ perl6 -e 'say 0.99999999999999999000001'
1.000000000000000073886090
$ perl6 -e 'say 0.99999999999999999000001 > 1'
True

$ perl6 -e 'say 0.7777777777777777777770'                           
0.77777777777777785672697
$ perl6 -e 'say 0.7777777777777777777771'
0.777777777777777767909129

$ perl6 -e 'say 0.7777777777777777777771 > 0.7777777777777777777770'
True
$ perl6 -e 'say 0.7777777777777777777771 - 0.7777777777777777777770'
1e-22

$ perl6 -e 'say Num(0.7777777777777777777770)'                        
+                              
0.777777777777778
...
True
$ perl6 -e 'say Num(0.7777777777777777777770) - Num(0.7777777777777777
+777771)'
1.11022302462516e-16

$ perl6 -e 'my $a = 0.7777777777777777777770; my $b = 0.77777777777777
+77777771; say $a <=> $b; say Num($a) <=> Num($b)'                    
+   
Less
More

$ perl6 -e 'my $a = Num(1/9); say $a == Num(Str($a))'
False