langs a-z

Task/Find-common-directory-path/PureBasic/find-common-directory-path-1.purebasic

@@ -0,0 +1,23 @@
+Procedure.s CommonPath(Array InPaths.s(1),separator.s="/")
+  Protected SOut$=""
+  Protected i, j, toggle
+
+  If ArraySize(InPaths())=0
+    ProcedureReturn InPaths(0)  ; Special case, only one path
+  EndIf
+
+  Repeat
+    i+1
+    toggle=#False
+    For j=1 To ArraySize(InPaths())
+      If (StringField(InPaths(j-1),i,separator)=StringField(InPaths(j),i,separator))
+        If Not toggle
+          SOut$+StringField(InPaths(j-1),i,separator)+separator
+          toggle=#True
+        EndIf
+      Else
+        ProcedureReturn SOut$
+      EndIf
+    Next
+  ForEver
+EndProcedure

Task/Find-common-directory-path/PureBasic/find-common-directory-path-2.purebasic

@@ -0,0 +1,6 @@
+Dim t.s(2)
+t(0)="/home/user1/tmp/coverage/test"
+t(1)="/home/user1/tmp/covert/operator"
+t(2)="/home/user1/tmp/coven/members"
+
+Debug CommonPath(t(),"/"))