From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 lang/prolog/1.8.7/src/puzzle | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 lang/prolog/1.8.7/src/puzzle

(limited to 'lang/prolog/1.8.7/src/puzzle')

diff --git a/lang/prolog/1.8.7/src/puzzle b/lang/prolog/1.8.7/src/puzzle
new file mode 100644
index 0000000..648beb6
--- /dev/null
+++ b/lang/prolog/1.8.7/src/puzzle
@@ -0,0 +1,24 @@
+                {Solution: 9,5,6,7,0,8,2} 
+puzzle:- repeat, permute ((9,8,7,6,5,2,0), SENDMORY), 
+                 write (SENDMORY), 
+                 puzzle (SENDMORY, SEND, MORE, MONEY), 
+                 elan (line), 
+                 write (SEND), write (+), 
+                 write (MORE), write (=), 
+                 write (MONEY). 
+ 
+puzzle([S,E,N,D,O,R,Y], SEND, MORE, MONEY):- 
+  SEND   IS  ((S * 10 + E) * 10 + N) * 10 + D, 
+  MORE   IS  ((10 + O) * 10 + R) * 10 + E, 
+  MONEY  IS  (((10 + O) * 10 + N) * 10 + E) * 10 + Y, 
+  MONEY  IS  SEND + MORE. 
+ 
+permute ([], []). 
+permute ([E|X], Z):- permute (X, Y), insert (E, Y, Z). 
+ 
+insert  (E, X, [E|X]). 
+insert  (E, [F|X], [F|Y]):- insert (E, X, Y). 
+ 
+repeat. 
+repeat:- repeat. 
+
-- 
cgit v1.2.3