久久婷婷人人澡人人爽人人爱,亚洲精品成人久久久,精品久久人人做人人爽综合

PRIME1 - SPOJ 2. Prime Generator

Peter wants to generate some prime numbers for his cryptosystem. Help him! Your task is to generate all prime numbers between two given numbers!

Input

The input begins with the number t of test cases in a single line (t<=10). In each of the next t lines there are two numbers m and n (1 <= m <= n <= 1000000000, n-m<=100000) separated by a space.

Output

For every test case print all prime numbers p such that m <= p <= n, one number per line, test cases separated by an empty line.

Example

Input:
2
1 10
3 5

Output:
2
3
5
7

3
5

Warning: large Input/Output data, be careful with certain languages (though most should be OK if the algorithm is well designed)

LISP SBCL
可惜 TLE 了。先了解一下語言，以后再優化。

(defun primep(n)
2

(when (< n 2) (return-from primep NIL))
3

(when (= n 2) (return-from primep T))
4

(let ((m (floor (sqrt n))) (i 2))
5

(loop
6

(when (> i m) (return-from primep T))
7

(when (zerop (rem n i)) (return-from primep NIL))
8

(incf i))))
9

(defun solve(m n)
11

(do ((p m (1+ p)))
12

((> p n))
13

(when (primep p) (format t "~d~%" p)))
14

(format t "~%"))
15

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

m n lin)
18

(dotimes (i cnt)
19

(setf lin (read-line))
20

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

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

(solve m n)))
23

新版本，還是 TLE。

(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

(defun primep(n)
18

(when (< n 2) (return-from primep nil))
19

(when (or (= n 2) (= n 3)) (return-from primep t))
20

(do
21

((i 0 (1+ i))
22

(p (elt *prime* 0) (elt *prime* (1+ i))))
23

((or (>= i *prime-size*) (> (* p p) n)) t)
24

(when (zerop (rem n p)) (return-from primep nil))))
25

(defun solve(m n)
27

(do ((p m (1+ p)))
28

((> p n))
29

(when (primep p) (format t "~d~%" p)))
30

(format t "~%"))
31

(init-prime)
33

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

m n lin)
35

(dotimes (i cnt)
36

(setf lin (read-line))
37

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

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

(solve m n)))
40

posted on 2012-02-05 17:19 coreBugZJ 閱讀(335) 評論(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

Input

Output

Example