kkobayashi #7326(2008/08/25 03:38 GMT) [ R ] Rating0/0=0.00
R的にはループを使わない方向で。
1 2 3 4 5 6
bytes.pretty <- function(n){ u <- c('', 'k', 'M', 'G', 'T') r <- 1024^(1:length(u)-1) i <- which.min(abs(512-n/r)) sprintf("%.1f%s", n/r[i], u[i]) }
Rating0/0=0.00-0+
[ reply ]
kkobayashi
#7326()
[
R
]
Rating0/0=0.00
R的にはループを使わない方向で。
bytes.pretty <- function(n){ u <- c('', 'k', 'M', 'G', 'T') r <- 1024^(1:length(u)-1) i <- which.min(abs(512-n/r)) sprintf("%.1f%s", n/r[i], u[i]) }Rating0/0=0.00-0+
[ reply ]