(Arne Babenhauserheide)
2013-03-21: added some tests. added some tests.
diff --git a/tests/continuation.w b/tests/continuation.w new file mode 100644 --- /dev/null +++ b/tests/continuation.w @@ -0,0 +1,8 @@ +a b c d e + . f g h + . i j k + +concat "I want " + getwish from me + . " - " username + diff --git a/tests/readable-tests.w b/tests/readable-tests.w new file mode 100644 --- /dev/null +++ b/tests/readable-tests.w @@ -0,0 +1,43 @@ +define + fibfast n + if (< n 2) + . n + fibup n 2 1 0 + +define + fibup maxnum count n-1 n-2 + if (= maxnum count) + + n-1 n-2 + fibup maxnum + + count 1 + + n-1 n-2 + . n-1 + +define (factorial n) + if (<= n 1) + . 1 + * n + factorial (- n 1) + +define (gcd x y) + if (= y 0) + . x + gcd y + rem x y + +define (add-if-all-numbers lst) + call/cc + lambda (exit) + let loop + : + lst lst + sum 0 + if (null? lst) + . sum + if + not + number? + car lst + exit #f + + (car lst) + loop (cdr lst) \ No newline at end of file