summaryrefslogtreecommitdiff
path: root/test.toc
diff options
context:
space:
mode:
Diffstat (limited to 'test.toc')
-rw-r--r--test.toc17
1 files changed, 15 insertions, 2 deletions
diff --git a/test.toc b/test.toc
index 7ccd36c..b085a77 100644
--- a/test.toc
+++ b/test.toc
@@ -7,10 +7,23 @@ puti @= fn(x: int) {
factorial @= fn(x: int) int {
- if x == 0 { 1 } else { x * factorial(x-1) }
+ numbers := new(int, x);
+ i := 0;
+ while i < x {
+ numbers[i] = i+1;
+ i = i + 1;
+ }
+ product := 1;
+ i = 0;
+ while i < x{
+ product = product * numbers[i];
+ i = i + 1;
+ }
+ del(numbers);
+ product
};
main @= fn() {
a342 : [factorial(5)]int;
- puti(factorial(20));
+ puti(factorial(10));
};