30 lines
407 B
Plaintext
30 lines
407 B
Plaintext
let test = 2
|
|
|
|
& loop ([1, 2, 3]) with {
|
|
& ([]) -> false
|
|
& ([x]) -> eq? (x, test)
|
|
& ([x, ...xs]) -> {
|
|
& let foo = :bar
|
|
& when {
|
|
& eq? (x, test) -> true
|
|
& :else -> recur (xs)
|
|
& }
|
|
& }
|
|
& }
|
|
|
|
fn not {
|
|
(false) -> true
|
|
(nil) -> true
|
|
(_) -> false
|
|
}
|
|
|
|
loop ([1, 2, 3]) with {
|
|
([]) -> false
|
|
([x]) -> eq? (x, test)
|
|
([x, ...xs]) -> if not (eq? (x, test))
|
|
then recur (xs)
|
|
else true
|
|
|
|
}
|
|
|