| 
                                    
                                    
                                    
                                    
                                    
                                    
                                    
                                     
                                        
                                     
                                    
                                        
                                        - 博士后
 
                                        
                                        - 2699998
 
                                        - 3587
 
                                        - 11
 
                                        - 2173 朵
 
                                        - 7386 个
 
                                        - 1021 个
 
                                        - 91120
 
                                        - 2014-08-23
 
                                     
                                    
                                    
                                    
                                 | 
                                
                                    
                                        
                                            
                                                
                                                1#
                                                
                                            
                                        
                                        
                                            
                                                
                                                
                                                t
                                                T
                                             
                                            
                                            
                                            
                                                
                                                发表于 2022-05-14 12:42
                                            
                                                                                        
                                            | 
                                            
                                            
                                            |只看楼主
                                            
                                         
                                     
                                    
                                    
                
                
                
                
                    
                    
                    
                   
                    
                        
                        
                        题目描述 给你一个 升序排列 的数组 nums ,请你 原地 删除重复出现的元素,使每个元素 只出现一次 ,返回删除后数组的新长度。元素的 相对顺序 应该保持 一致 。
  由于在某些语言中不能改变数组的长度,所以必须将结果放在数组 nums 的第一部分。更规范地说,如果在删除重复项之后有 k 个元素,那么 nums 的前 k 个元素应该保存最终结果。
  将最终结果插入 nums 的前 k 个位置后返回 k 。
  不要使用额外的空间,你必须在 原地 修改输入数组 并在使用 O(1) 额外空间的条件下完成。
  题目难度:中等 题目来源:LeetCode-removeDuplicates 题目交流:  584781753
 
  |  
 - ' 请将断言插件升级到 v1.1
  
- Import "SmAssert.dll"
  
  
- Function removeDuplicates(nums)
  
-     // 您的代码写在这里
  
- End Function
  
  
  
- SmAssert.That removeDuplicates(Array(1, 1, 2)), "=", Array(1, 2)
  
- SmAssert.That removeDuplicates(Array(0, 0, 1, 1, 1, 2, 2, 3, 3, 4)), "=", Array(0, 1, 2, 3, 4)
  
- SmAssert.That removeDuplicates(Array(7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9)), "=", Array(7, 8, 9)
  
  复制代码 参考题解- ' 请将断言插件升级到 v1.1
  
- Import "SmAssert.dll"
  
  
- VBSBegin
  
-     
  
-     '【作者】:神梦无痕
  
-     '【QQ】:1042207232
  
-     '【Q群】:584781753
  
-     
  
-     Function removeDuplicates(nums)
  
-         Dim i, k
  
-         
  
-         For i = 0 To UBound(nums)
  
-             If nums(i) <> nums(k) Then 
  
-                 k = k + 1
  
-                 nums(k) = nums(i)
  
-             End If
  
-         Next
  
-         Redim Preserve nums(k)
  
-         removeDuplicates = nums
  
-     End Function
  
- VBSEnd
  
  
  
- SmAssert.That removeDuplicates(Array(1, 1, 2)), "=", Array(1, 2)
  
- SmAssert.That removeDuplicates(Array(0, 0, 1, 1, 1, 2, 2, 3, 3, 4)), "=", Array(0, 1, 2, 3, 4)
  
- SmAssert.That removeDuplicates(Array(7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9)), "=", Array(7, 8, 9)
  
  复制代码 插件下载【插件】神梦断言插件 SmAssert.dll,帮助开发者发现业务逻辑错误  
                        
                     
                    
                    
                    
                    
                    
                    
                    
                    
                        
                        
                     
                     |