読者です 読者をやめる 読者になる 読者になる

餡子付゛録゛

ソフトウェア開発ツールの便利な使い方を紹介。

加算後の除算≿除算後の加算

かなり大量に演算しないと目立ちませんが、500万サンプルで比較すると、0.10秒と0.16秒で差が計測できました。

obs <- 5000000
x <- runif(obs)
y <- runif(obs)
### まとめて割り算 ###
gc();gc()
system.time({
  n <- x + y
  m <- n / 2
  print(sum(m))
})

### 割り算してから加算 ###
gc();gc()
system.time({
  n <- x/2 + y/2
  m <- n
  print(sum(m))
})