Data commit

Task/Partial-function-application/Egison/partial-function-application-1.egison

@@ -0,0 +1,12 @@
+(define $fs (map $1 $2))
+
+(define $f1 (* $ 2))
+(define $f2 (power $ 2))
+
+(define $fsf1 (fs f1 $))
+(define $fsf2 (fs f2 $))
+
+(test (fsf1 {0 1 2 3}))
+(test (fsf2 {0 1 2 3}))
+(test (fsf1 {2 4 6 8}))
+(test (fsf2 {2 4 6 8}))

Task/Partial-function-application/Egison/partial-function-application-2.egison

@@ -0,0 +1,4 @@
+{0 2 4 6}
+{0 1 4 9}
+{4 8 12 16}
+{4 16 36 64}