#!/usr/bin/env runhaskell main :: IO () main = do let a = splitOn ' ' "hoge fuga" case a of [] -> putStrLn "empty" x:xs -> putStrLn x splitOn :: Char -> String -> [String] splitOn splitter string = case string of [] -> [] x:xs -> if x == splitter then ["",xs] else [x:xs] -- (splitOn splitter xs)