sicp 习题2.21

最新推荐文章于 2019-01-17 14:04:40 发布

原创最新推荐文章于 2019-01-17 14:04:40 发布 · 985 阅读

1 ·

CC 4.0 BY-SA版权

SICP 专栏收录该内容

25 篇文章

订阅专栏

本文介绍了使用递归和map两种方法实现列表平方的Scheme语言程序，并展示了在DrRacket环境下的运行结果。

#lang planet neil/sicp
;;(square-list (list 1 2 3 4))  =>  (1 4 9 16)

(define a (list 1 2 3 4))

; define one
(define (square x)
  (* x x))
(define (square-list items)
  (if (null? items)
      nil
      (cons (square (car items)) (square-list (cdr items)))))
; define two       
(define (square-list items)
  (map (lambda (x) (* x x)) items))

运行:

Welcome to DrRacket, version 5.3.3 [3m].
Language: planet neil/sicp; memory limit: 512 MB.
> (square-list a)
(mcons 1 (mcons 4 (mcons 9 (mcons 16 '()))))
>