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 >
Wrap
Text File
|
1996-06-04
|
3KB
|
62 lines
%
% Program Remove (CP) (with goal)
%
Pgm =
program( positions => [ R1_1:position(attrib=>R1,pos=>0,share=>[A2_1]),
R2_1:position(attrib=>R2,pos=>0,share=>[A3_1]),
R3_1:position(attrib=>R3,pos=>0,share=>[A3_2]),
A1_1:position(attrib=>A1,pos=>1,share=>[A1_2]),
A2_1:position(attrib=>A2,pos=>1,share=>[R1_1,A2_2]),
A3_1:position(attrib=>A3,pos=>1,share=>[R3_1]),
A1_2:position(attrib=>A1,pos=>2,share=>[A1_1]),
A2_2:position(attrib=>A2,pos=>2,share=>[A2_1]),
A3_2:position(attrib=>A3,pos=>2,share=>[R3_1]),
A2_3:position(attrib=>A2,pos=>0,share=>[A3_3]),
A3_3:position(attrib=>A3,pos=>0,share=>[A2_3]),
A1_4:position(attrib=>A1,pos=>0,share=>[A1_5,A3_4]),
A2_4:position(attrib=>A2,pos=>0,share=>[A2_5]),
A3_4:position(attrib=>A3,pos=>0,share=>[A1_4,A3_5]),
A1_5:position(attrib=>A1,pos=>1,share=>[A1_4]),
A2_5:position(attrib=>A2,pos=>1,share=>[A2_4]),
A3_5:position(attrib=>A3,pos=>1,share=>[A3_4]),
R1_2:position(attrib=>R1,pos=>1,
share=>[R2_2,A1_6,A2_6,A2_7,A3_7]),
R2_2:position(attrib=>R2,pos=>1,
share=>[R1_2,A1_6,A2_6,A2_7,A3_7]),
R3_2:position(attrib=>R3,pos=>1,share=>[]),
A1_6:position(attrib=>A1,pos=>2,
share=>[R1_2,R1_2,A2_6,A2_7,A3_7]),
A2_6:position(attrib=>A2,pos=>2,
share=>[R1_2,R1_2,A1_6,A2_7,A3_7]),
A1_7:position(attrib=>A2,pos=>3,share=>[]),
A2_7:position(attrib=>A2,pos=>3,
share=>[R1_2,R1_2,A1_6,A2_6,A3_7]),
A3_7:position(attrib=>A3,pos=>3,
share=>[R1_2,R1_2,A1_6,A2_6,A2_7])
],
attributes => [ A1:attribute(
occurrences=>[A1_1,A1_2,A1_4,A1_5,A1_6,A1_7]
),
A2:attribute(
occurrences=>[A2_1,A2_2,A2_3,A2_4,A2_5,A2_6,A2_7]
),
A3:attribute(
occurrences=>[A3_1,A3_2,A3_3,A3_4,A3_5,A3_7]
),
R1:attribute(occurrences=>[R1_1,R1_2]),
R2:attribute(occurrences=>[R2_1,R2_2]),
R3:attribute(occurrences=>[R3_1,R3_2])
]
),
chapla(Pgm),
@=map(writeout,Pgm.attributes)?