• <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 已棄。
            

            




            
	
					
	
            
		
            
			PALIN - SPOJ 5. The Next Palindrome
		
            
		
            A positive integer is called a palindrome if its representation in the decimal system is the same when read from left to right and from right to left. For a given positive integer K of not more than 1000000 digits, write the value of the smallest palindrome larger than K to output. Numbers are always displayed without leading zeros.
            

            Input
            

            The first line contains integer t, the number of test cases. Integers K are given in the next t lines.
            

            Output
            

            For each K, output the smallest palindrome larger than K. 
            

            Example
            

            Input:
            2
            808
            2133
            

            Output:
            818
            2222
            Warning: large Input/Output data, be careful with certain languages 


            問題：
            求出比輸入整數(shù)大的最小的回文數(shù)，輸入整數(shù)不超過 1000000 個(gè)數(shù)字。

            解法：
            貪心。

            代碼 LISP SBCL ：

             1(defun digit-succ(x)
             2 (elt "0123456789A" (position x "*0123456789")))
             3
             4(let ((num (read)))
             5 (dotimes (ca num)
             6  (let* ((str (read-line))
             7         (len (length str))
             8         (cmp 0)
             9         (i nil)
            10         (j nil))
            11   (dotimes (i (floor (/ (1+ len) 2)))
            12    (setf j (1- (- len i)))
            13    (when (char> (elt str i) (elt str j))
            14     (setf cmp 1))
            15    (when (char< (elt str i) (elt str j))
            16     (setf cmp -1))
            17    (setf (elt str j) (elt str i)))
            18   (when (<= cmp 0)
            19    (setf i (1- (floor (/ (1+ len) 2))))
            20    (setf j (if (oddp len) i (1+ i)))
            21    (do ()
            22     ((or (minusp i) (char< (elt str i) #\9)))
            23     (setf (elt str i) #\0)
            24     (setf (elt str j) #\0)
            25     (decf i)
            26     (incf j))
            27    (when (minusp i)
            28     (setf (elt str 0) #\1)
            29     (write-string str)
            30     (write-char #\1))
            31    (when (not (minusp i))
            32     (setf (elt str i) (digit-succ (elt str i)))
            33     (setf (elt str j) (elt str i))
            34     (write-string str)))
            35   (when (plusp cmp)
            36    (write-string str))
            37   (fresh-line))))
            38
            39


            
		
            
			posted on 2012-02-19 16:18 coreBugZJ 閱讀(400) 評(píng)論(0)  編輯 收藏 引用  所屬分類: ACM 、Algorithm 、Lisp 
		
            
	
            
	
	





            
	    
    




            






            

				

            


    
    







            
	   
	



久久99精品国产麻豆宅宅|
久久久久久久女国产乱让韩|
色综合久久久久综合体桃花网|
一极黄色视频久久网站|
亚洲国产高清精品线久久
|
久久国产精品77777|
色综合久久久久无码专区|
国产毛片欧美毛片久久久|
亚洲午夜久久久久久久久久|
国产情侣久久久久aⅴ免费|
久久精品成人免费看|
免费一级欧美大片久久网|
热re99久久精品国99热|
亚洲国产精久久久久久久|
久久这里有精品|
亚洲国产欧洲综合997久久|
狠狠色丁香久久婷婷综|
久久婷婷五月综合色99啪ak|
亚洲人成伊人成综合网久久久|
久久亚洲国产成人精品性色|
国产巨作麻豆欧美亚洲综合久久
|
伊人久久精品无码av一区|
久久国产免费观看精品3|
久久天天躁狠狠躁夜夜av浪潮
|
久久综合五月丁香久久激情|
伊人色综合久久天天人手人婷
|
久久精品视频一|
久久成人精品视频|
久久精品国产亚洲av麻豆图片|
国产91色综合久久免费分享|
中文国产成人精品久久亚洲精品AⅤ无码精品|
久久久亚洲欧洲日产国码aⅴ
|
偷窥少妇久久久久久久久|
99久久婷婷国产一区二区|
精品无码久久久久国产|
国产69精品久久久久APP下载|
久久精品亚洲欧美日韩久久|
精品国产91久久久久久久
|
久久精品国产99久久无毒不卡|
波多野结衣久久精品|
亚洲精品WWW久久久久久|