kkobayashi #7431(2008/08/27 12:51 GMT) [ R ] Rating0/0=0.00
正攻法で文字列処理をすると長くなってしまうので、
少し変則的に文字列処理をしない方向で書いてみました。
1 2
n <- 4+1 l=rep("*",n^2);l[cumsum(n-abs(-n:n))]="\n";cat(l)
Rating0/0=0.00-0+
[ reply ]
kkobayashi
#7431()
[
R
]
Rating0/0=0.00
正攻法で文字列処理をすると長くなってしまうので、
少し変則的に文字列処理をしない方向で書いてみました。
n <- 4+1 l=rep("*",n^2);l[cumsum(n-abs(-n:n))]="\n";cat(l)Rating0/0=0.00-0+
[ reply ]