81 lines
1.3 KiB
Plaintext
81 lines
1.3 KiB
Plaintext
fun fn-y (t1 t2 va-ctx) {
|
|
| i |
|
|
i := 0
|
|
while (< i (va-count va-ctx)) {
|
|
printf "fn-y=>Y-VA[%d]=>[%d]\n" i (va-get i va-ctx)
|
|
i := (+ i 1)
|
|
}
|
|
}
|
|
|
|
fun x(a b ... :: x y z) {
|
|
|i|
|
|
|
|
x := (va-count)
|
|
y := (* a b)
|
|
z := (+ a b)
|
|
|
|
i := 0;
|
|
while (< i (va-count)) {
|
|
printf "VA[%d]=>[%d]\n" i (va-get i)
|
|
i := (+ i 1)
|
|
}
|
|
fn-y "hello" "world" (va-context)
|
|
|
|
return;
|
|
}
|
|
|
|
t := (x 10 20 30);
|
|
if (~= t 1) {
|
|
printf "ERROR: t is not 1\n"
|
|
} else {
|
|
printf "OK: %d\n" t
|
|
}
|
|
|
|
t := ([a b c] := (x 10 20 30 40 50));
|
|
if (~= t 3) {
|
|
printf "ERROR: t is not 3\n"
|
|
} else {
|
|
printf "OK: %d\n" t
|
|
}
|
|
|
|
if (~= a 3) {
|
|
printf "ERROR: a is not 3\n"
|
|
} else {
|
|
printf "OK: %d\n" a
|
|
}
|
|
|
|
if (~= b 200) {
|
|
printf "ERROR: b is not 200\n"
|
|
} else {
|
|
printf "OK: %d\n" b
|
|
}
|
|
if (~= c 30) {
|
|
printf "ERROR: c is not 30\n"
|
|
} else {
|
|
printf "OK: %d\n" c
|
|
}
|
|
|
|
## Redefine the plus function. core.+ still can refer to the built-in
|
|
## numeric plus primitive.
|
|
## [NOTE] Don't add other test cases below this test case
|
|
## as the + function has been manipulated for testing purpose
|
|
## Add new cases above here.
|
|
fun + (a b ...) {
|
|
| sum vac i |
|
|
sum := (core.+ a b)
|
|
vac := (va-count)
|
|
i := 0;
|
|
while (< i vac) {
|
|
sum := (core.+ sum (va-get i))
|
|
i := (core.+ i 1)
|
|
}
|
|
sum := (core.+ sum 9999)
|
|
return sum
|
|
}
|
|
c := (+ 10 20 30)
|
|
if (~= c 10059) {
|
|
printf "ERROR: c is not 30\n"
|
|
} else {
|
|
printf "OK: %d\n" c
|
|
}
|