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

            ONP - SPOJ 4. Transform the Expression

            Transform the algebraic expression with brackets into RPN form (Reverse Polish Notation). Two-argument operators: +, -, *, /, ^ (priority from the lowest to the highest), brackets ( ). Operands: only letters: a,b,...,z. Assume that there is only one RPN form (no expressions like a*b*c).

            Input

            t [the number of expressions <= 100]
            expression [length <= 400]
            [other expressions]
            

            Text grouped in [ ] does not appear in the input file.

            Output

            The expressions in RPN form, one per line.
            

            Example

            Input:
            3
            (a+(b*c))
            ((a+b)*(z+x))
            ((a+t)*((b+(a+c))^(c+d)))
            
            Output:
            abc*+
            ab+zx+*
            at+bac++cd+^*
             
             
            中綴轉后綴,用遞歸解決。
            lambda 很好用。
            LISP SBCL
             1(defconstant +max-len+ 420)
             2(defconstant +max-pri+ 123456789)
             3(defvar *str*)
             4(defvar *pri*)
             5
             6
             7(defun solve(le ri)
             8 (let ((min-pri +max-pri+)
             9       (cur-idx le)
            10       (min-idx +max-len+))
            11  (count -1 *pri* :key #'(lambda (x)
            12                          (when (> min-pri x)
            13                           (setf min-pri x)
            14                           (setf min-idx cur-idx))
            15                          (incf cur-idx))
            16                  :start le
            17                  :end   ri)
            18  (cond
            19   ((< min-pri +max-pri+)
            20    (solve le min-idx)
            21    (solve (1+ min-idx) ri)
            22    (write-char (elt *str* min-idx)))
            23   ((= min-pri +max-pri+)
            24    (write-string (remove #\( (remove #\) (subseq *str* le ri))))))))
            25
            26
            27(let ((num (read))
            28      (tot-pri 0))
            29 (dotimes (i num)
            30  (setf *str* (remove #\Space (read-line)))
            31  (setf *pri* (make-array +max-len+ :fill-pointer 0))
            32  (setf tot-pri 0)
            33  (count #\? *str* :key #'(lambda (x)
            34                           (cond
            35                            ((alpha-char-p x)
            36                             (vector-push +max-pri+ *pri*))
            37                            ((char= x #\+)
            38                             (vector-push (+ tot-pri 1*pri*))
            39                            ((char= x #\-)
            40                             (vector-push (+ tot-pri 2*pri*))
            41                            ((char= x #\*)
            42                             (vector-push (+ tot-pri 3*pri*))
            43                            ((char= x #\/)
            44                             (vector-push (+ tot-pri 4*pri*))
            45                            ((char= x #\^)
            46                             (vector-push (+ tot-pri 5*pri*))
            47                            ((char= x #\()
            48                             (incf tot-pri 6)
            49                             (vector-push +max-pri+ *pri*))
            50                            ((char= x #\))
            51                             (decf tot-pri 6)
            52                             (vector-push +max-pri+ *pri*))
            53                            (t 
            54                             (vector-push +max-pri+ *pri*)))
            55                           #\.))
            56  (solve 0 (length *str*))
            57  (fresh-line)))
            58
            59
             

            posted on 2012-02-19 10:34 coreBugZJ 閱讀(328) 評論(0)  編輯 收藏 引用 所屬分類: ACM 、AlgorithmLisp

            91久久成人免费| 久久亚洲精品成人AV| 久久精品国产99国产精品澳门| 亚洲va久久久噜噜噜久久狠狠| 久久99国产综合精品免费| 九九99精品久久久久久| 亚洲欧美日韩精品久久| 伊人久久大香线蕉AV一区二区| 亚洲中文精品久久久久久不卡| 免费国产99久久久香蕉| 亚洲欧美成人综合久久久| 久久本道伊人久久| 久久人与动人物a级毛片| www亚洲欲色成人久久精品| 国产亚洲精久久久久久无码77777| 国产精品对白刺激久久久| 午夜视频久久久久一区| 国内精品久久久久影院网站| 潮喷大喷水系列无码久久精品| 久久久久久国产a免费观看不卡| 韩国三级大全久久网站| 久久综合九色综合网站| 色综合久久中文字幕综合网| 2021久久国自产拍精品| 久久91亚洲人成电影网站| 四虎影视久久久免费观看| 91精品国产91久久| 97久久精品无码一区二区| 一本色道久久综合狠狠躁| 一本色道久久综合狠狠躁篇| 国产精自产拍久久久久久蜜| 999久久久国产精品| 亚洲乱亚洲乱淫久久| 中文字幕亚洲综合久久2| 国产精品久久久久jk制服| 久久久久久亚洲AV无码专区| 久久66热人妻偷产精品9| 日产精品久久久久久久| 777午夜精品久久av蜜臀| 无码人妻久久一区二区三区免费丨| 久久亚洲sm情趣捆绑调教|