いやあ

やっとできた、ピラミッド表示。

n <- 4
unlist(mapply(function(a, b){cat(rep(" ", a), rep("*", b), "\n", sep="")}, (n-1):0, (1:n)*2-1))

   *
  ***
 *****
*******

Rなら絶対ループなんて使わなくてもできる！って思ってて、実際できたけど、苦肉の策ではある・・・。
もう少しスマートにならんかな。でも、無名関数を引数にできるってのはとってもステキ。