8 lines
159 B
Plaintext
8 lines
159 B
Plaintext
|
(fn contains [t x]
|
||
|
|
(accumulate [found false
|
||
|
|
_ v (ipairs t)
|
||
|
|
&until found] ; escape early
|
||
|
|
(or found (= x v))))
|
||
|
|
|
||
|
|
{: contains}
|