当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 6 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 问个scheme的小白问题……已解决……
帖子发表于 : 2009-06-30 15:41 
头像

注册: 2008-07-07 11:16
帖子: 130
地址: 辽宁-大连
送出感谢: 0 次
接收感谢: 0 次
代码:
(define (f22 s n)
  ((if (not (= n 0))
       (cond ((= (smallest-divisor s) s)
              (display s)
              (newline))))
   (f22 (+ s 1) (- n 1))))

(f22 1000 3)

这个程序是要检查不小于1000的三个最小的质数的。smallest-divisor用来找一个数的最小因子,之前独立检查过,没问题。
……为什么会提示……
引用:
ERROR: Wrong type to apply: #<unspecified>

我猜一定是语法出错误了。


_________________
http://wecing.blogbus.com/->welcome


最后由 薰衣草的轨迹 编辑于 2009-06-30 17:10,总共编辑了 1 次

页首
 用户资料  
 
2 楼 
 文章标题 : Re: 问个scheme的小白问题……
帖子发表于 : 2009-06-30 16:15 
头像

注册: 2006-07-02 11:16
帖子: 12522
地址: 廣州
送出感谢: 0 次
接收感谢: 8
不对吧。。 不是质数的情况没有处理啊...


_________________
^_^ ~~~
要理解递归,首先要理解递归。

地球人都知道,理论上,理论跟实际是没有差别的,但实际上,理论跟实际的差别是相当大滴。


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 问个scheme的小白问题……
帖子发表于 : 2009-06-30 16:37 
头像

注册: 2008-07-07 11:16
帖子: 130
地址: 辽宁-大连
送出感谢: 0 次
接收感谢: 0 次
……请注意这句……(= (smallest-divisor s) s)……
其实我写的smallest-divisor在参数为质数的时候直接返回参数自身…… :em20

改了一下,没有提示了,但这次连输出都没了……
代码:
(define (f22 s n)
  (cond ((not (= n 0))
         (cond ((= (smallest-divisor s) s)
                (display s)
                (newline)))
         (f22 (+ s 1) (- n 1)))))


_________________
http://wecing.blogbus.com/->welcome


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 问个scheme的小白问题……
帖子发表于 : 2009-06-30 16:38 
头像

注册: 2008-07-07 11:16
帖子: 130
地址: 辽宁-大连
送出感谢: 0 次
接收感谢: 0 次
晕晕晕我又NC了……


_________________
http://wecing.blogbus.com/->welcome


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 问个scheme的小白问题……
帖子发表于 : 2009-06-30 16:40 
头像

注册: 2008-07-07 11:16
帖子: 130
地址: 辽宁-大连
送出感谢: 0 次
接收感谢: 0 次
我承认我一个下午都在犯2……
代码:
(define (f22 s n)
  (cond ((not (= n 0))
         (cond ((= (smallest-divisor s) s)
                (display s)
                (newline)
                (f22 (+ s 1) (- n 1)))
               (else
                (f22 (+ s 1) n))))))


_________________
http://wecing.blogbus.com/->welcome


页首
 用户资料  
 
6 楼 
 文章标题 : Re: 问个scheme的小白问题……
帖子发表于 : 2009-06-30 16:47 
头像

注册: 2006-07-02 11:16
帖子: 12522
地址: 廣州
送出感谢: 0 次
接收感谢: 8
you got it ...


_________________
^_^ ~~~
要理解递归,首先要理解递归。

地球人都知道,理论上,理论跟实际是没有差别的,但实际上,理论跟实际的差别是相当大滴。


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 6 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译