kkobayashi #689(2007/07/12 18:25 GMT) [ R ] Rating0/0=0.00
ループなし版
1 2
n <- 4 cat(unlist(mapply(function(a, b){cat(rep(" ", a), rep("*", b), "\n", sep="")}, (n-1):0, (1:n)*2-1)))
Rating0/0=0.00-0+
[ reply ]
kkobayashi
#689()
[
R
]
Rating0/0=0.00
n <- 4 cat(unlist(mapply(function(a, b){cat(rep(" ", a), rep("*", b), "\n", sep="")}, (n-1):0, (1:n)*2-1)))Rating0/0=0.00-0+
[ reply ]