about summary refs log tree commit diff
path: root/examples/12.pry
diff options
context:
space:
mode:
Diffstat (limited to 'examples/12.pry')
-rw-r--r--examples/12.pry51
1 files changed, 51 insertions, 0 deletions
diff --git a/examples/12.pry b/examples/12.pry
new file mode 100644
index 0000000..34519e6
--- /dev/null
+++ b/examples/12.pry
@@ -0,0 +1,51 @@
+import "!stdlib.pry";
+
+let main = () => i64 {
+    let factorial = (n: i64) => i64 {
+        let f = (acc: i64, n: i64) => i64 {
+            if n == 0 {
+                return acc;
+            };
+            return f(acc * n, n - 1);
+        };
+        return f(1, n);
+    };
+
+    let is_even = (n: i64) => bool {
+        if n % 2 == 0 {
+            return true;
+        };
+        return false;
+    };
+
+    let sum_if = (predicate: (i64) => bool, limit: i64) => i64 {
+        let sum = 0;
+        let i = 0;
+        while i < limit {
+            if predicate(i) {
+                sum = sum + i;
+            };
+            i = i + 1;
+        };
+        return sum;
+    };
+
+    let fact_val = factorial(6);
+    printf("%d\n", fact_val);
+
+    let even_sum = sum_if(is_even, 20);
+    printf("%d\n", even_sum);
+
+    return 0;
+};
+
+/*
+
+Expected stdout:
+
+720
+90
+
+Expected return: 0
+
+*/