--打印直角三角形。
import Control.Monadmain n = mapM_ print (map (\x -> replicate x '*') [1..n])
--打印等腰三角形，第n行有2n-1个*号。
import Control.Monadmain n = mapM_ print (map (\x -> (replicate (n-x) ' ')++(replicate (2*x-1) '*')++(replicate (n-x) ' ')) [1..n])本文共 315 字，大约阅读时间需要 1 分钟。
--打印直角三角形。
import Control.Monadmain n = mapM_ print (map (\x -> replicate x '*') [1..n])
--打印等腰三角形，第n行有2n-1个*号。
import Control.Monadmain n = mapM_ print (map (\x -> (replicate (n-x) ' ')++(replicate (2*x-1) '*')++(replicate (n-x) ' ')) [1..n])转载于:https://www.cnblogs.com/eternalwt/archive/2012/06/11/2545375.html