# Custom Seed List

## Recommended Posts

I wonder if it's possible to evaluate a function (that has a seed argument) a set number of times (using gen-loop) with a predefined, custom seed list applied to the function. Something that I'm trying to achieve in the example below. Thank you!

```(setf seeds (vector-round 1 100 (gen-white-noise 8 :seed 13)))

(setf rhythm (gen-loop 8 (euclidean-rhythm 16 4 16 's :type 2 :seed seeds)))```

##### Share on other sites

like that? should work...

it "loops" x-times (depends on length of seeds-list) and collect the rhythms...

```(setf seeds (vector-round 1 100 (gen-white-noise 8 :seed 13)))

(setf rhythm (loop for i in seeds
collect (euclidean-rhythm 16 4 16 's :type 2 :seed i)))```

perhaps there is an OPMO-solution, this is LISP

##### Share on other sites

Thank you! This is it. I figured it involved for loop iteration. Thanks again.

##### Share on other sites

Another possible way:

```(setf seeds (vector-round 1 100 (gen-white-noise 8 :seed 13)))

(setf rhythm (mapcar (lambda(x) (euclidean-rhythm 16 4 16 's :type 2 :seed x)) seeds))```

SB.

##### Share on other sites
` `
```(setf seeds (rnd-number 1 1 100 :seed 23))
(init-seed seed)```

This way you don't need to use seed in any following functions.

At the end of your score set the init-seed back to nil.

`(init-seed nil)`

##### Share on other sites

It seems to me that Stephane's solution is the preferred one if the euclidean-rhythm is to be generated with different seeds.

- Rangarajan

##### Share on other sites

Thanks, everyone!

## Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

×   Pasted as rich text.   Paste as plain text instead

Only 75 emoji are allowed.

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×

• Lessons