6 lines
190 B
Text
6 lines
190 B
Text
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"
|