Data update

Task/Damm-algorithm/Refal/damm-algorithm.refal

@@ -0,0 +1,38 @@
+$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>;
+};