- プログラミングのお題スレ Part4
403 ：デフォルトの名無しさん[sage]：2014/07/04(金) 16:57:10.42 ID:JCAFfbJv - >>396
import Control.Monad
import Data.List (inits, tails)
f396 :: [a] -> [[a]]
f396 = init . liftM2 (zipWith (++)) tails inits
main :: IO ()
main = mapM_ putStrLn $ f396 "どうしていするかな"
|
|