...
| Code Block |
|---|
(define (f_fwd loa)
(cond
[(empty? loa) base]
[(cons? loa)
(local
[(define (helper acc loaloa2)
(cond
[(empty? loaloa2) acc]
[(cons? loaloa2) (helper (... (first loa2)...acc...) (rest loa2))]))]
(helper (...(first loa)...accbase...) (rest loa)))])) |
It is very tempting to say that the above is equivalent to:
| Code Block |
|---|
(define (f_fwd loa) (cond [(empty? loa) base] [(cons? loa) (local [(define (helper acc loa2) (cond [(empty? loa2) acc] [(cons? loa2) (helper (... (first loa2)...acc...) (rest loa2))]))] (helper base loa)))])) |