ITS Muddle.

[pdp10-muddle.git] / MUDDLE / nptest.4

diff --git a/MUDDLE/nptest.4 b/MUDDLE/nptest.4
new file mode 100644 (file)
index 0000000..a4b7faf
--- /dev/null
+++ b/MUDDLE/nptest.4
@@ -0,0 +1,35 @@
+<SETG PATH
+ <FUNCTION (START FINISH)
+   <PATH1 .START .FINISH ()>  >>
+
+
+<SETG PATH1
+ <FUNCTION P1 (START FINISH AVOID)
+   <COND (<==? .START .FINISH>
+          (.FINISH))
+         (<MEMBER .START .AVOID> <>)
+         (T (.START
+             !<REPEAT REP (PATH (NODES <GET .START CONNECTED>))
+                 <COND (<EMPTY? .NODES> <EXIT .P1 <>>)
+                       (<SET PATH <PATH1 <1 .NODES> .FINISH (.START !.AVOID)>>
+                        <EXIT .REP .PATH>)
+                       (T <SET NODES <REST .NODES>>)   >>))   >>>
+                        
+
+
+<PUT ALPHA CONNECTED (B D K)>\e
+<PUT B CONNECTED (ALPHA I C)>\e\r\r
+<PUT I CONNECTED (B H J)>\e
+<PUT H CONNECTED (I)>\e
+<PUT J CONNECTED (I)>\e
+<PUT C CONNECTED (B G D)>\e
+<PUT G CONNECTED (C)>\e
+<PUT D CONNECTED (ALPHA C F)>\e
+\r<PUT F CONNECTED (D)>\e
+<PUT K CONNECTED (ALPHA M L)>\e
+<PUT M CONNECTED (K L N O)>\e
+<PUT L CONNECTED (K M)>\e
+<PUT N CONNECTED (M)>\e
+<PUT O CONNECTED (M P OMEGA)>\e
+<PUT P CONNECTED (O)>\e
+<PUT OMEGA CONNECTED (O)>\e\f\f\ 3\f
\ No newline at end of file