splitOn :: Char -> String -> String splitOn _ [] = [] splitOn char a = takeWhile (/=char) a split :: Char -> String -> [String] split _ [] = [] split char a = [g] ++ split char (drop ((length g)+1) a) where g=splitOn char a
4 Comments
splitOn :: Char -> String -> String splitOn _ [] = [] splitOn char a = takeWhile (/=char) a split :: Char -> String -> [String] split _ [] = [] split char a = [g] ++ split char (drop ((length g)+1) a) where g=splitOn char a
OMG куда катится мир)
В каком смысле?)
в смысле функциональщина). В чем кайф? Или это как у мазохистов?
Ходит слух, что под квантовые компьютеры будут на функциональных кодить, уже даже потихоньку начинают.