nikuuchi · May 15, 2014 15:55
diff --git a/join.hs b/join.hs
 join :: [String] -> String
 join [] = ""
 join (x:[]) = x
 join (x:xs) = x ++ ", " ++ join xs


 main = do
        print $ join ["hoge", "fuga", "piyo"]
	join :: [String] -> String
	join [] = ""
	join (x:[]) = x
	join (x:xs) = x ++ ", " ++ join xs


	main = do
	print $ join ["hoge", "fuga", "piyo"]
No results found