shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add words

--- a/lib/Text/String.hs

+++ b/lib/Text/String.hs

@@ -92,6 +92,14 @@

 unlines :: [String] -> String

 unlines = concatMap (++ "\n")

+

+words :: String -> [String]

+words s =

+  case dropWhile isSpace s of

+    "" -> []

+    s' -> w : words s''

+      where (w, s'') = span (not . isSpace) s'

+

 unwords :: [String] -> String

 unwords ss = intercalate " " ss

-- 

⑨