Chicken Scheme: (use vector-lib) (define (add1 vec val n) (define *clone* (vector-copy vec))) (define fold-using (if (>= n 0) vector-fold vector-fold-right)) (define (substitution-of total-replacements value)…
Don't use structures as lenses over unchecked input data.
Chicken Scheme: (use vector-lib) (define (add1 vec val n) (define *clone* (vector-copy vec))) (define fold-using (if (>= n 0) vector-fold vector-fold-right)) (define (substitution-of total-replacements value)…
Don't use structures as lenses over unchecked input data.