suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

further simplification

Browse Source
This commit is contained in:
Sorawee Porncharoenwase 2021-01-03 20:53:31 -08:00 committed by Sam Tobin-Hochstadt
parent 64067704bc
commit 5ee0f73957
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/racket/list.rkt
View File

@ -678,9 +678,8 @@
;; then we change it to #(3 5 6 7)
[index-to-change
(define val-to-change (add1 (vector-ref k* index-to-change)))
(vector-set! k* index-to-change val-to-change)
(for ([i (in-range (add1 index-to-change) k)]
[v (in-naturals (add1 val-to-change))])
(for ([i (in-range index-to-change k)]
[v (in-naturals val-to-change)])
(vector-set! k* i v))]
;; Otherwise, there's no incrementable index. E.g.,
;; N = 10 and we have #(6 7 8 9), so we quit enumeration