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

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 閱讀(370) 評論(0)  編輯 收藏 引用 所屬分類: ACMLisp

青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品
  • <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>
            ●精品国产综合乱码久久久久| 亚洲激情影视| 欧美在线三级| 欧美在现视频| 尹人成人综合网| 亚洲国产成人精品女人久久久 | 午夜视频在线观看一区二区| 国产精品一区久久久| 久久久另类综合| 免费不卡在线视频| 一本一本久久a久久精品牛牛影视| 99视频日韩| 国产亚洲成av人在线观看导航| 久久蜜桃精品| 欧美激情aⅴ一区二区三区| 亚洲一区制服诱惑| 久久久久久久综合色一本| 亚洲精品久久| 午夜精品免费| 亚洲三级国产| 欧美一区二区三区精品| 亚洲高清在线| 亚洲永久字幕| 亚洲黄色免费网站| 亚洲一二三四区| 在线 亚洲欧美在线综合一区| 亚洲精品久久嫩草网站秘色| 国产人成一区二区三区影院| 欧美激情导航| 国产一区二区高清| 亚洲美女精品成人在线视频| 激情小说亚洲一区| 亚洲一二三四久久| 日韩视频专区| 久久久噜噜噜久噜久久 | 99热在线精品观看| 欧美一级二区| 亚洲一区二区日本| 麻豆精品视频| 久久久午夜视频| 国产精品捆绑调教| 最近中文字幕日韩精品| 精品91免费| 欧美一区二区日韩一区二区| 亚洲一区二区高清视频| 欧美激情一二三区| 欧美国产日韩一二三区| 国产性做久久久久久| 日韩午夜在线观看视频| 亚洲精品五月天| 久久一区二区三区四区| 久久嫩草精品久久久精品一| 国产精品日韩精品欧美在线| 日韩亚洲欧美一区二区三区| 99国产精品久久久久久久久久| 另类天堂视频在线观看| 久久久欧美精品| 国产一区二区久久| 午夜欧美不卡精品aaaaa| 午夜久久福利| 国产精品国产三级国产普通话99| 亚洲精品一区二区在线| 日韩亚洲欧美成人| 欧美激情亚洲另类| 91久久国产自产拍夜夜嗨| 亚洲人成人99网站| 欧美成人激情视频免费观看| 欧美激情久久久| 亚洲欧洲精品一区二区精品久久久| 久久久久久久激情视频| 美女主播一区| 亚洲成色www8888| 你懂的国产精品| 亚洲国产老妈| 亚洲一区国产视频| 国产精品午夜电影| 久久都是精品| 欧美激情国产精品| 一本久久a久久精品亚洲| 欧美日韩视频在线| 亚洲专区在线| 久久综合国产精品| 亚洲肉体裸体xxxx137| 欧美日韩亚洲另类| 午夜宅男欧美| 久久蜜桃av一区精品变态类天堂| 在线欧美日韩精品| 欧美日韩大片| 午夜视频一区二区| 欧美大片免费看| 这里只有精品丝袜| 国产精品日本| 久久综合九色综合欧美就去吻| 亚洲欧洲一区二区三区| 亚洲欧美日韩另类| 在线观看视频免费一区二区三区| 欧美激情片在线观看| 亚洲综合色激情五月| 你懂的网址国产 欧美| 在线视频你懂得一区| 国产丝袜美腿一区二区三区| 欧美成人精品h版在线观看| 亚洲性感激情| 亚洲第一视频| 欧美一区免费| 日韩一级黄色片| 国内一区二区三区在线视频| 欧美另类一区二区三区| 欧美亚洲日本网站| 亚洲人成在线影院| 久久久久久一区二区三区| 一区二区高清视频| 在线免费观看日本一区| 国产精品毛片高清在线完整版| 久久欧美中文字幕| 亚洲午夜精品一区二区三区他趣| 欧美成人精品一区二区三区| 欧美一二三区精品| 一区二区三区视频观看| 亚洲国产91精品在线观看| 国产精品一区在线播放| 欧美日韩国产综合视频在线观看| 久久精品中文字幕一区二区三区| 一区二区三区四区五区在线| 欧美激情精品久久久久久久变态 | 99re6这里只有精品视频在线观看| 国产欧美一区二区三区国产幕精品| 欧美连裤袜在线视频| 久久天天躁狠狠躁夜夜av| 欧美亚洲一区| 亚洲伊人伊色伊影伊综合网| 亚洲免费av电影| 亚洲精品国产精品久久清纯直播| 蜜月aⅴ免费一区二区三区| 久久国产精品久久久久久久久久 | 国产综合香蕉五月婷在线| 国产精品毛片a∨一区二区三区| 欧美剧在线免费观看网站| 欧美+亚洲+精品+三区| 久久久久综合一区二区三区| 久久精品91久久久久久再现| 午夜日韩av| 久久福利资源站| 久久精品色图| 久久午夜色播影院免费高清| 久久婷婷蜜乳一本欲蜜臀| 久久一区二区三区四区五区| 久久最新视频| 老司机午夜精品视频| 欧美a级片网| 欧美日韩高清区| 欧美视频在线观看一区二区| 欧美视频日韩视频在线观看| 国产精品高精视频免费| 国产精品日本欧美一区二区三区| 国产精品日韩久久久| 国产性色一区二区| 在线观看欧美精品| 亚洲国产毛片完整版| a91a精品视频在线观看| 亚洲欧美日韩一区| 久久精品免费播放| 欧美韩日一区二区三区| 亚洲国产精品一区二区第四页av | 欧美黄污视频| 一区二区三区福利| 欧美中文字幕不卡| 男人的天堂亚洲| 国产精品video| 韩国三级电影一区二区| 91久久久久久久久久久久久| 亚洲线精品一区二区三区八戒| 欧美中文字幕不卡| 牛牛精品成人免费视频| 日韩视频一区二区三区在线播放 | 亚洲三级电影在线观看| 亚洲一级黄色av| 久久久久久久成人| 欧美日韩一区二区在线观看视频| 国产色产综合色产在线视频| 亚洲精品国精品久久99热| 性欧美xxxx视频在线观看| 免费影视亚洲| 一本一道久久综合狠狠老精东影业| 午夜久久资源| 欧美日韩亚洲网| 伊人久久噜噜噜躁狠狠躁| 亚洲伊人久久综合| 欧美高清视频一区二区三区在线观看| 日韩一区二区电影网| 久久精品一区中文字幕| 欧美日韩免费在线观看| 亚洲第一在线视频| 欧美在线观看视频在线| 日韩午夜电影| 欧美黄免费看| 亚洲第一页自拍| 久久久亚洲一区| 亚洲一级一区| 国产精品国产三级国产aⅴ9色|