http://karetta.jp/article/blog/oneline/012507より。ちっともHaskellらしくないけども。 *Main> partial_split "long time ago" [] ["long","time","ago"] *Main> partial_split " long time ago" [] ["long","time","ago"] *Main> partial_split "long ti…