Haskel
main = do cs <- getContents putStrLn $ longWord $ words cs longWord :: [String] -> String longWord xs = head $ qsort xs qsort :: [String] -> [String] qsort [ ] = [ ] qsort (p:xs) = qsort gt ++ [p] ++ qsort lteq where lteq = [x | x <- xs, l…
main = do cs <- getContents putStrLn $ longWord $ words cs longWord :: [String] -> String longWord xs = head $ qsort xs qsort :: [String] -> [String] qsort [ ] = [ ] qsort (p:xs) = qsort gt ++ [p] ++ qsort lteq where lteq = [x | x <- xs, l…
