午夜精品久久久久久久久久久 ,欧美伊人久久久久久午夜久久久久,欧美大片免费观看

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

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

解法：
貪心。

代碼 LISP SBCL ：

(defun digit-succ(x)
2

(elt "0123456789A" (position x "*0123456789")))
3

(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

posted on 2012-02-19 16:18 coreBugZJ 閱讀(416) 評論(0) 編輯收藏引用所屬分類: ACM 、Algorithm 、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

安全

編程語言

好有道理

技術

開源

科學

數學

圖形圖像

文化

問題（練習＆有趣）

資源

最新隨筆

搜索

最新評論

閱讀排行榜

評論排行榜

PALIN - SPOJ 5. The Next Palindrome

Input

Output

Example