Use incf

WyattBlue · Aug 17, 2023 · 5a518fc · 5a518fc
1 parent ac625ac
commit 5a518fc
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/resources/scripts/maxcut.pal b/resources/scripts/maxcut.pal
@@ -1,6 +1,6 @@
 #!/usr/bin/env auto-editor palet
 
-(define (mut-remove-large arr lim replace with)
+(define (remove-large! arr lim replace with)
  (define start-p 0)
  (define active #f)
  (define j 0)
@@ -22,19 +22,19 @@
  (set! active #f)
  )
  )
- (set! j (add1 j))
+ (incf j)
  )
 )
 
 
 (define (maxclip oarr min)
  (define arr (array-copy oarr))
- (mut-remove-large arr min 1 0)
+ (remove-large! arr min 1 0)
  arr
 )
 (define (maxcut oarr min)
  (define arr (array-copy oarr))
- (mut-remove-large arr min 0 1)
+ (remove-large! arr min 0 1)
  arr
 )