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

coreBugZJ

此 blog 已棄。

ARITH - SPOJ 6. Simple Arithmetics

One part of the new WAP portal is also a calculator computing expressions with very long numbers. To make the output look better, the result is formated the same way as is it usually used with manual calculations.

Your task is to write the core part of this calculator. Given two numbers and the requested operation, you are to compute the result and print it in the form specified below. With addition and subtraction, the numbers are written below each other. Multiplication is a little bit more complex: first of all, we make a partial result for every digit of one of the numbers, and then sum the results together.

Input

There is a single positive integer T on the first line of input (equal to about 1000). It stands for the number of expressions to follow. Each expression consists of a single line containing a positive integer number, an operator (one of +, - and *) and the second positive integer number. Every number has at most 500 digits. There are no spaces on the line. If the operation is subtraction, the second number is always lower than the first one. No number will begin with zero.

Output

For each expression, print two lines with two given numbers, the second number below the first one, last digits (representing unities) must be aligned in the same column. Put the operator right in front of the first digit of the second number. After the second number, there must be a horizontal line made of dashes (-).

For each addition or subtraction, put the result right below the horizontal line, with last digit aligned to the last digit of both operands.

For each multiplication, multiply the first number by each digit of the second number. Put the partial results one below the other, starting with the product of the last digit of the second number. Each partial result should be aligned with the corresponding digit. That means the last digit of the partial product must be in the same column as the digit of the second number. No product may begin with any additional zeros. If a particular digit is zero, the product has exactly one digit -- zero. If the second number has more than one digit, print another horizontal line under the partial results, and then print the sum of them.

There must be minimal number of spaces on the beginning of lines, with respect to other constraints. The horizontal line is always as long as necessary to reach the left and right end of both numbers (and operators) directly below and above it. That means it begins in the same column where the leftmost digit or operator of that two lines (one below and one above) is. It ends in the column where is the rightmost digit of that two numbers. The line can be neither longer nor shorter than specified.

Print one blank line after each test case, including the last one.

Example

Sample Input:

4
12345+67890
324-111
325*4405
1234*4

Sample Output:

 12345
+67890
------
 80235

 324
-111
----
 213

    325
  *4405
  -----
   1625
     0
 1300
1300
-------
1431625

1234
  *4
----
4936
Warning: large Input/Output data, be careful with certain languages.


