(R)10進数から2進数への変換

変換したい10進数と桁数を入力すると2進数のベクトルを返します

dec2bin <- function(num, digit=0){
  if(num <= 0 && digit <= 0){
    return(NULL)
  }else{
    return(append(Recall(num%/%2,digit-1), num%%2))
  }
}

使用例

> dec2bin(150) #150の2進表現
[1] 1 0 0 1 0 1 1 0

> dec2bin(150,10) #10桁指定
 [1] 0 0 1 0 0 1 0 1 1 0

全探索とかで意外と使えます。