SICP 习题2.21 square-list

_NMfloat_

于 2016-06-12 21:29:49 发布

阅读量371

点赞数

CC 4.0 BY-SA版权

分类专栏： SICP

本文链接：https://blog.youkuaiyun.com/NMfloat/article/details/51649123

SICP 专栏收录该内容

77 篇文章

订阅专栏

本文介绍了一个使用Scheme语言实现的列表处理程序，包括映射操作、平方列表和打印列表的功能。通过具体的函数定义和调用展示如何处理数值列表，并比较了不同实现方式的效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

print-list的时候写了三个if，是个愚蠢的地方

(define (map-a proc items)
  (if (null? items)
    '()
    (cons (proc (car items))
      (map-a proc (cdr items)))))

(define nl newline)

(define print-list
  (lambda (s)
    (if (not (null? s)) (display (car s)))
    (if (not (null? s)) (display " "))
    (if (not (null? s)) (print-list (cdr s)))))

(nl)
(print-list (map-a abs '(-10 2.5 -11.6 17)))

(define square
  (lambda (x) (* x x)))

(define (square-list-a items)
  (if (null? items)
    '()
    (cons (square (car items)) (square-list-a (cdr items)))))

(define (square-list-b items)
  (map-a square items)) 

(nl)
(print-list (square-list-a '(1 2 3 4)))
(nl)
(print-list (square-list-b '(1 2 3 4)))