Rosetta Code

Find common directory path: Difference between revisions

Page Discussion

Find common directory path (view source)

Revision as of 19:07, 1 November 2020

122 bytes added ,  3 years ago
→‎{{header|Haskell}}: Tidied applicative version.
(→‎{{header|Haskell}}: Tidied applicative version.)
Line 1,019:
]</lang>
 
Or perhaps, expressed directly in applicative terms:
<lang haskell>import Data.List (transpose, intercalate)
import Data.List.Split (splitOn)
 
import Data.Bool (bool)
 
------------------ COMMON DIRECTORY PATH -----------------
cdp :: [String] -> String▼
 
cdp =
▲cdpcommonDirectoryPath :: [String] -> String
flip
commonDirectoryPath [] = []
(bool .
commonDirectoryPath xs =
intercalate "/" .$
fmap head .
head <$> takeWhile ((all . (==) . head) <*> tail) . transpose . fmap (splitOn "/"))$
transpose ([])splitOn "/" <*$> xs)
 
null
--------------------------- TEST -------------------------
main :: IO ()
main =
(putStrLn . cdpcommonDirectoryPath)
[ "/home/user1/tmp/coverage/test"
, "/home/user1/tmp/covert/operator"
Hout
9,655

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/144087"