From 018f36497b4932c1c788fbe321f44f87e0ebdd34 Mon Sep 17 00:00:00 2001
From: Kevin Lyda <kevin@lyda.ie>
Date: Mon, 17 Jun 2024 09:29:50 +0100
Subject: [PATCH] Remove debugging to fix.
---
rules/source/rules.pdb | 7 -------
1 file changed, 7 deletions(-)
diff --git a/rules/source/rules.pdb b/rules/source/rules.pdb
index d170af3..c9c10c6 100644
--- a/rules/source/rules.pdb
+++ b/rules/source/rules.pdb
@@ -40,29 +40,22 @@ rat(g, mg, 1000).
rat(g, kg, 0.001).
ratio(X, Y, Ratio) :-
- write("simple ratio "), write(X), write(" "), write(Y), nl,
rat(X, Y, Ratio).
ratio(X, Y, Ratio) :-
- write("reverse ratio "), write(X), write(" "), write(Y), nl,
rat(Y, X, Z), !, Ratio = 1/Z.
ratio(X, Y, Ratio) :-
- write("complex ratio 1 "), write(X), write(" "), write(Y), nl,
X \== Y,
rat(Step, _, _),
Step \== X,
Step \== Y,
- write(" trying step "), write(Step), nl,
ratio(X, Step, R1),
ratio(Step, Y, R2),
Ratio = R1 * R2.
ratio(X, Y, Ratio) :-
- write("complex ratio 2 "), write(X), write(" "), write(Y), nl,
X \== Y,
rat(_, Step, _),
Step \== X,
Step \== Y,
- write(" trying step "), write(Step), nl,
- write(" trying step "), write(Step), nl,
ratio(X, Step, R1),
ratio(Step, Y, R2),
Ratio = R1 * R2.
--
GitLab