いわゆる息抜き。ちっこい問題を解くのは気楽だし、頭が活性化する(気がする)。 pyramid n = mapM_ putStrLn $ zipWith (++) spaces stars where stars = map (flip replicate '*') [1,3..2*n-1] spaces = map (flip replicate ' ') [n-1,n-2..0]
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。