R语言中While循环丢失首次迭代结果问题求助

核心问题点 #

• 循环条件遗漏最后一位：原代码while(x%/%2!=0)的判断逻辑会漏掉x=1的情况，此时x%/%2=0，循环直接终止，导致二进制的最高位（反转后的首位）没被加入结果。
• 余数获取顺序颠倒：先修改x再取余数的操作，导致每次添加的是修改后x的低位，完全搞反了二进制位的提取逻辑。
• 冗余的初始向量：vec<-1:5属于无意义操作，后续还要删除前5个元素，徒增代码复杂度。
• 多余的整数类型判断：R中直接输入的数字默认是numeric类型，这个判断不仅没用，还会干扰正常计算。

修复后的代码 #

dbf <- function(x) {
  vec <- c()
  # 循环处理直到x变为0，确保所有二进制位都被提取
  while(x > 0) {
    # 先提取当前x的最低位（余数）加入向量
    vec <- append(vec, x %% 2)
    # 将x右移一位（整除2），处理下一位
    x <- x %/% 2
  }
  # 将向量元素拼接成连续字符串输出
  cat(paste(vec, collapse = ""))
}

测试结果 #

调用dbf(35)时，35的二进制是100011，反转后为110001，修复后的函数会正确输出该结果。

内容的提问来源于stack exchange，提问作者lililililililili