SICP 笔记--Abstractions with procedures

计算机语言的主要功能:

  • 基本操作符和操作单位(eg: number 和 加减法)
  • 聚合的方法,把多个元素集合为一(eg: 1+1)
  • 抽象的方法,让一个复杂的元素作为一个单元使用(eg: function)

函数调用方法:

  • 正常序:先完全展开再计算
  • 应用序:边计算边展开

例如:

(define (sqrt x) (* x x))
(+ (sqrt (sqrt 3)) (sqrt 4))
  • 正常序:(+ (* (* 3 3) (* 3 3)) (* 4 4)) => 97
  • 应用序:(+ (* 9 9) 16) => 97

迭代与递归:

一直有很多人认为递归就是函数调用自身。而实际上这里指的“递归”只是函数处理的形式,而并不是递归的处理形式。处理形式上迭代和递归的区别是,迭代保存了当前的运行状态,无需展开后再执行收缩,而递归是展开完全后再计算收缩。例如迭代即使中途停止,只要给它一个状态值就可以得到最终结果,而递归就不行,它没有显式保存状态值,必须从头开始运算。以调用自身的方式进行迭代的过程,我们称之为尾递归。

线性递归:

(define (factorical n)
    (if (= n 1)
        1
        (+ n (factorical (- n 1))))) 

树形递归:

斐波那契:

(define (fib n)
    (cond ((= n 0) 0)
          ((= n 1) 1)
          (else (+ (fib (- n 1))
                   (fib (- n 2))))))    

换零钱的方法数:

(define (count-change amount kinds-of-coins) (cc amout 5))
    (define (cc amount kinds-of-coins)
        (cond ((= amount 0) 1)
              ((or (< amount 0) (= kinds-of-coins 0)) 0)
              (else (+ (cc amount (- kinds-of-coins 1))
                       (cc (- amount (value kinds-of-coins)) kinds-of-coins))))))
                       

换零钱的方法数 = 不使用使用当前面额的方法数 + 使用当前面额的方法数

指数:

计算一个数的平方时一般用这个方法:

(define (exponent b n)
  (cond ((= n 0) 1)
        (else (* b (exponent b (- n 1))))))

这样计算的时间复杂度是 O(n),但是我们有更好的方法。先判断指数为奇数还是偶数,当为偶数时调用 square,为奇数就 (* b (exponent b (- n 1))),这样就可以减少接近一半的函数调用,时间复杂度为 O(log2 n)

(define (fast-exponent b n)
  (cond ((= n 0) 1)
        ((even? n) (square (fast-exponent b (/ n 2))))
        (else (* b (fast-exponent b (- n 1))))))
(define (square x) (* x x))

高阶函数:

在 lisp 中,函数可作为一个参数传进另一个函数里面,这样的话我们就能实现一个更为抽象的函数(高阶函数)。

例如一个我们实现一个 sum 函数,让它进行从 ab 的平方累加运算:

(define (sum f a next b)
  (if (> a b)
      0
      (+ (f a) (sum f (next a) next b))))
(define (normal-sum a b)
  (sum 
    (lambda (x) (* x x)) 
    a 
    (lambda (x) (+ x 1)) 
    b))

然后,我们发现其实可以总结为一个更高阶的函数 accumulate,进行任意地累次运算。

(define (accumulate combiner null-value f a next b)
  (if (> a b)
      value
      (combiner (f a) (sum f (next a) next b))))
(define (sum f a next b)
  (accumulate + 0 f a next b))

返回函数

函数可作为一个返回值,当我们返回一个函数时,这通常代表返回的函数派生自接受的函数。

(define (transform f) (lambda (y) (+ (f x) 1)))
(define num (transform (lambda (x) (* x x)) 4))

总结

sicp 的第一章主要讲一个函数是怎样从只适用于特定环节,到抽象成适用于类似的通用情况。这一章用了很多的数学公式,从牛顿迭代法到微积分,sicp 利用了牛顿迭代法是微分的特殊情况,构造了微分的方法,并从微分中派生出了牛顿迭代法,利用不定点根据牛顿迭代的函数进行搜索,可以说是抽象到了极致。我们在写自己的程序时可以适当考虑一下是否可以抽象,以及是否有必要抽象,要根据实际情况选择抽象的等级。

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 206,602评论 6 481
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 88,442评论 2 382
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 152,878评论 0 344
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 55,306评论 1 279
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 64,330评论 5 373
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 49,071评论 1 285
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 38,382评论 3 400
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 37,006评论 0 259
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 43,512评论 1 300
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,965评论 2 325
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 38,094评论 1 333
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 33,732评论 4 323
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 39,283评论 3 307
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 30,286评论 0 19
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 31,512评论 1 262
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 45,536评论 2 354
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 42,828评论 2 345

推荐阅读更多精彩内容