Initial data commit

Task/Test-a-function/Nim/test-a-function-1.nim

@@ -0,0 +1,18 @@
+proc reversed(s: string): string =
+  result = newString(s.len)
+  for i, c in s:
+    result[s.high - i] = c
+
+proc isPalindrome(s: string): bool =
+  s == reversed(s)
+
+when isMainModule:
+  assert(isPalindrome(""))
+  assert(isPalindrome("a"))
+  assert(isPalindrome("aa"))
+  assert(not isPalindrome("baa"))
+  assert(isPalindrome("baab"))
+  assert(isPalindrome("ba_ab"))
+  assert(not isPalindrome("ba_ ab"))
+  assert(isPalindrome("ba _ ab"))
+  assert(not isPalindrome("abab"))

Task/Test-a-function/Nim/test-a-function-2.nim

@@ -0,0 +1,26 @@
+import unittest
+
+proc reversed(s: string): string =
+  result = newString(s.len)
+  for i, c in s:
+    result[s.high - i] = c
+
+proc isPalindrome(s: string): bool =
+  s == reversed(s)
+
+when isMainModule:
+  suite "palindrome":
+    test "empty string":
+      check isPalindrome ""
+
+    test "string of length 1":
+      check isPalindrome "a"
+
+    test "string of length 2":
+      check isPalindrome "aa"
+
+    test "string of length 3":
+      check isPalindrome "aaa"
+
+    test "no palindrome":
+      check isPalindrome("foo") == false