ding

[cc1516.git] / examples / higher.spl

diff --git a/examples/higher.spl b/examples/higher.spl
index 61413c1..1df4a80 100644 (file)
--- a/examples/higher.spl
+++ b/examples/higher.spl
@@ -34,14 +34,22 @@
 //     }
 //}
 
-plus(x, y){
+plus3(x, y, z){
        return x + y;
 }
 
+plus(x, y){
+       return x+y;
+}
+
 apply(f, x){
        return f(x);
 }
 
+ap2(f, g, x){
+       return f(g(x));
+}
+
 main(){
 //     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)));
@@ -49,32 +57,8 @@ main(){
 //     print("sum of 0..12 but only the evens: ",
 //             foldr(\x y->x+y, 0, filter(\x->x%2 == 0, intList(12))));
 
-       var a = plus(3);
-       var b = apply(a);
-       var c = apply(b);
-       var d = apply(c);
-       var e = apply(d);
-       var f = apply(e);
-       var g = apply(f);
-       var h = apply(g);
-       var i = apply(h);
-       var j = apply(i);
-       var k = apply(j);
-       var l = apply(k);
-       var m = apply(l);
-       var n = apply(m);
-       var o = apply(n);
-       var p = apply(o);
-       var q = apply(p);
-       var r = apply(q);
-       var s = apply(r);
-       var t = apply(s);
-       var u = apply(t);
-       var v = apply(u);
-       var w = apply(v);
-       var x = apply(w);
-       var y = apply(x);
-       var z = apply(y);
-
-       print("3+5=", z(5));
+       var a = plus3;
+       var b = a(1);
+       var c = b(2);
+       var d = c(3);
 }