模擬題,LISP SBCL
 1(defun out-line(spa str &optional (ope nil))
 2 (dotimes (i spa)
 3  (write-char #\Space))
 4 (if ope (write-char ope))
 5 (write-string str)
 6 (fresh-line))
 7
 8
 9(defun out-dash(len-o len-y len-z)
10 (dotimes (i (- len-o (max len-y len-z)))
11  (write-char #\Space))
12 (dotimes (i (max len-y len-z))
13  (write-char #\-))
14 (fresh-line))
15
16
17(defun proc-plus-minus(str-x str-y plus)
18 (let* ((num-x (parse-integer str-x))
19        (num-y (parse-integer str-y))
20        (num-z (if plus (+ num-x num-y) (- num-x num-y)))
21        (str-z (write-to-string num-z))
22        (len-x (length str-x))
23        (len-y (1+ (length str-y)))
24        (len-z (length str-z))
25        (len-o (max len-x len-y len-z)))
26  (out-line (- len-o len-x) str-x)
27  (out-line (- len-o len-y) str-y (if plus #\+ #\-))
28  (out-dash len-o len-y len-z)
29  (out-line (- len-o len-z) str-z)))
30
31
32(defun proc-mul(str-x str-y)
33 (let* ((num-x (parse-integer str-x))
34        (num-y (parse-integer str-y))
35        (num-z (* num-x num-y))
36        (str-z (write-to-string num-z))
37        (len-x (length str-x))
38        (len-y (length str-y))
39        (len-z (length str-z))
40        (len-o (max len-x (1+ len-y) len-z))
41        (tmp-s nil)
42        (len-s nil)
43        (tmp-z (make-array len-y :fill-pointer 0))
44        (dig-y (make-array len-y :initial-element #\0 :element-type 'character)))
45  (dotimes (i len-y)
46   (let ((j (1- (- len-y i))))
47    (setf (elt dig-y j) (elt str-y j))
48    (setf tmp-s (write-to-string (* num-x (parse-integer dig-y))))
49    (setf (elt dig-y j) #\0)
50    (when (string= tmp-"0")
51     (setf tmp-s (make-array (1+ i) :initial-element #\0 :element-type 'character)))
52    (setf len-s (length tmp-s))
53    (setf len-o (max len-o len-s))
54    (vector-push tmp-s tmp-z)))
55  (out-line (- len-o len-x) str-x)
56  (out-line (1- (- len-o len-y)) str-y #\*)
57  (out-dash len-o (1+ len-y) (length (elt tmp-0)))
58  (dotimes (i len-y)
59   (setf tmp-s (elt tmp-z i))
60   (setf len-s (length tmp-s))
61   (out-line (- len-o len-s) (subseq tmp-0 (- len-s i))))
62  (setf tmp-s (elt tmp-z (1- len-y)))
63  (when (or (string/= tmp-s str-z) (/= len-1))
64   (out-dash len-o (length tmp-s) len-z)
65   (out-line (- len-o len-z) str-z))))
66
67
68(dotimes (i (read))
69 (let ((str (read-line))
70       (idx nil))
71  (cond
72   ((find #\+ str)
73    (setf idx (position #\+ str))
74    (proc-plus-minus (subseq str 0 idx) (subseq str (1+ idx)) t))
75   ((find #\- str)
76    (setf idx (position #\- str))
77    (proc-plus-minus (subseq str 0 idx) (subseq str (1+ idx)) nil))
78   (t
79    (setf idx (position #\* str))
80    (proc-mul (subseq str 0 idx) (subseq str (1+ idx)))))
81  (terpri)))
82
83

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

青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品
  • <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>
            亚洲精品黄色| 欧美激情bt| 亚洲一区二区三区午夜| 国产精品久久久久9999吃药| 亚洲资源在线观看| 午夜精品视频一区| 狠狠久久亚洲欧美| 亚洲国产精品专区久久| 欧美日韩大陆在线| 欧美一级午夜免费电影| 欧美一区亚洲| 亚洲精品欧美极品| 亚洲午夜久久久久久久久电影院 | 久久久国产一区二区| 亚洲高清免费| av成人动漫| 国内精品久久久| 亚洲日本成人| 国产一区二区精品在线观看| 欧美www视频| 国产精品国产精品| 麻豆精品在线视频| 欧美性色综合| 欧美不卡三区| 国产毛片精品视频| 亚洲人精品午夜在线观看| 国产欧美一区二区精品性色| 欧美国产日产韩国视频| 国产精品视频网址| 亚洲激情电影在线| 国产中文一区| 在线视频亚洲一区| 亚洲国产精品综合| 欧美一级播放| 亚洲视频在线一区观看| 久久久不卡网国产精品一区| 亚洲一区二区在线免费观看视频| 久久理论片午夜琪琪电影网| 亚洲欧美国产va在线影院| 老色鬼精品视频在线观看播放| 亚洲欧美国产高清| 欧美日本网站| 亚洲电影免费| 在线观看一区| 欧美一级片久久久久久久| 亚洲一级特黄| 欧美日韩国产一区精品一区| 欧美国产丝袜视频| 黄色一区三区| 欧美在线亚洲| 久久久国产精品一区| 国产精品久久9| 99在线精品视频| 9久re热视频在线精品| 老司机久久99久久精品播放免费| 久久精品欧洲| 国产欧美日韩一区二区三区在线观看| 99精品欧美| 亚洲一区二区精品在线观看| 欧美精品在线一区二区三区| 亚洲国产三级网| 亚洲精品久久久久久久久久久久久 | 伊人春色精品| 久久成人免费电影| 久久久久久久久久久成人| 国产人成一区二区三区影院| 亚洲宅男天堂在线观看无病毒| 亚洲免费视频一区二区| 国产精品青草综合久久久久99| 一区二区激情| 欧美一区二区三区久久精品| 国产欧美一区视频| 久久爱www久久做| 你懂的亚洲视频| 亚洲精品乱码久久久久久日本蜜臀| 老司机一区二区三区| 91久久夜色精品国产九色| 宅男精品视频| 国产精品自拍小视频| 欧美在线你懂的| 欧美激情一区二区三区四区| 一本色道久久综合亚洲精品按摩| 国产精品a久久久久| 亚洲一区免费| 男男成人高潮片免费网站| 亚洲精品专区| 国产精品亚洲综合色区韩国| 久久精品伊人| 亚洲免费成人| 久久精品一级爱片| 亚洲精品久久久久久久久久久久 | 一区二区三区成人| 性做久久久久久久免费看| 黄色精品免费| 欧美另类videos死尸| 亚洲永久在线| 欧美激情精品久久久六区热门| 一区二区三区视频免费在线观看| 国产精品乱码妇女bbbb| 老鸭窝亚洲一区二区三区| 亚洲精品影院| 久久躁日日躁aaaaxxxx| 999亚洲国产精| 国产一区二区三区的电影| 欧美极品一区二区三区| 欧美一区二区三区四区在线观看 | 亚洲欧美日韩电影| 在线精品国产成人综合| 国产精品美女视频网站| 你懂的亚洲视频| 欧美一级大片在线观看| 亚洲日本免费| 欧美成人69| 久久精品论坛| 午夜精品影院在线观看| 亚洲精品一区二区三区四区高清| 国产一区二区三区最好精华液| 欧美色图五月天| 欧美激情国产高清| 久久人人97超碰国产公开结果| 亚洲一区二区三区乱码aⅴ蜜桃女| 亚洲国产激情| 欧美电影免费观看网站| 久久久久网址| 欧美一区二区视频免费观看| 中国成人在线视频| 99xxxx成人网| 亚洲乱亚洲高清| 亚洲激情不卡| 亚洲国产一区二区三区在线播 | 欧美日韩在线免费观看| 欧美成人国产一区二区| 免费看黄裸体一级大秀欧美| 久久亚洲不卡| 美女黄毛**国产精品啪啪| 久久久久久夜| 久久中文字幕导航| 久久艳片www.17c.com| 久久青草久久| 牛牛影视久久网| 欧美成人综合| 欧美喷水视频| 欧美日韩在线播放三区四区| 欧美日韩免费观看中文| 欧美午夜大胆人体| 欧美小视频在线| 国产精品国产三级国产a| 国产精品国产一区二区| 国产精品乱人伦中文| 国产精品一二一区| 国产一区二区三区四区老人| 韩国三级在线一区| 在线观看精品一区| 亚洲人精品午夜| 一本不卡影院| 午夜精品在线看| 久久综合一区| 91久久久久久久久| 亚洲图片自拍偷拍| 久久gogo国模裸体人体| 久热国产精品视频| 欧美日韩三区| 好吊日精品视频| 亚洲精品一区二区三区在线观看| 在线中文字幕一区| 久久av一区二区三区漫画| 久久综合中文色婷婷| 亚洲精品久久久久久久久久久久| 一区二区三区欧美| 久久精品中文| 欧美日韩免费在线视频| 国产午夜精品全部视频播放| 亚洲国产精品福利| 亚洲欧美激情一区| 欧美成人亚洲成人| 亚洲亚洲精品在线观看| 久久久久久精| 国产精品久久久久999| 亚洲电影在线看| 午夜精品久久久久| 欧美高清视频一区二区| 亚洲一区日韩在线| 欧美激情欧美激情在线五月| 国产欧美日韩综合| 亚洲免费av观看| 久久偷看各类wc女厕嘘嘘偷窃| 9久re热视频在线精品| 久久精品亚洲乱码伦伦中文| 欧美色综合网| 亚洲精品欧美一区二区三区| 久久精品卡一| 亚洲天堂激情| 欧美日韩视频在线第一区| 亚洲国产欧美一区二区三区久久 | 一区二区高清| 欧美国产一区二区在线观看| 国产在线精品自拍| 午夜久久久久| 日韩视频免费观看高清完整版| 久久久一二三|