From Newsgroup: comp.lang.scheme


Frode Vatvedt Fjeld wrote:

What about (find-if #'identity my-list)? That seems to work.
Anything better?

For an obfuscation contest, I think (find-if #'null my-list :key
#'not) would do well :) Otherwise, the function "some" is often
used here. I like to define "true" as an alias for the "identity"
function for such uses.

Also, loop is often useful:

(loop for x in my-list thereis x)

Gauche Scheme

Using "+" for "identity".

gosh> (any + '(#f #f "DD"))
"DD"
gosh> (any + '(#f #f))
#f
--- Synchronet 3.21a-Linux NewsLink 1.2