39 lines
676 B
Plaintext
39 lines
676 B
Plaintext
$ENTRY Go {
|
|
= <Test '5724'>
|
|
<Test '5727'>
|
|
<Test '112946'>
|
|
<Test '112949'>;
|
|
};
|
|
|
|
Test {
|
|
e.Ds = <Prout e.Ds ': ' <Damm e.Ds>>;
|
|
};
|
|
|
|
Damm {
|
|
('0') = Pass;
|
|
(s.Int) = Fail;
|
|
(s.Int) s.D e.Ds,
|
|
<Item <Numb s.Int> <DammTable>>: (e.Row),
|
|
<Item <Numb s.D> e.Row>: s.Next
|
|
= <Damm (s.Next) e.Ds>;
|
|
e.Ds = <Damm ('0') e.Ds>;
|
|
};
|
|
|
|
DammTable {
|
|
= ('0317598642')
|
|
('7092154863')
|
|
('4206871359')
|
|
('1750983426')
|
|
('6123045978')
|
|
('3674209581')
|
|
('5869720134')
|
|
('8945362017')
|
|
('9438617205')
|
|
('2581436790')
|
|
};
|
|
|
|
Item {
|
|
0 t.I e.X = t.I;
|
|
s.N t.I e.X = <Item <- s.N 1> e.X>;
|
|
};
|