List function

[didi]

For the scaling of a xy-graph ,  i want  the first value of a list that is greater than 'mvalue' .  

Code Select Expand

( first ( filter (  fn(x) ( > x mvalue) ) prefer-list )

This is already my fourth version , it works , but maybe there is an easier/faster way .

[cormullion]

looks OK to me!



Using implicit addressing and comparison functions:

Code Select Expand

(prefer-list (find mvalue prefer-list <))


is probably no faster but possibly slightly neater. However, your version will not complain if there is no matching value - (first '()) is better than (prefer-list nil)... :-)