【位运算】05.01插入

给定两个整型数字 N 与 M,以及表示比特位置的 i 与 j(i <= j,且从 0 位开始计算)。

编写一种方法,使 M 对应的二进制数字插入 N 对应的二进制数字的第 i ~ j 位区域,不足之处用 0 补齐。

题目保证从 i 位到 j 位足以容纳 M, 例如: M = 10011,则 i~j 区域至少可容纳 5 位。

示例1:

 输入:N = 1024(10000000000), M = 19(10011), i = 2, j = 6
 输出:N = 1100(10001001100)

示例2:

输入: N = 0, M = 31(11111), i = 0, j = 4
 输出:N = 31(11111)

题解:

class Solution {
    public int insertBits(int N, int M, int i, int j) {
        int[] nbits = new int[32]; // N 的二进制数组
        int[] mbits = new int[32]; // M 的二进制数组
        int mask = 1;
        // 处理N的二进制数组,例如 N=8 [...1, 0, 0, 0]
        for (int m=0; m<32; m++) {
            if ((N & mask) != 0) {
                nbits[m] = 1;
            }
            mask = mask << 1;
        }
        mask = 1;
        // 同上
        for (int m=0; m<32; m++) {
            if ((M & mask) != 0) {
                mbits[m] = 1;
            }
            mask = mask << 1;
        }
        for (int k=i; k<=j; k++) {
            nbits[k] = mbits[k-i];
        }
        // 处理成原来的数
        int ret = 0;
        mask = 1;
        for (int m=0; m<32; m++) {
            ret = ret + (nbits[m] * mask);
            mask = mask << 1;
        }
        return ret;
    }
}
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
帮我优化以下VBA代码,其中文件数量为31以内:Dim filePaths(5) As String Dim i As Integer ' 设置文件路径 filePaths(0) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.01.xlsx" filePaths(1) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.02.xlsx" filePaths(2) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.03.xlsx" filePaths(3) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.04.xlsx" filePaths(4) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.05.xlsx" filePaths(5) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.06.xlsx" ' 遍历文件路径数组,逐个导入Excel数据 For i = 0 To UBound(filePaths) ' 判断是否存在同样的数据 Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT COUNT(*) FROM 场景使用清单 WHERE 文件路径 = '" & filePaths(i) & "'") If rs.Fields(0).Value > 0 Then MsgBox "文件 " & filePaths(i) & " 中的数据已经存在于数据库中。" Else ' 导入Excel数据 DoCmd.TransferSpreadsheet acImport, 10, "场景使用清单", filePaths(i), True, "" ' 添加文件路径到新导入的记录 CurrentDb.Execute "UPDATE 场景使用清单 SET 文件路径 = '" & filePaths(i) & "' WHERE 文件路径 IS NULL" ' 删除源文本 Kill filePaths(i) End If Next i
05-25
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值