判断数组中是否有重复元素,及删除重复的元素

1、若数组中有重复元素,其排序后两个重复元素是相邻的。
故我们遍历数组判断arr[i]==arr[i+1]?,
2、删除时,定义一个双指针,i指向数组头部,、用j遍历数组,如果num[i]!=num[j],将num[j]放到nums[i]中

    /**
     * 移除数组中重复元素
     */
    public static void removeDuplicates(int[] nums) {
        Arrays.sort(nums);
        int i=0;
        for (int j = 1; j <nums.length ; j++) {
            if (nums[j] != nums[i]) {
                //i++;
                nums[++i]=nums[j];
            }
        }
        for (int j = 0; j <=i ; j++) {
            System.out.print(nums[j]+" ");
        }
    }
    /**
     * 移除数组中指定元素
     */
    public static void removeValue(int nums[],int key) {
        int i=0;
        for (int j = 0; j <nums.length ; j++) {
            if (nums[j] != key) {
                nums[i]=nums[j];
                i++;
            }

        }
        for (int j = 0; j <i ; j++) {
            System.out.print(nums[j]+" ");
        }

    }
    /**
     * 判断字符串是否有相同元素
     */
    public static boolean containsDuplicate2(String str) {
        char[] arr=str.toCharArray();
        Arrays.sort(arr);
        for (int i = 1; i <arr.length ; i++) {
            if (arr[i] == arr[i-1]) {
                return true;

            }

        }
        return false;
    }
    public static boolean containsDuplicate1(String str) {
        for (int i = 0; i < str.length(); i++) {
            if (str.indexOf(str.charAt(i),i+1)!=-1) {
                return false;
            }

        }
        return true;
    }
    /**判断数组是否有相同元素
     * 如果存在重复元素排序后应该相邻
     */
    public static boolean containsDuplicate(int[] nums) {

        Arrays.sort(nums);
        for (int i = 1; i <nums.length ; i++) {
            if (nums[i] == nums[i-1]) {
                return true;
            }

        }
        return false;
  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
删除VBA数组中重复元素,可以使用循环和条件语句来实现。以下是一个示例代码: Sub RemoveDuplicates() Dim arr1 As Variant Dim i As Long, j As Long, k As Long arr1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 8, 9, 10, 10) '示例数组 '遍历数组 For i = LBound(arr1) To UBound(arr1) '检查当前元素是否重复元素 For j = i + 1 To UBound(arr1) If arr1(i) = arr1(j) Then '将重复元素置为空字符串 arr1(j) = "" End If Next j Next i '创建新数组,仅包含非空元素 Dim newArr() As Variant ReDim newArr(0 To UBound(arr1)) k = 0 For i = LBound(arr1) To UBound(arr1) If arr1(i) <> "" Then newArr(k) = arr1(i) k = k + 1 End If Next i '输出结果 For i = LBound(newArr) To UBound(newArr) Debug.Print newArr(i) Next i End Sub 这段代码首先遍历数组,检查每个元素是否重复元素,若是则将其置为空字符串。然后根据非空元素创建一个新数组,并输出结果。注意,这里假设数组中元素是数型,如果数组中元素是字符串型,需要将条件判断部分的arr1(i) = arr1(j)改为StrComp(arr1(i), arr1(j), vbTextCompare) = 0。<span class="em">1</span><span class="em">2</span><span class="em">3</span> #### 引用[.reference_title] - *1* *2* *3* [VBA 如何删除数组里的某个元素](https://blog.csdn.net/xuemanqianshan/article/details/103633050)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_2"}}] [.reference_item style="max-width: 100%"] [ .reference_list ]

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值