标签：10 index Spring element fib lst cdr Scheme Tutorial

Discussion 10： https://inst.eecs.berkeley.edu/~cs61a/sp21/disc/disc10/#introduction

• Q1: Factorial
• Q2: (Tutorial) Fibonacci
• Q3: List Concatenation
• Q4: (Tutorial) Warm-up
• Q5: (Tutorial) List Duplicator
• Q6: (Tutorial) List Insert

Q1: Factorial

x的阶乘

# python
def factorial(x):
    if x <= 1:
        return 1
    else:
        return x * factorial(x-1)

# scheme
(define (factorial x)
  (if (<= x 1) 1 (* x (factorial (- x 1))))
)

Q2: (Tutorial) Fibonacci

斐波那契数列

# python
def fib(n):
    if n < 2:
        return n
    else:
        return fib(n-1) + fib(n-2)

# scheme
(define (fib n)
    (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2)))))

Q3: List Concatenation

# scheme
(define (list-concat a b)
    (if (null? a)
        b
        (cons (car a) 
              (list-concat (cdr a) b)))
)

Q4: (Tutorial) Warm-up

# scheme
(car (cdr (cdr (cdr s))))

Q5: (Tutorial) List Duplicator

# scheme
(define (duplicate lst)
    (if (null? lst)
        lst
        (cons (car lst) (cons (car lst) (duplicate (cdr lst)))))
)

Q6: (Tutorial) List Insert

# python
def inserte(element, lst, index):
    if index == 0:
        return [element] + lst
    else:
        return [lst[0]] + inserte(element, lst[1:], index - 1)

# scheme
(define (insert element lst index)
    (if (= index 0)
        (cons element lst)
        (cons (car lst) (insert element (cdr lst) (- index 1))))
)

标签：10,index,Spring,element,fib,lst,cdr,Scheme,Tutorial
来源： https://www.cnblogs.com/ikventure/p/15042013.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。