From d062ec686a486822625e34cfa262e6d4e5b76a8d Mon Sep 17 00:00:00 2001
From: Mike Vink <mike1994vink@gmail.com>
Date: Sun, 4 Dec 2022 22:24:51 +0100
Subject: simultaneous operation and swap

---
 tree-recursion.rkt | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 tree-recursion.rkt

(limited to 'tree-recursion.rkt')

diff --git a/tree-recursion.rkt b/tree-recursion.rkt
new file mode 100644
index 0000000..031d40f
--- /dev/null
+++ b/tree-recursion.rkt
@@ -0,0 +1,19 @@
+#lang sicp
+(define (myfun n)
+  (cond ((< n 3) n)
+        (else (+ (myfun (- n 1))
+                 (* 2 (myfun (- n 2)))
+                 (* 3 (myfun (- n 3)))))))
+(myfun 11)
+
+(define (myfun2 n)
+  (define (mf i a b c)
+    (cond ((< n 3) n)
+          ((> i n) a)
+          (else (mf (+ i 1) 
+                    (+ a (* 2 b) (* 3 c))
+                    a
+                    b))))
+  (mf 3 2 1 0))
+
+(myfun 11)
-- 
cgit v1.2.3