SICP 1.31：Pi 的近似值
我正在独自完成 SICP，所以我没有教练来询问这个问题。这段代码应该近似 pi 但总是返回零。 (define (approx-pi acc) (define (factors a) (define ba…
SICP练习1.16，我的bug在哪里，因为它看起来对我来说是正确的
我刚刚开始阅读这本书是为了好玩；我希望这是家庭作业，但我永远无法负担麻省理工学院的学费，而且还有很多比我聪明的人。 :p fast-exp 应该找到 b^n…
将Scheme表达式转换为字符串
给定一个表达式 '(lambda (x) x) 我如何将其转换为字符串。我认为符号->字符串可以完成这项工作，但不，它不能不是符号。 例如对于宏到字符串： (to…
从Scheme中的线性方程求解X？
我想解决x。我该如何在Scheme中做到这一点？ T1-F2=0 F1+T2=GM-Gm Cos(60)(2.5*Gm+x*GM-l*F1)-l*Sin(60)*T1=0 F1=0.1*T1 F2=0.3*T2 M=20 m=80 l=5 我…
(sys-admin) shell 脚本的最佳方案实现是什么？
我已经阅读了学术计划的内容（阅读 SICP、The Little计划者、经验丰富的计划者、TSPL），并且将计划作为玩具玩了一段时间。 但我想变得实用。 今天我…
帮助理解埃拉托斯特尼筛法的实现
我知道这很无聊，但我需要一些帮助来理解埃拉托斯特尼筛法的实现。这是这个编程实践问题的解决方案。 (define (primes n) (let* ((max-index (quotien…
在Scheme中将字节字符串转换为Int
我有这样的代码将十六进制转换为字节字符串 (define (word->bin s) (let ((n (string->number s))) (bytes (bitwise-and (arithmetic-shift n -24…
方案如何返回多个值？
我注意到几乎所有方案函数只能返回一个列表作为输出。 下面，我想返回邻居的所有相邻节点的多个值。 (define (neighbors l w) (if (and (= 1 l) (= 1 …
