使用Euterpea / Haskell播放随机音符持续时间

Question

我刚刚开始使用Euterpea / Haskell，并且我正在尝试编写一个简单的脚本来随机化音符持续时间。

我写的是这样的：

import Euterpea
playMyNote = play $ line [c 4 qn, c 4 qn, d 4 qn, e 4 qn, a 4 qn, a 4 qn, g 4 hn]

然后我读到了这个：https://www.schoolofhaskell.com/school/starting-with-haskell/libraries-and-frameworks/randoms

它展示了一种生成随机数的方法，如下所示：

import System.Random

main = do
  g <- getStdGen
  print $ take 10 (randomRs ('a', 'z') g)

我试图像下面这样将它们组合在一起，但它并不完整(例如，我不知道将z放在哪里)。

有人能建议我下一步用随机定义的数字代替代表持续时间的数字吗？

这就是我目前所处的位置：

import Euterpea
import System.Random

playRandomly = do
    z <- newStdGen
    play $ line [c 4 qn, c 4 qn, d 4 qn, e 4 qn, a 4 qn, a 4 qn, g 4 hn]


playMyNote = play $ line [c 4 qn, c 4 qn, d 4 qn, e 4 qn, a 4 qn, a 4 qn, g 4 hn]

Answer 1

首先(通常，不仅仅是对于Euterpea)，您需要查找所需数量的类型。这可以通过检查诸如c、d等注释函数的类型签名来看到。Turns out它们都有类型

c :: Octave -> Dur -> Music Pitch

在文档中，您可以访问这些类型的链接，在这些链接中，您会发现Dur实际上只是Rational的同义词。所以你真正需要的就是生成随机有理数。根据你想要的随机性，你有几个选择：

• 为分子和分母生成随机整数，并将它们组合为有理数。

playRandomly = do z <- zip let ( zn，zd) = split z数字zn= newStdGen zn (1,5) zn denoms =随机zn (1,4) zd play $ line [注4$ zip数字/zip数字|(注意，(数字，数字)) <- fromInteger c，c，d，e，a，a，g$ fromInteger数字数字]

获得这些独立的随机生成器，然后从它们中获得数字真的很尴尬，请注意，使用合适的随机单子(如来自random-fu.

• Generate的连续可变(浮动)持续时间)，并且只将它们伪量化为有理数，这要容易得多。

playRandomly = do z <- newStdGen let duration = toRational <$> (toRational of (0.1,2) z :：Float) play $ line [备注4持续时间|(备注，持续时间) <- newStdGen c，c，d，e，a，a，g持续时间]

• 只需从可能的持续时间列表中随机选择。这也是you can easily do with random-fu.

的东西