sicp 第58页

Mcool 天籁

Acoolmusicplayer.PoweredbyBassandBassVis.极简本地音乐播放器，透明、纯文本界面。支持轻媒体库、歌词、可视化。最小化到托盘，占用资源少，适合边听音乐边工作。

·2010-02-10 18:00

飞歌 Mcool

Acoolmusicplayer.PoweredbyBassandBassVis.极简本地音乐播放器，透明、纯文本界面。支持轻媒体库、歌词、可视化。最小化到托盘，占用资源少，适合边听音乐边工作。

英雄无敌·2010-02-10 18:00

一晃一年过去了

一晃一年过去了一晃一年多过去了，公司项目很紧张，没什么时间学习，scheme学习扔了将近两年，曾经的SICP学习计划严重延期了。

CG@CPPBLOG·2010-02-07 15:00

SICP 2.33~2.39习题答案

(define (filter predicate sequence) (cond ((null? sequence) nill) ((predicate (car sequence)) (cons (car sequence) (filter predicate (cdr sequence)))) (e

t0uch·2010-02-06 17:00

SICP 2.30~2.32 习题答案

;; 2.30 ;(define (square-tree tree) ; (cond ((null? tree) nil) ; ((not (pair? tree)) (* tree tree)) ; (else (cons (square-tree (car tree)) ; (square-tree (cdr tr

t0uch·2010-01-26 18:00

SICP 2.25~2.29习题答案

这一节难度开始加大，有一些答案是借鉴了别人才做出来的。 ;; 2.25 (define list1 (list 1 3 (list 5 7) 9)) ;(car (cdr (car (cdr (cdr list1))))) (define list2 (list (list 7))) ;(car (car list2)) (define list3 (list 1 (lis

t0uch·2010-01-25 17:00

Multicore Storage Allocation

Thisarticleexplainsthefourbasicp

wanglei5695312·2010-01-20 18:00

SICP 2.17~2.23 习题答案

这一节比较容易 (define (square n) (* n n)) (define (list-ref items n) (if (= n 0) (car items) (list-ref (cdr items) (- n 1)))) (define (length items) (if (null?

t0uch·2010-01-20 11:00

SICP 2.7~2.16习题答案

这一段的题目有点多，都是要有前面的代码的，写到一起得了 2.13用代数式看一下就知道了，比较容易。 2.14用代码试试看就知道了，感觉操作会引起误差，但不知道为什么，2.15，2.16同样但是通过2.14的结果就知道，2.15的结论应该是对的，除法运算并没有引入新的误差。 2.2节开始进入令人愉快的数据结构了，^_^。令人期待。 (define (make-interv

t0uch·2010-01-18 15:00

Axis2的部署和应用

Axis2支持WS-Addressing、WS-RM、WS-Security和WS-IBasicProfile，WS-Policy将在新版本里得到支持。

raymond.chen·2010-01-16 00:00

Axis2的部署和应用

Axis2支持WS-Addressing、WS-RM、WS-Security和WS-IBasicProfile，WS-Policy将在新版本里得到支持。

raymond.chen·2010-01-16 00:00

Axis2的部署和应用

Axis2支持WS-Addressing、WS-RM、WS-Security和WS-IBasicProfile，WS-Policy将在新版本里得到支持。

raymond.chen·2010-01-16 00:00

SICP 2.6 习题答案-lambda算子

2.6这道题目需要一些lambda算子的知识，g9的blog有很不错的文章翻译了。具体是这样的，首先是one，one即为zero add-1，所以把zero代入add-1的表达式中，得： lambda (f) (lambda (x) (f (((lambda (f) (lambda (x) x)) f) x))) 将f代入zero的lambda表达式中，得 lambda (f

t0uch·2010-01-12 18:00

SICP 2.5 习题答案

通过数学的方法可以解决，假设乘积n不是偶数，那a肯定是0。 (define (power x n r) (if (< n 1) r (power x (- n 1) (* r x)))) (define (cons a b) (* (power 2 a 1) (power 3 b 1))) (define (car n) (define (car

t0uch·2010-01-11 15:00

SICP 2.3 习题答案

可能书上想让我用2.2的答案，实在不想那么搞。。。 (define (make-point x y) (cons x y)) (define (x-point p) (car p)) (define (y-point p) (cdr p)) (define (make-rect left-top right-bottom) (cons left-top right-bottom

t0uch·2010-01-11 12:00

2010.01.10 正则序，Shell Sort

正则序和应用序今天看了Berkeley的SICP的视频后，总算明白了正则序（normalorder）和应用序（applicationorder）的区别。

jubincn·2010-01-10 23:00

WebCast视频（或其他会议视频）提示缺少音频解码器的解决方案

本文出自“Jeffery的技术博客”博客，请务必保留此出处http://jeffey3.blog.51cto.com/760568/183620本文出自51CTO.COM技术博客用MediaClassicPlayer

zh_cxl·2010-01-02 12:57

WebCast视频（或其他会议视频）提示缺少音频解码器的解决方案

本文出自“Jeffery的技术博客”博客，请务必保留此出处http://jeffey3.blog.51cto.com/760568/183620本文出自51CTO.COM技术博客用MediaClassicPlayer

zh_cxl·2010-01-02 12:57

WebCast视频（或其他会议视频）提示缺少音频×××的解决方案

本文出自“Jeffery的技术博客”博客，请务必保留此出处http://jeffey3.blog.51cto.com/760568/183620本文出自51CTO.COM技术博客用MediaClassicPlayer

zh_cxl·2010-01-02 12:57

sicp 1.17

利用加法做乘法，对数计算步数。 (define (* a b) (cond ((= b 0) 0) ((even? b) (* (double a) (halve b))) (else (+ a (* a (- b 1)))))) (define (double x) (+ x x)) (define (halve x)

Bloodwolf·2009-12-31 12:00

sicp 1.16

利用状态变量a定义一个迭代求幂的过程。 (define (fast-expt b n) (fast-expt-iter 1 b n)) (define (fast-expt-iter a b n) (cond ((= n 0) a) ((even? n) (fast-expt-iter a (square b) (/ n 2)))

Bloodwolf·2009-12-31 12:00

20091221

1.挑战编程：程序设计竞赛训练手册作者：（美）斯基纳，（西）雷维拉著，刘汝佳译出版社：清华大学出版社2.计算机程序的构造和解释(原书第2版)我为什么推荐SICP？

tony821224·2009-12-22 09:00

MIT6.945课程，SICP课程的继任者。

之前曾有新闻说SICP6.001课程被最新得6.00、6.01、6.02所替代，6.001正式“退休”。

huangz·2009-12-16 19:00

Essential SICP Primer

综述本书以Lisp语言本身为例，完整而辨证的讲述了“计算机程序”的各种形而上形而下的问题：程序语言本身的要素（原语、组合手段、抽象手段）程序的计算模型（代换模型、环境模型，迭代、递归）程序的世界观（对象式、函数式）程序如何繁殖进化（元语言抽象）程序如何执行（编译、解释）同时阐述了程序设计中常用的几大关键技术：寄存器与堆栈的使用（目前多数计算机的基本抽象）数据导向与通用型计算（涉及高阶过程，数据与过

hennry66·2009-12-13 19:00

SICP 2.2 习题答案

cons对于数据结构来说是一个很强大的东西 (define (print-point p) (newline) (display "(") (display (x-point p)) (display ",") (display (y-point p)) (display ")")) (

t0uch·2009-12-11 17:00

SICP 2.1 答案

(define (gcd x y) ;; we've implemented gcd in section 1.2.5. (if (= y 0) x (gcd y (remainder x y)))) (define (signum x) (if (= 0 x) 0 (/ x (abs x)))) (define (m

t0uch·2009-12-11 16:00

丧钟为谁鸣？

2.反复研究了几遍SICP。同时看了录像

hennry66·2009-12-10 21:00

IOS 设置系统音量

很简单的调用首先在工程引入MediaPlayer.framework在调节音量的地方加入头文件#import两行代码搞定~MPMusicPlayerController*mp=[MPMusicPlayerControllerapplicationMusicPlayer

sunshinexyj·2009-12-09 15:00

[导入]SICP学习笔记（2.3.3）

阅读:766评论:0作者:周银辉发表于2009-12-0821:01原文链接 SICP学习笔记（2.3.3）

从0开始·2009-12-08 21:00

SICP学习笔记（2.3.3）

SICP学习笔记（2.3.3）

周银辉·2009-12-08 21:00

RIA小程序 Ahui music player正式开始

RIA小程序Ahuimusicplayer正式开始Ahuimusicplay今天正式开工。Ahui播放器第一天:功能,能播放一首歌曲,而且能进行暂停和继续播放的功能,将毫秒时间转化为分:秒时间了.

duduli·2009-11-14 16:00

SICP 1.37 答案

经过8次迭代就能达到精度的要求递归版 (define (cont-frac n d k) (if (< k 0) 0 (/ (n k) (+ (d k) (cont-frac n d (- k 1)))))) 迭代版 (define (cont-frac n d k) (define (iter k result) (if (&l

t0uch·2009-11-13 17:00

SICP 1.33 答案

我的代码有点丑陋。。。不过算了，练习而已 (define (filtered-accumulate combiner null-value filter term a next b) (define (filter-work x) (if (filter x) (term x) null-value)) (if (> a b)

t0uch·2009-11-13 15:00

SICP 1.32 答案

从之前写好的代码可以很容易写出递归版 (define (accumulate combiner null-value term a next b) (if (> a b) null-value (combiner (term a) (accumulate combiner null-value term (next a) next b))))

t0uch·2009-11-13 14:00

SICP 1.31 答案

递归的版本 (define (product term a next b) (if (> a b) 1.0 (* (term a) (product term (next a) next b)))) (define (wallis-product n) (define (square x) (* x x))

t0uch·2009-11-11 19:00

SICP 1.29 答案

感觉做这个题目是要形成一种思想，这个算法很牛，比书题目上面的那个算法精确多了。 (define (simpson-intergral f a b n) (define (inc-a x) (+ x 1)) (define (h) (/ (- b a) n)) (define (y x) (+ a (* x (h)))) (define

t0uch·2009-11-11 18:00

PLT Scheme支持SICP的方法

t0uch·2009-11-11 10:00

SICP 1.28 答案

其实，只要做一点点改写就可以达到目的了。 (define (square x) (* x x)) (define (nontrivial-check base m r) (cond ((and (not (= r 1)) (not (= r (- m 1))) (= (remainder (square

t0uch·2009-11-11 10:00

SICP 1.24 习题答案

这算法，太猛了，Dr Scheme貌似不是微妙级的。另外，random貌似不支持比整型还大的数，所以偷懒搞一个最大数的随机数得了，反正费马定律顶着。 (define (square x) (* x x)) (define (expmod base exp m) (cond ((= exp 0) 1) ((even? exp) (re

t0uch·2009-11-10 18:00

SICP 1.23 答案

这方法确实会有所改善，大概2倍效率的提升。 (define (smallest-divisor n) (find-divisor n 2)) (define (next n) (if (even? n) (+ n 1) (+ n 2))) (define (find-divisor n test-divisor) (cond ((> (* tes

t0uch·2009-11-10 18:00

SICP 1.22 答案

程序写出来了，但是时间没打印，DrScheme不支持。。。 (define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (* test-divisor test-divisor) n) n) ((divides? te

t0uch·2009-11-10 17:00

SICP 1.21 答案

很简单 (define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (* test-divisor test-divisor) n) n) ((divides? test-divisor n) test-divisor

t0uch·2009-11-10 16:00

冒泡排序

冒泡排序目录[隐藏]基本概念产生排序过程算法示例冒泡排序代码C++PHPRubyJavaVisualBasicPascalC#PythonJS冒泡排序法的改进性能分析基本概念产生排序过程算法示例冒泡排序代码

myfight_xuan·2009-10-23 22:00

Flash关于Error: Error #2037: 函数调用序列不正确，或前面的调用不成功。

at flash.media::Sound/_load() at flash.media::Sound/load() at org.mousebomb.media.musicPlayerV4::Mp3Container

hehailin1986_163.com·2009-10-22 16:00

shell脚本学习笔记（一）闹钟的源码

/bin/bash#useattosetaAlarmMusicPath="/home/flora/Yalta.mp3"#wherethemusicisplacedTime=""#thetimeenteredtostartthejobRun

lihuiflora·2009-10-21 20:00

SICP 1.19 习题答案

这道题需要一些数学知识，题目中已经提示：引用 Show that if we apply such a transformation Tpq twice, the effect is the same as using a single transformation Tp'q' of the same form, and compute p' and q' in terms of p

t0uch·2009-10-20 16:00

SICP 1.18 答案

不太了解题目的意思，仅仅是把上面的算法改成迭代吗？ (define (even? n) (= (remainder n 2) 0)) (define (halve n) (if (even? n) (/ n 2) (/ (- n 1) 2))) (define (double n) (+ n n)) (define (fast-multi a

t0uch·2009-10-20 14:00

SICP 1.17 答案

看来书上的注释做出来了，效仿Russian peasant multiplication算法 (define (even? n) (= (remainder n 2) 0)) (define (halve n) (if (even? n) (/ n 2) (/ (- n 1) 2))) (define (double n) (* n 2))

t0uch·2009-10-20 11:00

答复: 有1元，5元，10元，20元，50元，问组成100元有多少种情况

SICP, 1.2.2 Tree Recursion 有详细的解释 http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-11.html

freizl·2009-10-19 11:00

SICP 1.16 - 递归转换为迭代

题目很简单，只要设定一个变量来返回结果和做必要的存储就可以了。 (define (fastexpt a b n p) (cond ((= n 0) p) ((= (remainder n 2) 1) (fastexpt (* a b) b (- n 1) (+ p 1))) (else (fastexpt a (* b b) (/ n 2) (+

t0uch·2009-10-19 11:00

推荐频道

sicp

Mcool 天籁

飞歌 Mcool

一晃一年过去了

SICP 2.33~2.39习题答案

SICP 2.30~2.32 习题答案

SICP 2.25~2.29习题答案

Multicore Storage Allocation

SICP 2.17~2.23 习题答案

SICP 2.7~2.16习题答案

Axis2的部署和应用

Axis2的部署和应用

Axis2的部署和应用

SICP 2.6 习题答案-lambda算子

SICP 2.5 习题答案

SICP 2.3 习题答案

2010.01.10 正则序，Shell Sort

WebCast视频（或其他会议视频）提示缺少音频解码器的解决方案

WebCast视频（或其他会议视频）提示缺少音频解码器的解决方案

WebCast视频（或其他会议视频）提示缺少音频×××的解决方案

sicp 1.17

sicp 1.16

20091221

MIT6.945课程，SICP课程的继任者。

Essential SICP Primer

SICP 2.2 习题答案

SICP 2.1 答案

丧钟为谁鸣？

IOS 设置系统音量

[导入]SICP学习笔记（2.3.3）

SICP学习笔记（2.3.3）

RIA小程序 Ahui music player正式开始

SICP 1.37 答案

SICP 1.33 答案

SICP 1.32 答案

SICP 1.31 答案

SICP 1.29 答案

PLT Scheme支持SICP的方法

SICP 1.28 答案

SICP 1.24 习题答案

SICP 1.23 答案

SICP 1.22 答案

SICP 1.21 答案

冒泡排序

Flash关于Error: Error #2037: 函数调用序列不正确，或前面的调用不成功。

shell脚本学习笔记（一）闹钟的源码

SICP 1.19 习题答案

SICP 1.18 答案

SICP 1.17 答案

答复: 有1元，5元，10元，20元，50元，问组成100元有多少种情况

SICP 1.16 - 递归转换为迭代