The little Scheme我的代码

最新推荐文章于 2021-10-11 06:26:29 发布

原创最新推荐文章于 2021-10-11 06:26:29 发布 · 316 阅读

0 ·

CC 4.0 BY-SA版权

scheme 专栏收录该内容

6 篇文章

订阅专栏

本文分享了一段独特的编程日志，从午休醒来后寻找音乐开始，作者转而阅读《The Little Scheme》并进行了一系列有趣的代码实践。通过定义原子判断函数、实现元素插入操作和比较两个list相等的函数，展示了使用Scheme语言进行编程的乐趣。文章不仅揭示了作者在技术探索过程中的思考，还体现了将不同兴趣融合于编程世界中的独特视角。

今天回到屋子先睡了一觉，昨天没休息好，打了一宿蚊子，战果丰盛。睡醒后，开始，找一些好听的音乐。最后该看书了，继续我的The Little Scheme。本来，我是先看SICP的，但是，看着看着不知怎么就跑到这本书了。还好这本比较薄，马上就要看完了。接下来，写了几个习题：

(define atom?
  (lambda (x)
    (not (or (null? x) (pair? x)))))
(define insertR* 
  (lambda (old new lat)
    (cond
      ((null? lat) '())
      ((atom? (car lat))
       (cond
         ((eq? old (car lat))
          (cons (car lat) (cons new (insertR* old new (cdr lat)))))
         (else (cons (car lat) (insertR* old new (cdr lat))))))
      (else
       (cons (insertR* old new (car lat)) (insertR* old new (cdr lat)))))))

用Scheme写程序就是一个字：爽。

比较两个list相等：

(define eqlist*
  (lambda (lat1 lat2)
    (cond
    ((and (null? lat1) (null? lat2)) #t)
    ((or (null? lat1) (null? lat2)) #f)
    ((and (atom? (car lat1)) (atom? (car lat2))) (and (eq? (car lat1) (car lat2)) (eqlist* (cdr lat1) (cdr lat2))))
    (else (and (eqlist* (car lat1) (car lat2)) (eqlist* (cdr lat1) (cdr lat2)))))))