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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$ perl6 -e 'say Num(0.7777777777777777777770)'                                                      
0.777777777777778
$ perl6 -e 'say Num(0.7777777777777777777771)'
0.777777777777778
$ perl6 -e 'say Num(0.7777777777777777777770) > Num(0.7777777777777777777771)'
True
$ perl6 -e 'say Num(0.7777777777777777777770) - Num(0.7777777777777777777771)'
1.11022302462516e-16

##</code><code>##

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

##</code><code>##

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