cnt <- function(vector) {
 x <- abs(vector)
 z <- x * 0 + 1
 times <- max(floor(log(max(x), 2)), 0)
 for(i in 1:times) {
  y <- x
  x <- x * 0 - 1
  x <- x + (y %% 2 != 0) * (y + 1) / 2 
  z <- z + (x != -1)
 }
 return(z)
}

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS