From: Mart Lubbers <mart@martlubbers.net>
Date: Thu, 26 May 2016 16:54:17 +0000 (+0200)
Subject: pim
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=c1155521b79a9526b91050e4744601c64a825bf4;p=cc1516.git

pim
---

diff --git a/examples/higher.spl b/examples/higher.spl
index 66f9024..0cd83de 100644
--- a/examples/higher.spl
+++ b/examples/higher.spl
@@ -36,12 +36,22 @@ intList(x){
 	return l;
 }
 
+printIntList(l) :: [Int] -> Void{
+	print('[');
+	if(!isEmpty(l)){
+		print(l.hd);
+		l = l.tl;
+	}
+	while(isEmpty(l)){
+		print(", ", l.hd);
+		l = l.tl;
+	}
+	print("]\n");
+}
+
 main(){
-	print(
-		"faculty of 5 is: ", 
-			foldr(\x y->x*y, 1, intList(z)),
-		"sum of 1..5 is: ", 
-			foldr(\x y->x+y, 0, intList(z)),
-		"filter evens from 0..12 is: ",
-			filter(\x->x % 2 == 0, intList(12)));
+	print("faculty of 5 is: ", foldr(\x y->x*y, 1, intList(5)));
+	print("sum of 1..5 is: ", foldr(\x y->x+y, 0, intList(5)));
+	print("filter evens from 0..12 is: ");
+	printIntList(filter(\x->x%2 == 0, intList(12)));
 }