This works now with Rakudo: $ perl6 -e 'my $x = 5; $x [R/]= 1; say $x' 0.2
$ perl6 -e 'sub r2cf(Rat $x is copy) { gather $x [R/]= 1 while ($x -= take
$x.floor) > 0 }; say r2cf(1.4142136)'
1 2 2 2 2 2 2 2 2 2 6 1 2 4 1 1 2
I added a test to S03-metaops/reverse.t with commit
https://github.com/perl6/roast/commit/4dca70c8ee
I'm closing this ticket now.
