4 lines
126 B
Text
4 lines
126 B
Text
parseDirs =: = <;.2 ]
|
|
getCommonPrefix =: {. ;@{.~ 0 i.~ *./@(="1 {.)
|
|
|
|
getCommonDirPath=: [: getCommonPrefix parseDirs&>
|