From 7bcb881c54640444bb948f4c38f126f2e53c4648 Mon Sep 17 00:00:00 2001 From: Leo Tenenbaum Date: Wed, 4 Mar 2020 14:13:41 -0500 Subject: fixed std/arr.toc --- test.toc | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) (limited to 'test.toc') diff --git a/test.toc b/test.toc index eb51a96..f9e9d40 100644 --- a/test.toc +++ b/test.toc @@ -1,22 +1,19 @@ #include "std/io.toc", io; -#include "std/arr.toc", arr; -arr_sum ::= fn(t::=, a:arr.Arr(t)) t { +arr_sum ::= fn(t,n::=, a:[n]t) t { total := 0 as t; - for x := a.data { + for x := a { total += x; } total }; -mk_arr ::= fn(x:int, y:int, z:int) a:arr.Arr(int) { - arr.add(&a, x); - arr.add(&a, y); - arr.add(&a, z); -}; - main ::= fn() { - a := mk_arr(1,2,3); - io.puti(arr.len(a)); - io.puti(arr_sum(a)); + a : [3]int; + a[0] = 1; + a[1] = 1; + a[2] = 1; + + io.puti(arr_sum(a)); }; +main(); \ No newline at end of file -- cgit v1.2.3