[CM] random stream with lists?

[Orm Finnendahl]

Am 24. September 2003, 14:47 Uhr (+0200) schrieb Johannes Quint:
> 
> not so elegant, but it works:
> 
> (setf x
>  (new random :of
>   (list 	(new chord :of '(2 1 3))
> 	(new chord :of '(2))
> 	(new chord :of '(3 1))
>  	(new chord :of '(1 2))
>  )))
> 
> (next x 3)
> =>
> ((2 1 3)(1 2)(2 1 3))

Thanks, Johannes. That could get wrapped by a macro to look
nicer. Only the computational overhead is a little annoying. I use
guile and that seems to be quite slow. Even simple processes with 300
notes sometimes need > 10 seconds to evaluate :-(

Did anybody on this list make any timing tests comparing scheme and
lisp dialects using cm?

--
Orm