-
Notifications
You must be signed in to change notification settings - Fork 0
/
musicalscales.hs
30 lines (28 loc) · 1.09 KB
/
musicalscales.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
scales :: [(String, [String])]
scales =
[("A", ["A", "B", "C#", "D", "E", "F#", "G#", "A"])
,("A#", ["A#", "C", "D", "D#", "F", "G", "A", "A#"])
,("B", ["B", "C#", "D#", "E", "F#", "G#", "A#", "B"])
,("C", ["C", "D", "E", "F", "G", "A", "B", "C"])
,("C#", ["D#", "F", "F#", "G#", "A#", "C", "C#"])
,("D", ["E", "F#", "G", "A", "B", "C#", "D"])
,("D#", ["F", "G", "G#", "A#", "C", "D", "D#"])
,("E", ["E", "F#", "G#", "A", "B", "C#", "D#", "E"])
,("F", ["F", "G", "A", "A#", "C", "D", "E", "F"])
,("F#", ["F#", "G#", "A#", "B", "C#", "D#", "F", "F#"])
,("G", ["G", "A", "B", "C", "D", "E", "F#", "G"])
,("G#", ["G#", "A#", "C", "C#", "D#", "F", "G", "G#"])
]
main :: IO ()
main = do
_ <- readLn :: IO Int
song <- getLine
let songNotes = words song
let candidateScales = map fst
. filter (\(name, scale) -> all (`elem` scale) songNotes)
$ scales
if null candidateScales then
putStrLn "none"
else do
mapM_ (putStr . (++ " ")) candidateScales
putStrLn ""