• <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+^*
             
             
            中綴轉(zhuǎn)后綴,用遞歸解決。
            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 閱讀(330) 評(píng)論(0)  編輯 收藏 引用 所屬分類(lèi): ACMAlgorithmLisp

            久久久久久亚洲精品无码| 国产精品视频久久久| 亚洲天堂久久精品| 久久影院久久香蕉国产线看观看| 久久无码专区国产精品发布| 久久精品国产亚洲网站| 日韩人妻无码一区二区三区久久99 | 精品久久久久中文字幕一区| 青青草原精品99久久精品66| 国产精品久久久久久久午夜片| 精品久久久久久中文字幕大豆网| 久久国产亚洲精品无码| 18禁黄久久久AAA片| 国产精品一区二区久久国产| 久久久久久久波多野结衣高潮| 久久久久久久久无码精品亚洲日韩 | www.久久热.com| 久久无码国产| 国产成人久久777777| 久久人人爽人人爽人人片AV不 | 久久久www免费人成精品| 亚洲国产精品久久久久久| 一本一本久久a久久综合精品蜜桃| 久久国产精品免费一区| 久久人爽人人爽人人片AV| 久久99热这里只频精品6| 国产精品永久久久久久久久久| 婷婷五月深深久久精品| 久久综合88熟人妻| 欧美成人免费观看久久| 免费精品国产日韩热久久| 久久久噜噜噜久久| 国产三级观看久久| 狠狠精品干练久久久无码中文字幕| 九九久久自然熟的香蕉图片| 无遮挡粉嫩小泬久久久久久久 | 午夜久久久久久禁播电影| 狠狠色婷婷久久综合频道日韩| 少妇被又大又粗又爽毛片久久黑人 | 久久久中文字幕| 久久99精品免费一区二区|