Find common directory path: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 527:
Output:
<pre>/home/user1/tmp</pre>
=={{header|Perl 6}}==
<lang Perl 6>my @directories = </home/user1/tmp/coverage/test /home/user1/tmp/covert/operator /home/user1/tmp/coven/members> ;
my $separator = "/" ;
my @commonPathElements ;
my %elementsFound ;
for @directories -> $dir {
for $dir.split( $separator ) -> $pathelement {
%elementsFound{ $pathelement }++ ;
}
}
for @directories[0].split( $separator ) -> $pathelement {
if %elementsFound{ $pathelement } == @directories.elems {
@commonPathElements.push( $pathelement ) ;
}
}
say "The longest common path is " ~ @commonPathElements.join( $separator ) ~ " !" ;
</lang>
Output:
<pre>
The longest common path is /home/user1/tmp !
</pre>
=={{header|PicoLisp}}==
| |||