[FP/HW2] Simplified nested cdr calls

1 files changed, 1 insertions, 1 deletions

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 *