home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / CHAPLA.IN < prev    next >
Text File  |  1996-06-04  |  3KB  |  62 lines
  1. %
  2. % Program Remove (CP) (with goal)
  3. %
  4.  
  5. Pgm = 
  6. program( positions =>  [ R1_1:position(attrib=>R1,pos=>0,share=>[A2_1]),
  7.                          R2_1:position(attrib=>R2,pos=>0,share=>[A3_1]),
  8.                          R3_1:position(attrib=>R3,pos=>0,share=>[A3_2]),
  9.                          
  10.                          A1_1:position(attrib=>A1,pos=>1,share=>[A1_2]),
  11.                          A2_1:position(attrib=>A2,pos=>1,share=>[R1_1,A2_2]),
  12.                          A3_1:position(attrib=>A3,pos=>1,share=>[R3_1]),
  13.                          
  14.                          A1_2:position(attrib=>A1,pos=>2,share=>[A1_1]),
  15.                          A2_2:position(attrib=>A2,pos=>2,share=>[A2_1]),
  16.                          A3_2:position(attrib=>A3,pos=>2,share=>[R3_1]),
  17.                          
  18.                          A2_3:position(attrib=>A2,pos=>0,share=>[A3_3]),
  19.                          A3_3:position(attrib=>A3,pos=>0,share=>[A2_3]),
  20.                          
  21.                          A1_4:position(attrib=>A1,pos=>0,share=>[A1_5,A3_4]),
  22.                          A2_4:position(attrib=>A2,pos=>0,share=>[A2_5]),
  23.                          A3_4:position(attrib=>A3,pos=>0,share=>[A1_4,A3_5]),
  24.                          
  25.                          A1_5:position(attrib=>A1,pos=>1,share=>[A1_4]),
  26.                          A2_5:position(attrib=>A2,pos=>1,share=>[A2_4]),
  27.                          A3_5:position(attrib=>A3,pos=>1,share=>[A3_4]),
  28.  
  29.                          R1_2:position(attrib=>R1,pos=>1,
  30.                                        share=>[R2_2,A1_6,A2_6,A2_7,A3_7]),
  31.                          R2_2:position(attrib=>R2,pos=>1,
  32.                                        share=>[R1_2,A1_6,A2_6,A2_7,A3_7]),
  33.                          R3_2:position(attrib=>R3,pos=>1,share=>[]),
  34.  
  35.                          A1_6:position(attrib=>A1,pos=>2,
  36.                                        share=>[R1_2,R1_2,A2_6,A2_7,A3_7]),
  37.                          A2_6:position(attrib=>A2,pos=>2,
  38.                                        share=>[R1_2,R1_2,A1_6,A2_7,A3_7]), 
  39.  
  40.                          A1_7:position(attrib=>A2,pos=>3,share=>[]),
  41.                          A2_7:position(attrib=>A2,pos=>3,
  42.                                        share=>[R1_2,R1_2,A1_6,A2_6,A3_7]),
  43.                          A3_7:position(attrib=>A3,pos=>3,
  44.                                        share=>[R1_2,R1_2,A1_6,A2_6,A2_7])
  45.                        ],
  46.          attributes => [ A1:attribute(
  47.                             occurrences=>[A1_1,A1_2,A1_4,A1_5,A1_6,A1_7]
  48.                                      ),
  49.                          A2:attribute(
  50.                             occurrences=>[A2_1,A2_2,A2_3,A2_4,A2_5,A2_6,A2_7]
  51.                                      ),
  52.                          A3:attribute(
  53.                             occurrences=>[A3_1,A3_2,A3_3,A3_4,A3_5,A3_7]
  54.                                       ),
  55.                          R1:attribute(occurrences=>[R1_1,R1_2]),
  56.                          R2:attribute(occurrences=>[R2_1,R2_2]),
  57.                          R3:attribute(occurrences=>[R3_1,R3_2])
  58.                        ]  
  59.        ),
  60. chapla(Pgm),
  61. @=map(writeout,Pgm.attributes)?
  62.