程序求助

goodstart

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww

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

MMMIX

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

goodstart

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

MMMIX

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

就拿

1. 
   
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 编辑 ]

win_hate

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

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

1. 
   
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)))
   
10. 
    
11. (define (getopt op)
    
12.   (cond ((eq? op '+) +)
    
13.         ((eq? op '-) -)
    
14.         ((eq? op '/) /)
    
15.         ((eq? op '*) *)))
    

复制代码

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

复制代码

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

goodstart

这个不是需要的程序吗？

goodstart

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

MMMIX

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

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

goodstart

不好意思

现在看懂了

goodstart

我太着急了