From 392f8a7d257184ad01199609680ce601aadfdde6 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Fri, 11 Nov 2022 12:27:13 +0200 Subject: [FP/HW2] Simplified nested cdr calls --- Year 2/Functional Programming/hw2.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Year 2/Functional Programming') 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 * -- cgit v1.3.1-26-gb76a