程序求助

Question

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww

[ 本帖最后由 goodstart 于 2008-11-17 23:06 编辑 ]

Answer 1

我太着急了

Answer 2

不好意思

现在看懂了

Answer 3

原帖由 goodstart 于 2008-11-17 01:30 发表
我运行了那个程序 有结果 是对的 但是不明白 t1 和 t2 是什么

楼主对 Schemem 的语法似乎比我还陌生 :em11:  写不出来总应该看得懂吧？

Answer 4

我运行了那个程序 有结果 是对的 但是不明白 t1 和 t2 是什么

Answer 5

这个不是需要的程序吗？

Answer 6

原帖由 goodstart 于 2008-11-16 16:35 发表
写不出才会想到来这里求助的 谢谢你

上次我建议您看一看前缀表达式求值规律，不知你看了没有。这个跟 scheme 是没有太大关系的。

2. (define (prefix-eval expr)
3.   (define (f expr)
4.     (cond ((number? (car expr)) expr)
5.           (else (let* ((t1 (f (cdr expr)))
6.                          (t2 (f (cdr t1))))
7.                    (cons ((getopt (car expr)) (car t1) (car t2))
8.                          (cdr t2))))))
9.   (car (f expr)))
11. (define (getopt op)
12.   (cond ((eq? op '+) +)
13.         ((eq? op '-) -)
14.         ((eq? op '/) /)
15.         ((eq? op '*) *)))

复制代码

2. guile> (prefix-eval '(* + 7 * * 4 6 + 8 9 5))
3. 2075

复制代码
[ 本帖最后由 win_hate 于 2008-11-16 20:36 编辑 ]

Answer 7

原帖由 goodstart 于 2008-11-16 16:35 发表
写不出才会想到来这里求助的  

就拿

2. prefix-eval '(+2 3))

复制代码
来说吧。这个要怎么求值呢？

'(+ 2 3) 是个 list，既然是 prefix expression，那第一个肯定是 operator，取出来看看，是个 '+'，binary operator，需要两个 operand，那再把 list 的后两个元素取出来，做加法得到一个和 suml。

当然，若 operator 后面跟的不是数字而是另外一个 operator，则需要先递归调用 prefix-eval 得到 operands 的值，然后再处理当前的 operator。

你就照这个思路往下写吧。

其实写程序也没啥，就是把你解决问题的方法用代码表达出来而已。

[ 本帖最后由 MMMIX 于 2008-11-16 20:50 编辑 ]

Answer 8

写不出才会想到来这里求助的 谢谢你

Answer 9

你自己先试着写呗，作业始终是要你自己做的。