From 724cc003460ec67eda269911da85c9f9e40aa6cf Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Fri, 30 Sep 2016 16:57:23 +0200
Subject: Add extracted sources from floppy disk images

Some files have no textual representation (yet) and were added as raw
dataspaces.
---
 prolog/topographie | 59 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 prolog/topographie

(limited to 'prolog/topographie')

diff --git a/prolog/topographie b/prolog/topographie
new file mode 100644
index 0000000..c0924cf
--- /dev/null
+++ b/prolog/topographie
@@ -0,0 +1,59 @@
+member(X,[X|_]). 
+member(X,[_|Y]):- 
+    member(X,Y). 
+   
+append([],L,L). 
+append([X|A],B,[X|C]):- 
+    append(A,B,C). 
+   
+efface(A,[A|L],L):- 
+    !. 
+efface(A,[B|L],[B|M]):- 
+    efface(A,L,M). 
+efface(_,[],[]). 
+   
+   
+nol(N):- 
+    read(N). 
+   
+input(_,_,N,N,L,L). 
+input(X,Y,R,N,L,O):- 
+    read(X), 
+    read(Y), 
+    append([[X,Y]],L,M), 
+    C IS R+1, 
+    input(_,_,C,N,M,O). 
+   
+enter(L):- 
+    nol(N), 
+    input(X,Y,0,N,[],L). 
+   
+   
+searchnext(X,Y,[H|T]):- 
+    H=[X,Y]; 
+    H=[Y,X]; 
+    searchnext(X,Y,T). 
+   
+onemove(_,_,[],L):- 
+    write(L). 
+onemove(X,Y,L,H):- 
+    searchnext(X,Y,L), 
+    efface([X,Y],L,N), 
+    L<>N, 
+    write(N),elan(line), 
+    append(H,[Y],F),     
+    onemove(Y,Z,N,F). 
+onemove(X,Y,L,H):- 
+    searchnext(X,Y,L), 
+    efface([Y,X],L,N), 
+    L<>N, 
+    write(N),elan(line), 
+    append(H,[Y],F),     
+    onemove(Y,Z,N,F). 
+   
+   
+   
+go:- 
+    enter(L),!, 
+    onemove(X,Y,L,[X]). 
+
-- 
cgit v1.2.3