did hw07

Kettenkrado · Apr 23, 2024 · 9e75423 · 9e75423
1 parent 9193499
commit 9e75423
Show file tree

Hide file tree

Showing 6 changed files with 7 additions and 7 deletions.
diff --git a/projects/hw07/.ok_history b/projects/hw07/.ok_history
diff --git a/projects/hw07/.ok_storage b/projects/hw07/.ok_storage
diff --git a/projects/hw07/hw07.scm b/projects/hw07/hw07.scm
@@ -9,14 +9,14 @@
 )
 
 (define (repeatedly-cube n x)
-  (if (zero? n)
-      x
-      (let 
-        ((y (repeatedly-cube (- n 1) x)))
-        (* y y y))))
+    (if (zero? n)
+        x
+        (let
+            ((y (repeatedly-cube (- n 1) x)))
+            (* y y y))))
 
 (define (cddr s) (cdr (cdr s)))
 
-(define (cadr s) 'YOUR-CODE-HERE)
+(define (cadr s) (car (cdr s)))
 
-(define (caddr s) 'YOUR-CODE-HERE)
+(define (caddr s) (car (cdr (cdr s))))
diff --git a/projects/hw07/tests/__pycache__/cadr-caddr.cpython-310.pyc b/projects/hw07/tests/__pycache__/cadr-caddr.cpython-310.pyc
diff --git a/projects/hw07/tests/__pycache__/pow.cpython-310.pyc b/projects/hw07/tests/__pycache__/pow.cpython-310.pyc
diff --git a/projects/hw07/tests/__pycache__/repeatedly-cube.cpython-310.pyc b/projects/hw07/tests/__pycache__/repeatedly-cube.cpython-310.pyc