Find common directory path: Difference between revisions
Added 11l
(→{{header|Haskell}}: Pruned out a redundant import) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 15:
<br><br>
=={{header|11l}}==
{{trans|C}}
<lang 11l>F find_common_directory_path(paths, sep = ‘/’)
V pos = 0
L
L(path) paths
I pos < path.len & path[pos] == paths[0][pos]
L.continue
L pos > 0
pos--
I paths[0][pos] == sep
L.break
R paths[0][0.<pos]
pos++
print(find_common_directory_path([
‘/home/user1/tmp/coverage/test’,
‘/home/user1/tmp/covert/operator’,
‘/home/user1/tmp/coven/members’]))</lang>
{{out}}
<pre>
/home/user1/tmp
</pre>
=={{header|Ada}}==
<lang ada>
| |||