![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
simply scheme
rrison111
what definecs me as a person
展开
-
simply scheme 第五章 练习
5.1 (1)(I me mine) (2)(is empty) (3) 1234 (4) (23 45) (5) "" (6) () (7) 6 (8) ("" "") (9) 25.2 (define (f1 wd1 wd2) (sentence (bf wd1) (bf wd2)))(define (f2 wd1 wd2) (sentence (bf wd1) (bl wd2) (word (first wd1) (last wd2))))(define (f3 wd1 wd2) (se wd1原创 2010-07-04 13:38:00 · 427 阅读 · 0 评论 -
simply scheme 第十四章 练习
14.1Keep(define (remove-once wd sent) (cond((empty? sent)'()) ((equal? wd(first sent)) (se (bf sent))) (else (se (first sent)(remove-once wd(bf sent))))))14.2Every(define(up wd) (if(empty? wd) '() (se (u原创 2010-07-14 19:59:00 · 476 阅读 · 0 评论 -
simply scheme 第十三章 练习
<br /> <!-- @page { margin: 2cm } PRE.western { font-family: "DejaVu Sans Mono", monospace } PRE.cjk { font-family: "AR PL UKai CN", monospace } PRE.ctl { font-family: "DejaVu Sans Mono", monospace } P { margin-bottom: 0.21cm原创 2010-07-12 11:18:00 · 481 阅读 · 0 评论 -
simply scheme 第十二章 练习
<br /> <!-- @page { margin: 2cm } PRE.western { font-family: "DejaVu Sans Mono", monospace } PRE.cjk { font-family: "AR PL UKai CN", monospace } PRE.ctl { font-family: "DejaVu Sans Mono", monospace } P { margin-bottom: 0.21cm原创 2010-07-12 11:02:00 · 499 阅读 · 0 评论 -
simply scheme 第十一章 练习
<br /> <!-- @page { margin: 2cm } PRE.western { font-family: "DejaVu Sans Mono", monospace } PRE.cjk { font-family: "AR PL UKai CN", monospace } PRE.ctl { font-family: "DejaVu Sans Mono", monospace } P { margin-bottom: 0.21cm原创 2010-07-11 20:37:00 · 383 阅读 · 0 评论 -
simply scheme 第九章 练习
<br /> <!-- @page { margin: 2cm } PRE.western { font-family: "DejaVu Sans Mono", monospace } PRE.cjk { font-family: "AR PL UKai CN", monospace } PRE.ctl { font-family: "DejaVu Sans Mono", monospace } P { margin-bottom: 0.21cm原创 2010-07-11 12:12:00 · 536 阅读 · 0 评论 -
simply scheme 第七章 练习
<br />7.2<br /><br />(let ((pi 3.14159) (pie '(lemon meringue)))<br /> (se '(pi is) pi '(but pie is) pie))<br />7.3<br /><br />(define (superlative adjective wd)<br /> (se (word adjective 'est) wd))<br />7.4<br />把+变为X、X变为+原创 2010-07-05 23:09:00 · 429 阅读 · 0 评论 -
simply scheme 第六章 练习
<br />6.1 nowhere man,3,goes<br />6.2 #t #f #f #t #t #t<br />6.3 (define (sign number)<br /> (cond ((< number 0) 'negative)<br /> ((= number 0) 'zero)<br /> (else 'positive)))<br />6.4 (define (utensil meal)<br /> (if (equal? meal 'chinese)原创 2010-07-05 19:04:00 · 485 阅读 · 0 评论 -
simply scheme 第八章 练习
<br />8.1<br />(a e i o u)<br />()<br />0<br />#f<br />(16 144 0)<br />(aioee)<br />25<br />(go d sunshi)<br />8.2<br /><br />(keep vowel? 'birthday)<br />(every first '(golden slumbers))<br />(first '(golden slumbers))<br />(every last '(little child))<br原创 2010-07-06 14:05:00 · 428 阅读 · 0 评论 -
simply scheme 第一章 练习+ 看书计划
话说进了大学从来没有完整地看完一本原版书,现在要努力了。simply scheme | SICP |算法导论、compilers、计算机网络、操作系统 | TAOCP先总结这些Exercises1.1 Do 20 push-ups. 做的累死我了,想当年可以做50个的,要锻炼身体了!!!1.2 Calculate 1000 factorial by hand and see if the computer got the right ans原创 2010-07-02 18:40:00 · 819 阅读 · 0 评论 -
simply scheme 第四章 练习
4.1 (+ 8 (* 2 12))4.2 A->(B +)->(C *)4.4 (1) two return values (2) wrong expression (3) no argument (4) less argument (5) incorrect argument4.5 (define (ftoc f) (* (/ 5 9)(- f 32))) (define (ctof c) (+ 32 (* c (/ 9 5)原创 2010-07-04 10:55:00 · 435 阅读 · 0 评论 -
simply scheme 第三章 练习
3.1Translate the arithmetic expressions (3+4)×5 and 3+(4×5) into Scheme expressions, and into plumbing diagrams.(× (+ 3 4) 5) (+ 3 (× 4 5))3.2 How many little people does Alonzo hire in evaluating each of the following expressions:(+ 3 (* 4 5) (- 10 4)原创 2010-07-03 18:43:00 · 487 阅读 · 0 评论 -
simply scheme 第二章 练习
ExercisesUse the functions program for all these exercises.2.1 In each line of the following table we’ve left out one piece of information. Fill inthe missing details.function arg 1 arg 2 resultword now here nowheresentence now here (now here)first blackbi原创 2010-07-03 18:26:00 · 464 阅读 · 0 评论 -
simply scheme 第十五章 练习
<br />15.1<br />(define (t num)<br /> (if(= num 0)<br /> '()<br /> (accumulate word(se (t (/(- num (remainder num 2))2))<br /> (remainder num 2)))))<br />15.2<br />(define (palindrome sent)<br /> (if(or(empty? sent)(=(count sent)1))<br />原创 2010-07-14 21:48:00 · 510 阅读 · 0 评论