• <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
		
            
		版本三終于 AC 了。

            LISP SBCL

            

            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(defconstant +max-len+ 100009)
            18(defvar *ans* (make-array +max-len+ :initial-element t))
            19(defvar *ans-size*)
            20
            21(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
            39(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 閱讀(347) 評(píng)論(0)  編輯 收藏 引用  所屬分類(lèi): ACM 、Lisp 
		
            
	
            
	
	





            
	    
    




            






            

				

            


    
    







            
	   
	



国产一区二区精品久久|
性高湖久久久久久久久|
久久久久亚洲av成人无码电影
|
国产精品久久久久国产A级|
嫩草伊人久久精品少妇AV|
久久99精品久久久久久|
久久人人爽人人精品视频|
亚洲国产精品久久久天堂|
国产午夜电影久久|
国产亚洲精久久久久久无码77777|
婷婷综合久久中文字幕蜜桃三电影|
国产精品久久久久无码av|
超级97碰碰碰碰久久久久最新|
精品久久8x国产免费观看|
一级做a爰片久久毛片看看|
久久棈精品久久久久久噜噜|
精品乱码久久久久久夜夜嗨|
国产成人久久精品一区二区三区|
亚洲国产小视频精品久久久三级|
99精品国产在热久久无毒不卡|
亚洲一级Av无码毛片久久精品|
久久噜噜电影你懂的|
欧美噜噜久久久XXX|
伊人久久大香线蕉综合5g|
国内精品欧美久久精品|
欧洲人妻丰满av无码久久不卡|
国产精品美女久久福利网站|
久久久久国色AV免费观看|
久久国产精品99国产精|
综合网日日天干夜夜久久|
久久婷婷五月综合国产尤物app
|
国产亚州精品女人久久久久久
|
99久久无色码中文字幕|
亚洲欧美日韩久久精品第一区|
伊人久久一区二区三区无码|
久久精品成人免费观看97|
久久毛片免费看一区二区三区|
久久精品一区二区三区中文字幕|
久久天天躁狠狠躁夜夜av浪潮
|
一本色综合网久久|
波多野结衣久久一区二区|