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/permute | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 lang/prolog/1.8.7/src/permute

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

diff --git a/lang/prolog/1.8.7/src/permute b/lang/prolog/1.8.7/src/permute
new file mode 100644
index 0000000..54f8fee
--- /dev/null
+++ b/lang/prolog/1.8.7/src/permute
@@ -0,0 +1,15 @@
+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). 
+marquise(RESULT):- 
+  permute (["beautiful marquise", 
+                "your beautiful eyes", 
+                  "make me", 
+                    "die", 
+                      "of love" 
+                        ], 
+                          RESULT). 
+
-- 
cgit v1.2.3