使用Haskell编写一个简单的音乐播放器应用程序

下面是一个使用 Haskell 编写的简单音乐播放器应用程序的示例代码：

import System.Process (callCommand)

data Song = Song { title :: String, artist :: String, duration :: Int }

playSong :: Song -> IO ()
playSong song = do
  putStrLn $ "Now playing: " ++ (title song) ++ " by " ++ (artist song)
  callCommand $ "sleep " ++ show (duration song)

createSong :: String -> String -> Int -> Song
createSong title artist duration = Song { title = title, artist = artist, duration = duration }

main :: IO ()
main = do
  let song1 = createSong "Song 1" "Artist 1" 120
      song2 = createSong "Song 2" "Artist 2" 180
      song3 = createSong "Song 3" "Artist 3" 150

  playSong song1
  playSong song2
  playSong song3

上述代码定义了一个 Song 数据类型，其中包含歌曲的标题、艺术家和持续时间。playSong 函数将打印当前播放的歌曲信息，并使用 callCommand 调用系统命令模拟播放歌曲的操作，其中使用 sleep 命令来模拟歌曲的持续时间。createSong 函数用于创建歌曲对象。

在 main 函数中，创建了三首歌曲的对象，并按顺序调用 playSong 函数来播放它们。

要运行该应用程序，您可以将上述代码保存到一个 .hs 文件中，然后在终端中运行以下命令：

$ ghc -o MusicPlayer MusicPlayer.hs
$ ./MusicPlayer

程序将按顺序播放三首歌曲，并将打印当前播放的歌曲信息。

请注意，上述代码只是一个简单的示例，仅模拟了播放歌曲的基本操作。实际的音乐播放器应用程序可能会更加复杂，并包含其他功能，例如播放列表管理、音量控制等。