Add tasks for all the new languages

Task/Find-common-directory-path/Lingo/find-common-directory-path-1.lingo

@@ -0,0 +1,19 @@
+on getCommonPath (pathes, sep)
+  _player.itemDelimiter = sep
+
+  -- find length of shortest path (in terms of items)
+  commonCnt = the maxInteger
+  repeat with p in pathes
+    if p.item.count<commonCnt then commonCnt=p.item.count
+  end repeat
+
+  pathCnt = pathes.count
+  repeat with i = 1 to commonCnt
+    repeat with j = 2 to pathCnt
+      if pathes[j].item[i]<>pathes[j-1].item[i] then
+        return pathes[1].item[1..i-1]
+      end if
+    end repeat
+  end repeat
+  return pathes[1].item[1..commonCnt]
+end

Task/Find-common-directory-path/Lingo/find-common-directory-path-2.lingo

@@ -0,0 +1,7 @@
+pathes = []
+pathes.add("/home/user1/tmp/coverage/test")
+pathes.add("/home/user1/tmp/covert/operator")
+pathes.add("/home/user1/tmp/coven/members")
+
+put getCommonPath(pathes, "/")
+-- "/home/user1/tmp"