Mercurial > repos > tabletprog

diff samples/testarray.tp @ 39:a997e42b9051

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add foreach method to array and add fib sample that can work in C environment and array example
author Mike Pavone <pavone@retrodev.com>
date Tue, 10 Jul 2012 23:18:14 -0700
parents
children 927fd7911a01
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/testarray.tp	Tue Jul 10 23:18:14 2012 -0700
@@ -0,0 +1,11 @@
+#{
+	main <- {
+		foo <- #[42 30 28]
+		sum <- 0
+		foreach: foo :idx el {
+			sum <- sum + el
+		}
+		sum
+	}
+}
+