1.28
secje
posted @ 2010年5月17日 05:59
in sicp
, 1843 阅读
(define (square x) (* x x))
(define (check-one count a m)
(define (check-1? t)
(cond ((and (not (= a (- m 1))) (= count 1)) t)
((< count 1) t)
(else 0)))
(check-1? (remainder (square a) m)))
(define (check-two count a m)
(define (check-2? t)
(cond ((and (not (= a 1)) (not (= a (- m 1))) (= count 0)) t)
((not (= count 0)) t)
(else 0)))
(check-2? (remainder (square a) m)))
(define (expmod base exp m count)
(cond ((= exp 0) 1)
((and (even? exp) (even? (/ exp 2)))
(check-one count (expmod base (/ exp 2) m count) m))
((and (even? exp) (not (even? (/ exp 2))))
(check-two (- count 1) (expmod base (/ exp 2) m (- count 1)) m))
(else
(remainder (* base (expmod base (- exp 1) m count))
m))))
(define (prime-test m)
(define (try-it a)
(= (expmod a (- m 1) m 1) 0))
(try-it (+ 1 (random (- m 1)))))
(define (miller-test m times)
(cond ((= m 1) #f)
((= m 2) #t)
((even? m) #f)
((= times 0) #t)
((prime-test m) (miller-test m (- times 1)))
(else #f)))
这个是了解miller-test之后写的
http://en.wikipedia.org/wiki/Miller%E2%80%93Rabin_primality_test
然后这个是按照书上的要求写的
(define (square x) (* x x))
(define (check a n)
(define (check-1? t)
(if (and (> a 1)
(< a (- n 1))
(= t 1))
0 t))
(check-1? (remainder (square a) n)))
(define (expmod base exp m)
(cond ((= exp 0) 1)
((even? exp)
(check (expmod base (/ exp 2) m) m))
(else
(remainder (* base (expmod base (- exp 1) m)) m))))
(define (prime-test m)
(define (try-it a)
(= (expmod a (- m 1) m) 1))
(try-it (+ 1 (random (- m 1)))))
(define (miller-test m times)
(cond ((= m 1) #f)
((= times 0) #t)
((prime-test m) (miller-test m (- times 1)))
(else #f)))
2019年10月24日 03:19
Practical experience in profound cleaning tile floors has become the most important explanation why business lovers and people trust qualified cleaners and you ought to too. It is far from enough to gain the cleaning up tools plus products with the store, but you must have in-depth is vital what products to implement for your unique type with tile. By way of example, what will work for ceramic tiles won't work to the granite tiles. Should you use the improper cleaner, it may well stain and perhaps permanently ruin your tiles. Its possible you have to altogether replace a person's tile floor covering, which costs you some huge cash.
2021年8月25日 19:28
Just about the most important items while carrying out the washing services is always to prioritize the cleaning career and manage it with all the cleaners. Depends upon the task you should arrange the particular cleaning career when it must be done where day or perhaps week. So your cleaning is manufactured easy simply by arranging purchasing which are usually convenient for your customers at the same time. Through the appropriate cleaning method and coordinating ensures to completely clean all the particular surfaces and maintain the things risk-free.
2021年9月30日 07:08
Organization cleaning nowadays might be of several unique types. A company might be contracted into the future in every month or so to do significant clean-up work opportunities like floorboards waxing, dusting, shades and various other major work opportunities. Often firms that use in professionals every month are having somebody maintain the exact property during the opposite parts in the month.
2022年9月03日 01:18
Bangladesh Education Board DPE has conducted the class 8th grade of Junior School Certificate Exam and Junior Dakhil Certificate Exam on 1st to 15th November 2022 at all centers in division wise under Ministry of Primary and Mass Education (MOPME), and the class 8th grade terminal examination tests are successfully conducted for all eligible JSC/JDC students for the academic year of 2022. Junior Certificate Result The Bangladesh government Minister of Secondary Education is going to announce the JSC Result 2022 in student wise for division students in education board wise, and the result documents will be submitted to the Prime Minister of the country after then the result with mark sheet will be announced to public to check the individual result.
2023年8月30日 23:46
You may well be considering finance responsibility and even vital internet business knowledge upon hoping to start ones own business. But considering the advancement in technology efficient into currently, it projects enough resources on you can start your possess business. But considering the present level of declining lots of professional cleaners with the cleaning domain.
2023年10月31日 22:54
I wanted to thank you for this excellent read!! I definitely loved every little bit of it. I have you bookmarked your site to check out the new stuff you post
2023年11月05日 19:02
Your ability to write about this kind of info is just the thing we all desire. Simply by
2023年11月05日 19:12
Thank you for the good critique. Me & my friend were just preparing to do a little research about this. We got a book from our local library but I think I’ve learned better from this post. I’m very glad to see such wonderful information being shared freely out there..
2023年11月05日 19:46
Youre so cool! I dont suppose Ive read anything in this way before. So nice to find somebody with many original thoughts on this subject. realy i appreciate you for starting this up. this fabulous website is one area that is needed on the internet, an individual if we do originality. beneficial purpose of bringing something new for the net!
2023年11月05日 19:47
Thank you for the good critique. Me & my friend were just preparing to do a little research about this. We got a book from our local library but I think I’ve learned better from this post. I’m very glad to see such wonderful information being shared freely out there..
2023年11月05日 20:03
I’m impressed, I have to admit. Really rarely do you encounter a weblog that’s both educative and entertaining, and let me tell you, you’ve got hit the nail for the head. Your notion is outstanding; the problem is a thing that not enough consumers are speaking intelligently about. We are happy we found this within my seek out some thing about it.
2023年11月05日 20:09
There a few interesting points soon enough on this page but I do not determine if they all center to heart. There is some validity but I will take hold opinion until I check into it further. Great post , thanks and that we want a lot more! Put into FeedBurner at the same time
2023年11月05日 20:11
An fascinating discussion will probably be worth comment. I do believe that you simply write on this topic, may well often be a taboo subject but usually individuals are there are not enough to communicate on such topics. To another location. Cheers I must admit that your post is really interesting. I have spent a lot of my spare time reading your content. Thank you a lot!
2023年11月05日 20:18
Youre so cool! I dont suppose Ive learn anything like this before. So good to search out someone with some authentic ideas on this subject. realy thank you for beginning this up. this web site is one thing that’s needed on the web, someone with somewhat originality. useful job for bringing something new to the internet!
2023年11月05日 20:32
An fascinating discussion will probably be worth comment. I do believe that you simply write on this topic, may well often be a taboo subject but usually individuals are there are not enough to communicate on such topics. To another location. Cheers I must admit that your post is really interesting. I have spent a lot of my spare time reading your content. Thank you a lot!
2023年11月05日 20:37
I discovered your blog site website on the search engines and appearance many of your
2023年11月05日 20:44
Thank you for the good critique. Me & my friend were just preparing to do a little research about this. We got a book from our local library but I think I’ve learned better from this post. I’m very glad to see such wonderful information being shared freely out there..
2023年11月05日 20:58
Youre so cool! I dont suppose Ive read anything like that just before. So nice to find somebody by incorporating original applying for grants this subject.
2023年11月05日 21:01
Your ability to write about this kind of info is just the thing we all desire. Simply by discussing your knowledge you support people thru discussing your own personal observations. And I’ll let you know right now your writing served me personally. Hello! I just wish to give a huge thumbs up for the good info you’ve gotten right here on this post. I will likely be coming back to your blog for more soon.
2023年11月05日 21:14
Hi there, just became alert to your blog through Google, and found that it’s really informative. I am gonna watch out for brussels. I’ll be grateful if you continue this in future. Numerous people will be benefited from your writing. Cheers! I’d must verify with you here. Which isn’t something I often do! I enjoy studying a publish that can make people think. Also, thanks for permitting me to remark!
2023年11月05日 21:23
hey there solid blog website and layout. I am hoping I am not annoying you I merely wanted to inquire precisely what wordpress plugin you use to show the newest commentary on your blog? I want to do exactly the same for my free apple iphone page but I cant find the plugin or widget for it. Thanks for your time
2023年11月05日 21:24
Hello there, just became alert to your blog through Google, and found that it is really informative. I’m going to watch out for bruss
2023年11月05日 21:38
hey there solid blog website and layout. I am hoping I am not annoying you I merely wanted to inquire precisely what wordpress plugin you use to show the newest commentary on your blog? I want to do exactly the same for my free apple iphone page but I cant find the plugin or widget for it. Thanks for your time
2023年11月05日 21:44
I’m impressed, I must say. Genuinely rarely will i encounter a blog that’s both educative and entertaining, and without a doubt, you’ve got
2023年11月05日 21:58
Thank you for the good critique. Me & my friend were just preparing to do a little research about this. We got a book from our local library but I think I’ve learned better from this post. I’m very glad to see such wonderful information being shared freely out there..
2023年11月05日 22:02
My husband and i were now peaceful that Albert managed to round up his reports from your precious recommendations he grabbed through the web site. It’s not at all simplistic just to find yourself giving freely information that people today have been making money from. Therefore we consider
2023年11月05日 22:11
Thank you for the good critique. Me & my friend were just preparing to do a little research about this. We got a book from our local library but I think I’ve learned better from this post. I’m very glad to see such wonderful information being shared freely out there..
2023年11月05日 22:16
The following time I learn a weblog, I hope that it doesnt disappoint me as a lot as this one. I imply, I do know it was my option to
2023年11月05日 22:21
I’m impressed, I have to admit. Really rarely do you encounter a weblog that’s both educative and entertaining, and let me tell you, you’ve got hit the nail for the head. Your notion is outstanding; the problem is a thing that not enough consumers are speaking intelligently about. We are happy we found this within my seek out some thing about it.
2023年11月05日 22:30
An fascinating discussion will probably be worth comment. I do believe that you simply write on this topic, may well often be a taboo subject but usually individuals are there are not enough to communicate on such topics. To another location. Cheers I must admit that your post is really interesting. I have spent a lot of my spare time reading your content. Thank you a lot!
2023年11月05日 22:50
Thank you for the good critique. Me & my friend were just preparing to do a little research
2023年11月05日 22:50
Thank you for the good critique. Me & my friend were just preparing to do a little research about this. We got a book from our local library but I think I’ve learned better from this post. I’m very glad to see such wonderful information being shared freely out there..
2023年11月05日 23:16
Thank you for the good writeup. It in fact was a amusement account it. Look advanced to far added agreeable from you! By the way, how can we communicate? I’ve been with the entire content of this weblog that’s extremely educational and educated stuff”
2023年11月05日 23:23
An fascinating discussion will probably be worth comment. I do believe that you simply write on this topic, may well often be a taboo subject but usually individuals are there are not enough to communicate on such topics. To another location. Cheers I must admit that your post is really interesting. I have spent a lot of my spare time reading your content. Thank you a lot!
2023年11月05日 23:35
I just like the valuable info you supply for your articles. I’ll bookmark yo
2023年11月05日 23:38
Your ability to write about this kind of info is just the thing we all desire. Simply by discussing your knowledge you support people thru discussing your own personal observations. And I’ll let you know right now your writing served me personally. Hello! I just wish to give a huge thumbs up for the good info you’ve gotten right here on this post. I will likely be coming back to your blog for more soon.
2023年11月05日 23:49
I do believe all of the ideas you’ve introduced on your post. They are really convincing and can definitely work. Still, the posts are too brief
2023年11月05日 23:59
Hiya, I’m really glad I have found this info. Today bloggers publish only about gossips and web and this is really annoying. A good website
2023年11月06日 00:55
Youre so cool! I dont suppose Ive read anything like that just before. So nice to find somebody by incorporating original applying for grants this subject. realy we appreciate you starting this up. this web site are some things that is required on the internet, a person after some originality. helpful task for bringing interesting things on the internet!
2023年11月06日 01:09
I’m impressed, I have to admit. Genuinely rarely will i encounter a blog that’s both educative and entertaining, and without a doubt, you could have hit the nail around the head. Your notion is outstanding; the issue is something which inadequate people are speaking intelligently about. I will be very happy we came across this around my look for some thing in regards to this.
2023年11月06日 01:19
I and my buddies came taking note of the nice advice found on your web blog and then suddenly developed an awful suspicion I never expressed respect to you for those techniques. The men were happy to learn them and have in effect actually been having fun with those things. We appreciate you really being really thoughtful and then for making a choice on variety of magnificent tips millions of individuals are really desirous to know about. Our own sincere apologies for not saying thanks to you sooner.
2023年11月06日 01:27
Youre so cool! I dont suppose Ive read anything in this way before. So nice to find somebody with many original thoughts on this subject. realy i appreciate you for starting this up. this fabulous website is one area that is needed on the internet, an individual if we do originality. beneficial purpose of bringing something new for the net!
2023年11月06日 04:20
Fabulous post, you have denoted out some fantastic points, I likewise think this s a very wonderful website. I will visit again for more quality contents and also, recommend this site to all. Thanks.
2023年11月06日 18:45
Thank you for some other informative blog. Where else could I get that type of information written in such an ideal means? I have a mission that I’m just now working on, and I have been at the look out for such information.
2023年11月06日 22:22
If you want to be successful in weight loss, you have to focus on more than just how you look. An approach that taps into how you feel, your overall health, and your mental health is often the most efficient. Because no two weight-loss journeys are alike, we asked a bunch of women who’ve accomplished a major weight loss exactly how they did it
2023年11月07日 20:16
Very useful info. Hope to see more posts soon!.
2023年11月08日 01:54
Really the blogging is spreading its wings rapidly. Your write up is a fine example of it<a href="https://linktr.ee/newtoki114">뉴토끼</a>
2023年11月08日 23:37
I like your post. It is good to see you verbalize from the heart and clarity on this important subject can be easily observed...
2023年11月09日 03:09
This post is greatly simple to scrutinize and recognize without overlooking any unobtrusive components. Remarkable work!
2023年11月11日 23:32
This is very interesting, You are a very skilled blogger. I’ve joined your rss feed and look forward to seeking more of your magnificent post. Also, I have shared your website in my social networks!
2023年11月12日 22:46
Hey There. I found your blog using msn. This is a very well written article. I will be sure to bookmark it and return to read more of your useful information. Thanks for the post. I will definitely return.
2023年11月13日 22:41
유쾌한 게시물,이 매혹적인 작업을 계속 인식하십시오. 이 주제가이 사이트에서 마찬가지로 확보되고 있다는 것을 진심으로 알고 있으므로 이에 대해 이야기 할 시간을 마련 해주셔서 감사합니다! <a href="https://ajslaos.shop/">먹튀검증</a>
2023年11月14日 03:50
This is my first time visit to your blog and I am very interested in the articles that you serve. Provide enough knowledge for me. Thank you for sharing useful and don't forget, keep sharing useful info
2023年11月14日 23:51
I wear t have room schedule-wise right now to completely read your site yet I have bookmarked it and furthermore include your RSS channels. I will return in a day or two. much obliged for an extraordinary site
2023年12月06日 09:05
Titles that captivate and incorporate relevant keywords are the gateway to 구글 seo success.
2023年12月10日 03:15
티비몬 is a fresh start for Korean streaming, offering something for everyone.
2023年12月11日 20:39
If you're in jeju and looking for a memorable night, 제주퍼블릭 is the place to be. Don't miss out!
2023年12月12日 00:17
Thank you for the update, very nice site
2023年12月12日 23:51
Planning a visit to 오피? This article provides valuable insights to enhance your experience.
2023年12月14日 00:54
Using 설문조사 사이트 무료 ensures you can allocate your budget to other critical aspects of your project.
2023年12月15日 18:21
Oh my goodness! an excellent article dude. Thank you Nonetheless I will be experiencing trouble with ur rss . Don’t know why Struggling to sign up to it. Perhaps there is any person finding identical rss difficulty? Anyone who knows kindly respond. Thnkx NBA중계
2023年12月17日 03:48
Navigate Daegu's nightlife effortlessly with 대밤's intuitive interface, ensuring you discover the best late-night spots in the city.
2023年12月19日 01:12
Nice post. I was continuously checking this blog and I am impressed! Extremely useful info particularly the last part .I care for such information much. I was seeking this particular info for a long time. Thank you and good luck .
2023年12月23日 02:49
Dive deep into 해외축구중계 for a holistic soccer experience.
2023年12月28日 03:09
훌륭한 작업을 완료했습니다. t 내 친구 ind personilly wtll certitnly dtgtt를 제안합니다. t'm conftdent 그들은 thts webstte에서 gitned 될 것입니다
2023年12月30日 01:20
opstar is a game-changer for locating nearby massage parlors. Highly recommended!
2023年12月31日 18:31
Great post, I think website owners should acquire a lot from this web site its very user pleasant. 카지노사이트
2024年1月02日 03:28
If you haven't explored 누누티비 다시보기 yet, you're missing out on a streaming revolution.
2024年1月03日 19:26
Found a great massage spot through 울산오피 - pure relaxation!
2024年1月06日 22:09
I definitely enjoying every little bit of it and I have you bookmarked to check out new stuff you post
2024年1月10日 20:37
Acknowledges for paper such a beneficial composition, I stumbled beside your blog besides decipher a limited announce. I want your technique of inscription.
2024年1月14日 20:28
I enjoy each of the perform that you have placed into this. I’m sure that you will be making a really useful place. I has been additionally pleased. Good perform!
2024年1月14日 22:37
Wonderful illustrated information. I thank you about that. No doubt it will be very useful for my future projects. Would like to see some other posts on the same subject
2024年1月14日 23:31
Decent data, profitable and phenomenal outline, as offer well done with smart thoughts and ideas, bunches of extraordinary data and motivation, both of which I require, on account of offer such an accommodating data here
2024年1月14日 23:50
Your blog is too much amazing. I have found with ease what I was looking. Moreover, the content quality is awesome. Thanks for the nudge!
2024年1月15日 00:14
The content is really great
2024年1月15日 00:27
Stunning! Such an astonishing and accommodating post this is. I super love it. It's so great thus amazing. I am simply stunned. I trust that you keep on doing your work like this later on moreover
2024年1月15日 01:12
"This article offers clear idea in favor of the new users of blogging, that truly how to do blogging.
"
2024年1月15日 01:16
"Initial You got a awesome blog .I determination be involved in plus uniform minutes. i view you got truly very functional matters , i determination be always checking your blog blesss.
"
2024年1月15日 01:50
Thank you for very usefull information..
2024年1月15日 18:35
This is actually the kind of information I have been trying to find. Thank you for writing this information.
2024年1月15日 19:04
i read a lot of stuff and i found that the way of writing to clearifing that exactly want to say was very good so i am impressed and ilike to come again in future..
2024年1月15日 21:53
You have a good point here! I totally agree with what you have said !! Thanks for sharing your views ... hope more people will read this article
2024年1月15日 22:43
i like this blog very much its a ratting nice situation to
2024年1月16日 00:07
I wanted to thank you for this great read!! I definitely enjoying every little bit of it I have you bookmarked to check out new stuff you post
2024年1月16日 01:41
방문자에게 제공하는 최고 품질의 정보를 정말로 즐겼다 고 말하기 전에 웹 사이트를 떠날 수 없었습니까? 새로운 게시물을 확인하기 위해 자주 다시 올 것입니다.
2024年1月16日 03:24
Your blog provided us with valuable information to work with. Each & every tips of your post are awesome. Thanks a lot for sharing. Keep blogging
2024年1月17日 18:55
pleasant post, stay aware of this fascinating work. It truly regards realize that this subject is being secured likewise on this site so cheers for setting aside time to talk about this!
2024年1月17日 21:20
I really enjoy simply reading all of your weblogs. Simply wanted to inform you that you have people like me who appreciate your work. Definitely a great post. Hats off to you! The information that you have provided is very helpfu
2024年1月20日 05:29
JNANABHUMI AP provides a CBSE syllabus for all classes for the academic year 2024 has been designed as per the guidelines of the CBSE Board. The syllabus offers a conceptual background and lays the groundwork for the Class 10 Board exams. jnanabhumiap.in By visiting the page, students will find the downloadable pdf of the reduced CBSE 10th Syllabus along with the deleted portion of the syllabus for each subject. So, students are advised to prepare for the exam, as per the syllabus mentioned here.
2024年1月21日 16:49
온라인 카지노 커뮤니티 온카허브 입니다. 온카허브는 카지노 먹튀 사이트들과 안전한 카지노 사이트 정보를 공유하고 있습니다. 카지노 먹튀검증 전문팀을 자체적으로 운영함으로써 철저한 검증을 진행하고 있습니다.
https://oncahub24.com/
2024年1月21日 17:29
온라인 카지노 커뮤니티 온카허브 입니다. 온카허브는 카지노 먹튀 사이트들과 안전한 카지노 사이트 정보를 공유하고 있습니다. 카지노 먹튀검증 전문팀을 자체적으로 운영함으로써 철저한 검증을 진행하고 있습니다.
2024年1月22日 22:49
카지노 우리카지노 카지노는 바카라, 블랙잭, 룰렛 및 슬롯 등 다양한 게임을 즐기실 수 있는 공간입니다. 게임에서 승리하면 큰 환호와 함께 많은 당첨금을 받을 수 있고, 패배하면 아쉬움과 실망을 느끼게 됩니다.
2024年1月22日 22:57
하노이 꼭 가봐야 할 베스트 업소 추천 안내 및 예약, 하노이 밤문화 에 대해서 정리해 드립니다. 하노이 가라오케, 하노이 마사지, 하노이 풍선바, 하노이 밤문화를 제대로 즐기시기 바랍니다. 하노이 밤문화 베스트 업소 요약 베스트 업소 추천 및 정리. https://hanoi-nightlife.com/
2024年1月24日 16:33
No.1 먹튀검증 사이트, 먹튀사이트, 검증사이트, 토토사이트, 안전사이트, 메이저사이트, 안전놀이터 정보를 제공하고 있습니다. 먹튀해방으로 여러분들의 자산을 지켜 드리겠습니다. 먹튀검증 전문 커뮤니티 먹튀클린만 믿으세요!!
2024年1月24日 20:06
베트남 남성전용 커뮤니티❣️ 베트남 하이에나 에서 베트남 밤문화를 추천하여 드립니다. 베트남 가라오케, 베트남 VIP마사지, 베트남 이발관, 베트남 황제투어 남자라면 꼭 한번은 경험 해 봐야할 화끈한 밤문화로 모시겠습니다.
2024年3月19日 18:04
It is quite beneficial, although we think about the facts when it reaches this target
2024年3月19日 19:45
Below you will understand what is important, the idea provides one of the links with an exciting site:
2024年3月20日 15:57
Wonderful illustrated information. I thank you about that. No doubt it will be very useful for my future projects. Would like to see some other posts on the same subject
2024年3月20日 16:37
1. I recently came across this website and glad to see this blog. I am amazed by the way you explained things in this article. Keep up the good work.
2024年3月20日 16:43
It is rather very good, nevertheless glance at the data with this handle.
2024年3月20日 16:52
Thanks so much for the blog post.Really thank you! Much obliged
2024年3月20日 17:17
I have been exploring for a little bit for any high quality articles or weblog posts in this sort of house . Exploring in Yahoo I finally stumbled upon this web site. Studying this info So i am glad to exhibit that I’ve a very just right uncanny feeling I discovered exactly what I needed. I so much definitely will make sure to don¦t disregard this website and give it a look on a continuing basis.
2024年3月20日 18:12
I have bookmarked it and I am anticipating perusing new articles. Keep doing awesome
2024年3月20日 18:59
So it is interesting and very good written and see what they think about other people
So it is interesting and very good written and see what they think about other people
2024年3月20日 22:46
Wonderful illustrated information. I thank you about that. No doubt it will be very useful for my future projects. Would like to see some other posts on the same subject!
2024年3月21日 00:14
i really like this article please keep it up
2024年4月22日 16:35
온라인 카지노 커뮤니티 온카허브 입니다. 온카허브는 카지노 먹튀 사이트들과 안전한 카지노 사이트 정보를 공유하고 있습니다. 카지노 먹튀검증 전문팀을 자체적으로 운영함으로써 철저한 검증을 진행하고 있습니다.
2024年4月22日 19:47
블록체인개발 코인지갑개발 IT컨설팅 메스브레인팀이 항상 당신을 도울 준비가 되어 있습니다. 우리는 마음으로 가치를 창조한다는 철학을 바탕으로 일하며, 들인 노력과 시간에 부흥하는 가치만을 받습니다. 고객이 만족하지 않으면 기꺼이 환불해 드립니다.
https://xn--539awa204jj6kpxc0yl.kr/