遞歸方案程序迭代

Question

在方案迭代中制作這兩個遞歸程序時需要幫助嗎？ 我進行了遞歸，但是被困在為兩者創建迭代上。

問題1-遞歸

(define mylength
 (lambda (l)
   (cond
   ((null? l) 0)
     (else (+ 1 (mylength (cdr l)))))))

問題1-迭代？

問題2-遞歸

(define mylistref
  (lambda (l index)
   (cond
   ((= index 0)(car l))
     (else
       (mylistref (cdr l) (- index 1))))))

問題2-迭代？

Answer 1

Scheme沒有任何循環結構，因此如果遍歷某種數據結構，則唯一的選擇是使用遞歸。 你可以在這里讀更多關於它的內容