$ perl6 -e 'my ($a, $b) = (1e0, 1e0 + 1e-15); say $a == $b; say set($a) ~~ set($b); say $a (-) $b'
False
True
set()