aboutsummaryrefslogtreecommitdiff
path: root/sample/gcd_another.in
diff options
context:
space:
mode:
authorShinya Sato <shinnya.sato@gmail.com>2021-12-19 17:59:31 +0900
committerShinya Sato <shinnya.sato@gmail.com>2021-12-19 17:59:31 +0900
commit083669ae5a6c2f5d1e5dd7500e73a01ebd44020c (patch)
tree9f6e237f530a3e0b73d56fd75b4830565648c46d /sample/gcd_another.in
parent81db50a06474c014afd182b0e6456340df3db29b (diff)
downloadinpla-083669ae5a6c2f5d1e5dd7500e73a01ebd44020c.tar.gz
inpla-083669ae5a6c2f5d1e5dd7500e73a01ebd44020c.zip
v0.5.5
Diffstat (limited to 'sample/gcd_another.in')
-rw-r--r--sample/gcd_another.in16
1 files changed, 16 insertions, 0 deletions
diff --git a/sample/gcd_another.in b/sample/gcd_another.in
new file mode 100644
index 0000000..e616e28
--- /dev/null
+++ b/sample/gcd_another.in
@@ -0,0 +1,16 @@
+// Greatest common divisor
+//
+//def gcd(a: Int, b: Int): Int =
+// if (b==0) a else gcd(b, a%b)
+
+
+// Rule
+gcd(ret) >< (int a, int b)
+| b==0 => ret ~ a
+| _ => gcd(ret) ~ (b, a%b);
+
+// Net
+gcd(r) ~ (14,21);
+r; // it should be 7
+
+