musical /prog/ challange

Create an ordered list of fractions which product of the numerator and denominator equals a specific integer n.

ex: n=60
1/60, 2/30, 3/20, 4/15, 5/12, etc....

then do it with a list of integers.

If you are fancy you can also create a scale from the fractions you've got which best matches western tempered tuning (or any you prefer).

So they're still messing with this even without qw3rty around:

sub fn($n) {
    map
      { (($n/$_)/$_),  ($_/($n/$_)) },
      grep { $n %% $^a },
      ^($n.sqrt.ceiling)
};

.perl.say for @(fn(60).flat.sort);

Introspection on the Rat_ional type is being abused to print fractions in reduced form.