(amb 'list)

[Fritz]

Trying to select a random value from the list.

Code Select Expand

(set 'mylist '((0 0) '(0 1) '(0 2)))
(amb mylist)

Result: ((0 0) (0 1) (0 2))



Different combinations of expand, eval, map and apply wont work in my hands. Only working method I have found is the monstercode with eval-string:

Code Select Expand

(eval-string (append "(amb '" (join (map string mylist) " '") ")"))

But there should be some simple solution, right?

[m i c h a e l]

Hi Fritz,



Try this:

Code Select Expand

> (set 'mylist '((0 0) (0 1) (0 2)))
((0 0) (0 1) (0 2))
> (apply amb mylist)
(0 2)
> (apply amb mylist)
(0 0)
> (apply amb mylist)
(0 2)
> _


Also notice that only one quote is necessary in creating the list. Hope that helps!



m i c h a e l

[cormullion]

m i c h a e l beat me to it...



amb doesn't take a list, just a series of expressions, so:

Code Select Expand

apply amb my-list is what you want

[Fritz]

Oh, thanx!