Added data + haskell + python

kontrollsiffra/data/sample01.ans

@@ -0,0 +1 @@
+5

kontrollsiffra/data/sample01.in

@@ -0,0 +1 @@
+1 2 3 4 5 6 7 8 9

kontrollsiffra/sawny.hs

@@ -0,0 +1,17 @@
+import System.IO (getLine)
+
+toInt :: [String] -> [Int]
+toInt = map read
+
+-- Get every nth element in a list
+every :: Int -> [Int] -> [Int]
+every _ []     = []
+every n (x:xs) = x : every n (drop (n-1) xs)
+
+main = do
+    stdin <- getLine
+    let numbers = toInt $ words stdin
+    let total   = sum [foldl (\acc x -> acc + x*3) 0 (every 2 numbers),
+                       foldl (\acc x -> acc + x*7) 0 (every 2 (tail numbers))]
+
+    print $ total `mod` 10

kontrollsiffra/sawny.py

@@ -0,0 +1,13 @@
+from sys import stdin
+
+data = stdin.read().split();
+data = map(int, data);
+sum  = 0;
+
+for s in data[::2]:
+	sum = sum + 3*s;
+
+for s in data[1::2]:
+	sum = sum + 7*s;
+
+print sum % 10