Haskell로 음악 연주하는 코드

import Sound.Tidal.Context

-- Define the frequencies for each note
let
  c4 = 261.63
  d4 = 293.66
  e4 = 329.63
  f4 = 349.23
  g4 = 392.00
  a4 = 440.00
  b4 = 493.88

-- Create a list of frequencies for the octave
let octave = [c4, d4, e4, f4, g4, a4, b4]

-- Ask user for input
let noteSequence = input "Enter the sequence of notes to play (e.g. C4 D4 E4 F4 G4 A4 B4): "

-- Split the input string into a list of notes
let notes = words noteSequence

-- Play the note sequence using the octave
mapM_ (\\x -> d1 $ sound $ "~sine" # speed (sig x)) $ map (\\x -> octave!!x) $ map (\\x -> case x of
    'C4' -> 0
    'D4' -> 1
    'E4' -> 2
    'F4' -> 3
    'G4' -> 4
    'A4' -> 5
    'B4' -> 6) notes