X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=MUDDLE%2Fptest.13;fp=MUDDLE%2Fptest.13;h=f566d4a3049dc22087fa6392007030046a6889a7;hb=39c5769144e7f2a58076bdb973d2c80fa603345c;hp=0000000000000000000000000000000000000000;hpb=bab072f950a643ac109660a223b57e635492ac25;p=pdp10-muddle.git

diff --git a/MUDDLE/ptest.13 b/MUDDLE/ptest.13
new file mode 100644
index 0000000..f566d4a
--- /dev/null
+++ b/MUDDLE/ptest.13
@@ -0,0 +1,49 @@
+<SETG FRAMEN 
+  <FUNCTION (N)
+   <COND (<0? .N> <FRAME>)
+         (T <FRAME <FRAMEN <- .N 1>>>)>>>
+
+
+<SETG PATH 
+ <FUNCTION TL (START FINISH)
+   <PROG ((VAL <FAILPOINT () <PATH1 .START .FINISH ()>
+                    ()
+                    <EXIT .TL <>>   >))
+    <FINALIZE .TL>
+    <RETURN .VAL>>>>
+
+
+<SETG PATH1
+ <FUNCTION  (START FINISH AVOID)
+   <COND (<==? .START .FINISH>
+          (.FINISH))
+         (<MEMBER .START .AVOID>
+          <FAIL>)
+         (T (.START 
+             !<PATH1
+               <FAILPOINT FP (N (NODES <GET .START CONNECTED>))
+                        <FAIL> ()
+                        <COND (<EMPTY? .NODES> <FAIL>)
+                              (<SET N <1 .NODES>>
+                               <SET NODES <REST .NODES>>
+                               <RESTORE .FP .N>)>   >
+               .FINISH
+               (.START !.AVOID)>))>>   >
+
+
+<PUT ALPHA CONNECTED (B D K)>
+<PUT B CONNECTED (ALPHA I C)>

+<PUT I CONNECTED (B H J)>
+<PUT H CONNECTED (I)>
+<PUT J CONNECTED (I)>
+<PUT C CONNECTED (B G D)>
+<PUT G CONNECTED (C)>
+<PUT D CONNECTED (ALPHA C F)>
+
<PUT F CONNECTED (D)>
+<PUT K CONNECTED (ALPHA M L)>
+<PUT M CONNECTED (K L N O)>
+<PUT L CONNECTED (K M)>
+<PUT N CONNECTED (M)>
+<PUT O CONNECTED (M P OMEGA)>
+<PUT P CONNECTED (O)>
+<PUT OMEGA CONNECTED (O)>
\ No newline at end of file