Editing Generating random notes

This Scheme-based snippet generates random notes. Use as

 \randomNotes <var>n</var> <var>from</var> <var>to</var> <var>dur</var>

to generate ''n'' random notes between pitches ''from'' and ''to'', with duration ''dur''.

<lilypond version="2.24">
randomNotes =
#(define-music-function (n from to dur)
   (integer? ly:pitch? ly:pitch? ly:duration?)
   (let ((from-step (ly:pitch-steps from))
         (to-step (ly:pitch-steps to)))
     (make-sequential-music
      (map (lambda (_)
             (let* ((step (+ from-step
                             (random (- to-step from-step))))
                    (pitch (ly:make-pitch 0 step 0)))
               #{ $pitch $dur #}))
           (iota n)))))

\randomNotes 24 c' g'' 8
</lilypond>

[[Category:Pitches]]
[[Category:Really cool]]
[[Category:Scheme]]
[[Category:Included in the official documentation]]
[[Category:Snippet]]