diff options
1 files changed, 1 insertions, 1 deletions
| -rw-r--r-- | Year 2/Functional Programming/hw2.rkt | 2 |
diff --git a/Year 2/Functional Programming/hw2.rkt b/Year 2/Functional Programming/hw2.rkt index c0f4223..4cff576 100644 --- a/Year 2/Functional Programming/hw2.rkt +++ b/Year 2/Functional Programming/hw2.rkt @@ -6,7 +6,7 @@ (cond [(= (length fs) 0) 0] [(= (length fs) 1) (lambda (y) ((car fs) (car xs) y))] [else (lambda (y) (+ ((first fs) (first xs) ((second fs) (second xs) y)) - ((pair-compose (cdr (cdr fs)) (cdr (cdr xs))) y) ))])) + ((pair-compose (cddr fs) (cddr xs)) y) ))])) ;; Примери (define fs (list * |