やっとできた、ピラミッド表示。 n <- 4 unlist(mapply(function(a, b){cat(rep(" ", a), rep("*", b), "\n", sep="")}, (n-1):0, (1:n)*2-1)) * *** ***** ******* Rなら絶対ループなんて使わなくてもできる！って思ってて、実際できたけど、苦肉の策ではあ…