aboutsummaryrefslogtreecommitdiff
path: root/sample/gcd_another.in
diff options
context:
space:
mode:
authorShinya Sato <shinnya.sato@gmail.com>2021-12-19 17:59:46 +0900
committerShinya Sato <shinnya.sato@gmail.com>2021-12-19 17:59:46 +0900
commit1bbac5efbe3a83ee9293f06ab9dc0f3f7821aa3b (patch)
tree9f6e237f530a3e0b73d56fd75b4830565648c46d /sample/gcd_another.in
parentbf938ad4dbdd97a276315b90089fd936075944ca (diff)
parent083669ae5a6c2f5d1e5dd7500e73a01ebd44020c (diff)
downloadinpla-1bbac5efbe3a83ee9293f06ab9dc0f3f7821aa3b.tar.gz
inpla-1bbac5efbe3a83ee9293f06ab9dc0f3f7821aa3b.zip
Merge branch 'develop'
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
+
+