欧美日韩国产在线播放,亚洲欧美国产不卡,欧美日韩免费高清一区色橹橹

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) 評論(0) 編輯收藏引用所屬分類: ACM 、Lisp

只有注冊用戶登錄后才能發表評論。
【推薦】100%開源！大型工業跨平臺軟件C++源碼提供，建模，組態！

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

網站導航: 博客園 IT新聞 BlogJava 博問 Chat2DB 管理

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

coreBugZJ

My Links

Blog Stats

常用鏈接

留言簿(10)

隨筆分類(458)

隨筆檔案(268)

相冊

ACM

AI

LaTeX

安全

編程語言

好有道理

技術

開源

科學

數學

圖形圖像

文化

問題（練習＆有趣）

資源

最新隨筆

搜索

最新評論

閱讀排行榜

評論排行榜

PRIME1 - SPOJ 2. Prime Generator