Hi,

How can I find the sum of lengths in OMN including rests?
Obviously the code below won't work, but it will give you an idea what I'm looking for:

(setf anacrusis-ls '((-s = = = = = = =) (-3e = = = = =) (-5q. = = = = = = = = =)))
(setf pick (rnd-pick anacrusis-ls))
(setf sum (find-sum pick))

 

All the best,
Erik

You could use GET-SPAN with :sum t

(get-span anacrusis-ls)
=> (1/2 1/4 3/4)

(get-span anacrusis-ls :sum t)
=> 3/2

 

Ah, that's it! Thanks for the quick reply, really enjoy working in OM, will update to 1.1 soon.
All the best,
Erik