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).

found this today lurking on a perl6 irc channel:

(i modified it a little, i hate one-liners)


sub fraction($n) {
  map
    { ($n/$_ ~"/$_"), ("$_/" ~ $n/$_) },
    grep { $n %% $^a },
    1..($n.sqrt.ceiling)
};

for 1..60 -> $integer {
  say "=$integer=";
  .say for @(fraction($integer).uniq)
}