RosettaCodeData/Task/Find-common-directory-path/J/find-common-directory-path-1.j

parseDirs       =: = <;.2 ]
getCommonPrefix =: {. ;@{.~ 0 i.~ *./@(="1 {.)

getCommonDirPath=: [: getCommonPrefix parseDirs&>