Data update

Task/Damm-algorithm/ANSI-BASIC/damm-algorithm.basic

@@ -0,0 +1,28 @@
+100 REM Damm algorithm
+110 OPTION BASE 0
+120 DIM DT(9, 9)
+130 FOR Y = 0 TO 9
+140    FOR X = 0 TO 9
+150       READ DT(X, Y)
+160    NEXT X
+170 NEXT Y
+180 INPUT N$
+190 DO WHILE N$ <> ""
+200    LET D = 0
+210    FOR I = 1 TO LEN(N$)
+220       LET D = DT(VAL(MID$(N$, I, 1)), D)
+230    NEXT I
+240    IF D <> 0 THEN PRINT "FAIL" ELSE PRINT "PASS"
+250    INPUT N$
+260 LOOP
+270 DATA 0, 3, 1, 7, 5, 9, 8, 6, 4, 2
+280 DATA 7, 0, 9, 2, 1, 5, 4, 8, 6, 3
+290 DATA 4, 2, 0, 6, 8, 7, 1, 3, 5, 9
+300 DATA 1, 7, 5, 0, 9, 8, 3, 4, 2, 6
+310 DATA 6, 1, 2, 3, 0, 4, 5, 9, 7, 8
+320 DATA 3, 6, 7, 4, 2, 0, 9, 5, 8, 1
+330 DATA 5, 8, 6, 9, 7, 2, 0, 1, 3, 4
+340 DATA 8, 9, 4, 5, 3, 6, 2, 0, 1, 7
+350 DATA 9, 4, 3, 8, 6, 1, 7, 2, 0, 5
+360 DATA 2, 5, 8, 1, 4, 3, 6, 7, 9, 0
+370 END

Task/Damm-algorithm/Nascom-BASIC/damm-algorithm.basic

@@ -0,0 +1,23 @@
+10 REM Damm algorithm
+20 DIM DT(9,9)
+30 FOR Y=0 TO 9:FOR X=0 TO 9
+40 READ DT(X,Y)
+50 NEXT X:NEXT Y
+60 N$="":INPUT N$:IF N$="" THEN 130
+70 D=0
+80 FOR I=1 TO LEN(N$)
+90 D=DT(VAL(MID$(N$,I,1)),D)
+100 NEXT I
+110 IF D THEN PRINT "FAIL":GOTO 60
+120 PRINT "PASS":GOTO 60
+130 END
+140 DATA 0,3,1,7,5,9,8,6,4,2
+150 DATA 7,0,9,2,1,5,4,8,6,3
+160 DATA 4,2,0,6,8,7,1,3,5,9
+170 DATA 1,7,5,0,9,8,3,4,2,6
+180 DATA 6,1,2,3,0,4,5,9,7,8
+190 DATA 3,6,7,4,2,0,9,5,8,1
+200 DATA 5,8,6,9,7,2,0,1,3,4
+210 DATA 8,9,4,5,3,6,2,0,1,7
+220 DATA 9,4,3,8,6,1,7,2,0,5
+230 DATA 2,5,8,1,4,3,6,7,9,0

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>;
+};

Task/Damm-algorithm/SETL/damm-algorithm.setl

@@ -0,0 +1,26 @@
+program damm_algorithm;
+    tests := [5724, 5727, 112946, 112949];
+
+    loop for test in tests do
+        print(str test + ': ' + if damm test then 'Pass' else 'Fail' end);
+    end loop;
+
+    op damm(n);
+        dt := [[0,3,1,7,5,9,8,6,4,2],
+               [7,0,9,2,1,5,4,8,6,3],
+               [4,2,0,6,8,7,1,3,5,9],
+               [1,7,5,0,9,8,3,4,2,6],
+               [6,1,2,3,0,4,5,9,7,8],
+               [3,6,7,3,2,0,9,5,8,1],
+               [5,8,6,9,7,2,0,1,3,4],
+               [8,9,4,5,3,6,2,0,1,7],
+               [9,4,3,8,6,1,7,2,0,5],
+               [2,5,8,1,4,3,6,7,9,0]];
+
+        i := 0;
+        loop for d in str n do
+            i := dt(i+1)(val d+1);
+        end loop;
+        return i=0;
+    end op;
+end program;