pooq #6198(2008/04/22 08:31 GMT) [ R ] Rating1/1=1.00
substringの引数がベクトルでもいいことがわかったので これでピラミッドの問題をやってみた。
1 2 3 4
pyramid <- function(n,s="*"){ a <- paste(rep(c(" ",s),c(n-1,n*2-1)),collapse="") writeLines(substring(a,1:n,1:n*2+n-2)) }
Rating1/1=1.00-0+
[ reply ]
pooq
#6198()
[
R
]
Rating1/1=1.00
pyramid <- function(n,s="*"){ a <- paste(rep(c(" ",s),c(n-1,n*2-1)),collapse="") writeLines(substring(a,1:n,1:n*2+n-2)) }Rating1/1=1.00-0+
[ reply ]