Does anybody have an idea, how to rewrite the loop construction below with OM functions?

(setf beethoven-ode '(q e4 e4 f4 g4 g4 f4 e4 d4 c4 c4 d4 e4 q. e4 e d4 h d4))

(loop for j in (gen-transition 0 0.1 8 1) collect (quantum beethoven-ode :fraction j :seed 123))

Thanks for help.

Achim

Hi Achim,

here's a possible solution:

(setf beethoven-ode '(q e4 e4 f4 g4 g4 f4 e4 d4 c4 c4 d4 e4 q. e4 e d4 h d4))

(gen-process

'(quantum beethoven-ode :fraction a :seed 123)

(list (gen-transition 0 0.1 8 1)))

It is essential to understand how a loop works in our tasks, as it is also the most elegant macro for performing iterations.