From 2de302bcb3fa7e12c83a58909232a527c4d5372e Mon Sep 17 00:00:00 2001 From: Shinya Sato Date: Wed, 27 Apr 2022 16:58:17 +0900 Subject: Remove redundant letters --- comparison/Inpla/src/fib-38-reuse.in | 7 ------- 1 file changed, 7 deletions(-) (limited to 'comparison/Inpla/src/fib-38-reuse.in') diff --git a/comparison/Inpla/src/fib-38-reuse.in b/comparison/Inpla/src/fib-38-reuse.in index 6b3d32b..e56fabd 100644 --- a/comparison/Inpla/src/fib-38-reuse.in +++ b/comparison/Inpla/src/fib-38-reuse.in @@ -4,13 +4,6 @@ Fib(r) >< (int n) | n == 1 => r~1 | _ => Fib(cnt1)~(n-1), Fib(cnt2)~(n-2), (*L)Add(r,cnt2)~cnt1; -/* Add is realised as built-in. -Addd(r,n) >< (int m) -=> Addd2(r,m) ~ n; - -Addd2(r,int m) >< (int n) -=> r~(m+n); -*/ Fib(r)~38; r; -- cgit v1.2.3