方案 - 列表的递归函数
我有这个程序： (define scale-tree (lambda (tree factor) (map (lambda (sub-tree) (if (list? sub-tree) (scale-tree sub-tree factor) (* sub-tre…
如何从Scheme中的列表中删除非重复元素？
给定一个列表， (define ll '(a a a b c c c d e e e e)) 我想删除所有非重复元素并只留下重复元素的一个副本，即删除后，结果将是 (a c e) 我的算法…
在scheme中构建一棵哈夫曼树
我已经被这个问题困扰了几天了。如何使用以下站点上指定的数据构建树： http:// /www.impulseadventure.com/photo/jpeg-huffman-coding.html，在主题…
如何删除列表方案中的所有重复元素？
我的尝试是， (define (remove-dup lst) (cond ((null? lst) '()) ((null? (cdr lst)) (car lst)) ((equal? (car lst) (car (cdr lst))) (remove-dup …
方案 - 用于将函数应用于嵌套列表中的元素的映射函数
我正在尝试在方案中编写一个映射函数，该函数将函数应用于嵌套列表中的每个值。 例如， (map number? '(3 (2 A) 2 Z) 应该返回 (#t (#t #f) #t #f) 这…
顶级环境中的过程与宏
我将感谢您帮助理解在下文描述的情况下过程和宏之间的行为差异。 情况 1（程序） (define bar (lambda (x) (foo x))) closure of 'bar' contains…
方案 - 列表中的值
我有列表列表： ((1500) (2500) (3500)) 现在，我想使用每个列表中的值。当我这样做时（汽车列表），它给了我（1500）-列表，但我想要值1500（int）。…
方案 - 与列表相等的函数
我写了这个程序： (define find-combination {lambda (a b) (if (eq? ((quotient (car a) (car b)) (quotient (car (cdr a)) (car (cdr b))))) (displ…
使用语法->字符串将列表列表转换为字符串列表
基本上，我想要 '( (whatever1) (whatever2) (whatever3) ... ) ===> ( "(whatever1)" "(whatever2)" "(whatever3)" )，只是在列表之外添加引号，列…
