Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

musical /prog/ challange

Name: Anonymous 2010-09-22 14:03

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

Name: Anonymous 2010-09-23 13:44

x =: 60
(,.|.)y#~0=x|~y=:>:i.x

From right to left:
i.x   range 0 to x-1
>:    increment all -> (1 to x)
y=:   assign to y
x|~   all mod x
0=    map: equals zero?
y#~   select these from y
|.    reverse
,.    zip
(...) (f g) x <=> x f (g x)

Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List