mifrai
searching Neon…
- 1.▲
- 2.▲
- 3.▲
- 4.▲
- 5.▲
- 6.▲
6 ms·
- 1.▲
- 2.▲
- 3.▲
- 4.▲
- 5.▲
- 6.▲
- 7.▲
- 8.▲
- 9.▲
- 10.▲
- 11.▲
- 12.▲
Similar concept but a little simpler and avoids manually written recursion. notes = cycle ["c", "c#", "d", "d#", "e", "f", "f#", "g", "g#", "a", "a#", "b"]
majorSteps = [2, 2, 1, 2, 2, 2] :: [Int]
scale note = map (dropWhile (/= no - 13.▲
- 14.▲
- 15.▲
- 16.▲
- 17.▲
- 18.▲
- 19.▲
- 20.▲
- 21.▲