RosettaCodeData/Task/Find-common-directory-path/K/find-common-directory-path.k

7 lines
190 B
Text
Raw Permalink Normal View History

2024-07-13 15:19:22 -07:00
fcp:{"/"/(+/*\1=#'?'+y\'x)#("/"\ x@0)}
/example usage
l:("/home/user1/tmp/coverage/test"; "/home/user1/tmp/covert/operator"; "/home/user1/tmp/coven/members")
fcp[l;"/"]
"/home/user1/tmp"