国产精品久久久久一区二区三区共 ,欧美va亚洲va日韩∨a综合色,亚洲电影一级黄

PRIME1 - SPOJ 2. Prime Generator

版本三終于 AC 了。

LISP SBCL

(defconstant +max-size+ 35000)
2

(defvar *prime* (make-array +max-size+ :initial-element t))
3

(defvar *prime-size* 0)
4

(defun init-prime()
6

(do
7

((i 2 (1+ i)))
8

((>= i +max-size+))
9

(when (elt *prime* i)
10

(setf (elt *prime* *prime-size*) i)
11

(incf *prime-size*)
12

(do
13

((j (+ i i) (+ j i)))
14

((>= j +max-size+))
15

(setf (elt *prime* j) nil)))))
16

(defconstant +max-len+ 100009)
18

(defvar *ans* (make-array +max-len+ :initial-element t))
19

(defvar *ans-size*)
20

(defun solve(m n)
22

(when (< m 2) (setf m 2))
23

(when (> m n)
24

(format t "~%")
25

(return-from solve nil))
26

(setf *ans-size* (1+ (- n m)))
27

(dotimes (i *prime-size*)
28

(let* ((p (elt *prime* i))
29

(b (* (floor (/ (1- (+ m p)) p)) p)))
30

(do ((x (if (> b p) b (+ p p)) (+ x p)))
31

((> x n))
32

(setf (elt *ans* (- x m)) nil))))
33

(dotimes (i *ans-size*)
34

(if (elt *ans* i)
35

(format t "~d~%" (+ m i))
36

(setf (elt *ans* i) t)))
37

(format t "~%" ))
38

(init-prime)
40

(let ((cnt (parse-integer (read-line)))
41

m n lin)
42

(dotimes (i cnt)
43

(setf lin (read-line))
44

(setf m (parse-integer (subseq lin 0 (position #\Space lin))))
45

(setf n (parse-integer (subseq lin (1+ (position #\Space lin)))))
46

(solve m n)))
47

posted on 2012-02-06 16:06 coreBugZJ 閱讀(363) 評(píng)論(0) 編輯收藏引用所屬分類: ACM 、Lisp

只有注冊用戶登錄后才能發(fā)表評(píng)論。
【推薦】100%開源！大型工業(yè)跨平臺(tái)軟件C++源碼提供，建模，組態(tài)！

相關(guān)文章: 微軟2014實(shí)習(xí)生及秋令營技術(shù)類職位在線測試 TopCoder SRM 593 DIV2 第三題生成全排列的非回溯方法（TopCoder SRM 591 DIV 2） A* 算法求解八數(shù)碼問題，POJ 1077 Eight POJ 1067 取石子游戲 POJ 2068 Nim POJ 2975 Nim POJ 3696 The Luckiest number POJ 3604 Professor Ben EOJ 1117 剩余定理

網(wǎng)站導(dǎo)航: 博客園 IT新聞 BlogJava 博問 Chat2DB 管理

青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品

coreBugZJ

My Links

Blog Stats

常用鏈接

留言簿(10)

隨筆分類(458)

隨筆檔案(268)

相冊

ACM

AI

LaTeX

安全

編程語言

好有道理

技術(shù)

開源

科學(xué)

數(shù)學(xué)

圖形圖像

文化

問題（練習(xí)＆有趣）

資源

最新隨筆

搜索

最新評(píng)論

閱讀排行榜

評(píng)論排行榜

PRIME1 - SPOJ 2. Prime Generator