RosettaCodeData/Task/Find-common-directory-path/Ed/find-common-directory-path.ed

10 lines
94 B
Plaintext

# by Artyom Bologov
H
,p
g/.*/s//&|/
,j
s/^([^|]*\/)[^|]*\|(\1[^|]*\|)*$/&: \1/
s/\|/ /g
,p
Q