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

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>
            欧美视频在线观看一区二区| 国产一区二区久久久| 亚洲人精品午夜| 久久综合影音| 99精品国产在热久久下载| 国产精品网曝门| 亚洲精品日日夜夜| 亚洲国产成人不卡| 久久久伊人欧美| 久久久xxx| 国产精品亚洲综合一区在线观看| 亚洲高清视频在线| 亚洲精品日产精品乱码不卡| 久久一区二区精品| 蜜桃久久av一区| 在线高清一区| 久久久久久69| 蜜月aⅴ免费一区二区三区| 国产日产亚洲精品| 午夜精品在线看| 欧美尤物巨大精品爽| 国产精品久久久久久av福利软件| 亚洲区一区二| 亚洲网址在线| 日韩写真视频在线观看| 美女在线一区二区| 亚洲精品自在在线观看| 亚洲第一福利社区| 久久综合色播五月| 麻豆成人在线| 最新国产乱人伦偷精品免费网站 | 国产美女精品视频免费观看| 一区二区三区欧美日韩| 午夜精品一区二区三区电影天堂 | 狠狠色2019综合网| 久久躁日日躁aaaaxxxx| 亚洲福利av| 99精品免费网| 欧美性片在线观看| 午夜久久tv| 欧美成人午夜77777| 亚洲精品欧美日韩专区| 欧美日韩国产高清视频| 亚洲在线视频观看| 久久噜噜亚洲综合| 亚洲激情一区二区三区| 欧美人与性禽动交情品 | 国产精品嫩草久久久久| 欧美亚洲一区在线| 久久一区视频| 夜夜狂射影院欧美极品| 欧美性猛交xxxx免费看久久久| 亚洲在线视频免费观看| 欧美一区二粉嫩精品国产一线天| 黄色成人av在线| 欧美精品激情blacked18| 亚洲一区二区三区四区五区黄| 久久午夜色播影院免费高清| 亚洲精品乱码久久久久久黑人 | 久久精品国产综合精品| 亚洲国产小视频在线观看| 欧美午夜精品久久久久久久| 欧美伊人久久| 日韩视频一区二区三区在线播放免费观看| 亚洲女人天堂av| 亚洲高清在线精品| 国产精品久久久久毛片软件 | 久久久噜久噜久久综合| 一区二区精品国产| 欧美激情网友自拍| 久久精品国产第一区二区三区| 亚洲精品国产精品久久清纯直播 | 欧美成人综合网站| 欧美一区免费| 在线综合+亚洲+欧美中文字幕| 久久躁狠狠躁夜夜爽| 亚洲免费影视| 一本到12不卡视频在线dvd| 狠狠色综合播放一区二区| 欧美日韩一区二区在线观看视频| 久久影音先锋| 欧美在线91| 亚洲午夜激情免费视频| 亚洲欧洲一区二区三区| 免费人成精品欧美精品| 久久精品在线播放| 亚洲欧美日韩国产另类专区| 亚洲国产美女精品久久久久∴| 国产一区999| 国产精品久久9| 欧美精品九九99久久| 欧美wwwwww| 美女诱惑一区| 卡一卡二国产精品| 久久久天天操| 久久精品理论片| 欧美一级一区| 亚洲欧美日韩国产| 亚洲一区二区高清视频| 夜夜夜久久久| 亚洲天堂网站在线观看视频| 日韩亚洲精品电影| 亚洲免费精品| 99国产精品久久| 一区二区三区福利| 国产精品99久久不卡二区| 亚洲人成在线播放网站岛国| 亚洲人体偷拍| av成人免费在线| 一本色道久久综合一区| 日韩视频一区二区三区在线播放免费观看| 亚洲国产一区二区三区在线播 | 欧美黑人在线播放| 欧美激情综合| 亚洲国产日韩美| 亚洲精品综合| 这里只有精品丝袜| 亚洲欧美一区二区三区久久| 欧美亚洲免费电影| 久久午夜激情| 欧美黄色免费网站| 欧美午夜在线视频| 国产无遮挡一区二区三区毛片日本| 国产精品高清在线观看| 国产精品―色哟哟| 国内偷自视频区视频综合| 激情成人av| 亚洲精品久久久久久一区二区| 亚洲日本一区二区三区| 99av国产精品欲麻豆| 亚洲一二三四久久| 欧美在线视频网站| 欧美~级网站不卡| 最新日韩在线| 在线视频精品| 久久经典综合| 欧美二区在线播放| 91久久精品美女| 一区二区av在线| 亚洲电影一级黄| 在线免费高清一区二区三区| 亚洲高清资源| 亚洲一级在线| 久久先锋资源| 亚洲看片一区| 先锋影院在线亚洲| 免费在线亚洲| 国产精品大片免费观看| 好看的av在线不卡观看| 亚洲国产欧美一区| 亚洲天堂av在线免费| 久久网站免费| 亚洲精品色图| 亚洲女同精品视频| 美女在线一区二区| 国产精品高清在线| 亚洲电影免费| 香蕉成人久久| 亚洲精品国产系列| 欧美在线3区| 欧美三级资源在线| 狠狠色综合色区| 亚洲免费一在线| 亚洲精品久久久一区二区三区| 久久久久国产一区二区三区四区| 国产精品爱久久久久久久| 亚洲国产日韩一级| 久久久久久香蕉网| 亚洲一级电影| 欧美日韩一区在线视频| 亚洲激情影视| 老司机午夜精品视频| 亚洲影院高清在线| 欧美日韩一区在线视频| 亚洲欧洲综合| 免费视频一区| 香蕉视频成人在线观看 | 麻豆成人精品| 久久久久国产精品人| 久久精品一区二区三区不卡| 欧美护士18xxxxhd| 黄色成人精品网站| 久久久国产成人精品| 一区二区三区日韩精品| 欧美激情一区二区三区| **性色生活片久久毛片| 久久黄色小说| 亚洲午夜极品| 国产精品日韩一区| 午夜精品成人在线视频| 日韩写真在线| 欧美三区免费完整视频在线观看| 亚洲成人直播| 欧美成人精品在线播放| 久久久国产一区二区三区| 国精品一区二区| 久久婷婷人人澡人人喊人人爽| 欧美一级黄色录像| 久久激情综合网| 麻豆精品视频在线观看视频|