Initial data commit

Task/Damm-algorithm/V-(Vlang)/damm-algorithm.v

@@ -0,0 +1,26 @@
+const table = [
+    [u8(0), 3, 1, 7, 5, 9, 8, 6, 4, 2],
+    [u8(7), 0, 9, 2, 1, 5, 4, 8, 6, 3],
+    [u8(4), 2, 0, 6, 8, 7, 1, 3, 5, 9],
+    [u8(1), 7, 5, 0, 9, 8, 3, 4, 2, 6],
+    [u8(6), 1, 2, 3, 0, 4, 5, 9, 7, 8],
+    [u8(3), 6, 7, 4, 2, 0, 9, 5, 8, 1],
+    [u8(5), 8, 6, 9, 7, 2, 0, 1, 3, 4],
+    [u8(8), 9, 4, 5, 3, 6, 2, 0, 1, 7],
+    [u8(9), 4, 3, 8, 6, 1, 7, 2, 0, 5],
+    [u8(2), 5, 8, 1, 4, 3, 6, 7, 9, 0],
+]
+
+fn damm(input string) bool {
+    mut interim := u8(0)
+    for c in input.bytes() {
+        interim = table[interim][c-'0'[0]]
+    }
+    return interim == 0
+}
+
+fn main() {
+    for s in ["5724", "5727", "112946", "112949"] {
+        println("${s:6}  ${damm(s)}")
+    }
+}