与えられた文字列でピラミッドです。id:MAS3:20080210#p1の続編。 import Data.List main = do putStrLn $ pyramid "hoge" putStrLn $ pyramid "abracadabra" pyramid :: String -> String pyramid xs = pyramid' 0 xs pyramid' :: Int -> String -> String …