• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>

    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>

            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            

    
            

            




            







												


        


            


            coreBugZJ
            

            此 blog 已棄。
            

            




            
	
					
	
            
		
            
			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 了。先了解一下語言，以后再優化。



            

             1(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
            10(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
            16(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
            24


            新版本，還是 TLE。

            

            1(defconstant +max-size+ 35000)
            2(defvar *prime* (make-array +max-size+ :initial-element t))
            3(defvar *prime-size* 0)
            4
            5(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
            17(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
            26(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
            32(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
            41

            
		
            
			posted on 2012-02-05 17:19 coreBugZJ 閱讀(335) 評論(0)  編輯 收藏 引用  所屬分類: ACM 、Lisp 
		
            
	
            
	
	





            
	    
    




            






            

				

            


    
    







            
	   
	



久久久久99精品成人片|
亚洲性久久久影院|
国产一区二区三区久久精品|
伊人久久大香线蕉AV色婷婷色|
色欲av伊人久久大香线蕉影院|
久久精品麻豆日日躁夜夜躁|
国产美女久久久|
欧美久久久久久午夜精品|
国产精品乱码久久久久久软件
|
综合久久精品色|
亚洲国产精品无码久久久不卡|
欧美一区二区精品久久|
久久夜色精品国产亚洲|
青青草国产精品久久久久|
久久精品国产亚洲AV久|
 久久综合狠狠综合久久激情 |
国产精品久久久久久五月尺|
精品久久久久久久久久久久久久久|
久久精品一本到99热免费|
久久99久久成人免费播放|
亚洲色婷婷综合久久|
伊人久久国产免费观看视频|
久久精品男人影院|
久久人人妻人人爽人人爽|
怡红院日本一道日本久久|
色8久久人人97超碰香蕉987|
日韩亚洲国产综合久久久|
色综合久久久久|
国产99精品久久|
无码人妻精品一区二区三区久久久
|
欧美无乱码久久久免费午夜一区二区三区中文字幕
|
久久久无码精品亚洲日韩软件|
久久久久久亚洲精品成人|
精品一二三区久久aaa片|
亚洲AⅤ优女AV综合久久久|
久久天天躁狠狠躁夜夜不卡|
无码任你躁久久久久久老妇App|
亚洲精品无码久久久|
久久久久亚洲AV成人网|
久久99精品久久久久久水蜜桃|
天天综合久久久网|