diff --git a/sandbox.ld b/sandbox.ld new file mode 100644 index 0000000..f30aeaa --- /dev/null +++ b/sandbox.ld @@ -0,0 +1,29 @@ +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 + +} +