MUDDLE/nptest.4

   1 <SETG PATH
   2  <FUNCTION (START FINISH)
   3    <PATH1 .START .FINISH ()>  >>
   4
   5
   6 <SETG PATH1
   7  <FUNCTION P1 (START FINISH AVOID)
   8    <COND (<==? .START .FINISH>
   9           (.FINISH))
  10          (<MEMBER .START .AVOID> <>)
  11          (T (.START
  12              !<REPEAT REP (PATH (NODES <GET .START CONNECTED>))
  13                  <COND (<EMPTY? .NODES> <EXIT .P1 <>>)
  14                        (<SET PATH <PATH1 <1 .NODES> .FINISH (.START !.AVOID)>>
  15                         <EXIT .REP .PATH>)
  16                        (T <SET NODES <REST .NODES>>)   >>))   >>>
  17
  18
  19
  20 <PUT ALPHA CONNECTED (B D K)>\e
  21 <PUT B CONNECTED (ALPHA I C)>\e\r\r
  22 <PUT I CONNECTED (B H J)>\e
  23 <PUT H CONNECTED (I)>\e
  24 <PUT J CONNECTED (I)>\e
  25 <PUT C CONNECTED (B G D)>\e
  26 <PUT G CONNECTED (C)>\e
  27 <PUT D CONNECTED (ALPHA C F)>\e
  28 \r<PUT F CONNECTED (D)>\e
  29 <PUT K CONNECTED (ALPHA M L)>\e
  30 <PUT M CONNECTED (K L N O)>\e
  31 <PUT L CONNECTED (K M)>\e
  32 <PUT N CONNECTED (M)>\e
  33 <PUT O CONNECTED (M P OMEGA)>\e
  34 <PUT P CONNECTED (O)>\e
  35 <PUT OMEGA CONNECTED (O)>\e\f\f\ 3\f