08.4.7 ~~~~~ 08.4.13（七） 

       吹牛，7怪523，斗地主，无尽的零食
       营地，篝火，烧烤，八卦，杀人
       喧嚣，击鼓传花（万恶之首），妞（邪恶的人）
       UNO，大奇山，金牛谭，无尽的照相，荡秋千，
       8.5，帐篷，钢管舞，悲剧。。。。。。
       照片晚点奉上:-)

       周六周日的行程令人难忘，只提关键字了，好累，更多的YC请见日月光华Software_06/06SS，那里更精彩。。。

       另外：

     本来是周三弄的，后来忘记了，补上。。。

     利用一个operator和operand放运算符和操作域，再判断一元与二元，左右括号对齐，运算符优先级，output控制考虑等等，算法不难，只是在LISP上判断语句和递归很不熟悉，导致BUG连连，贴下实现过程，回头再看：

(define operator (make-stack))
(define operand (make-stack))
(define temp 'a)
(define temp1 'a)
(define temp2 'a)

;The procedure converts an algebraic expressions presented in infix form
(define infix->prefix
  (lambda (exp)
    (cond
      ((and (pair? exp) (eq? (car exp) #\()) (begin (operator 'push! #\() (infix->prefix (cdr exp))))
      ((and (pair? exp) (eq? (car exp) #\)))
       (if (= (list-length exp) 1)
           (begin (set! temp (operand 'top)) (operand 'pop!)
                  (if (= (precedence (operator 'top)) 4)
                      ()
                      (begin (set! temp1 (operand 'top)) (operand 'pop!)))
                  (set! temp2 (operator 'top)) (operator 'pop!)
                  (if (< (operand 'stack-length) 1)
                      (if (= (precedence temp2) 4)
                          (list temp2 temp)
                          (list temp2 temp1 temp))
                      (begin (if (<= (operator 'stack-length) 1)
                                 (list temp2 temp1 temp)
                                 (begin (if (= (precedence temp2) 4)
                                            (begin (operand 'push! (list temp2 temp)) (infix->prefix exp))
                                            (begin (operand 'push! (list temp2 temp1 temp))
                                                   (if (eqv? (operator 'top) #\()
                                                       (begin (operator 'pop!) (infix->prefix exp))
                                                       (infix->prefix exp)))))))))
           (begin (set! temp (operand 'top)) (operand 'pop!)
                  (if (<= (operator 'stack-length) 1)
                      ()
                      (begin (if (= (precedence (operator 'top)) 4)
                                 ()
                                 (begin (set! temp1 (operand 'top)) (operand 'pop!)))))
                  (set! temp2 (operator 'top))(operator 'pop!)
                  (if (= (precedence temp2) 4)
                      (operand 'push! (list temp2 temp))
                      (operand 'push! (list temp2 temp1 temp)))
                  (if (eqv? (operator 'top) #\()
                      (begin (operator 'pop!) (infix->prefix (cdr exp)))
                      (infix->prefix (cdr exp))))))
      ((and (pair? exp) (or (eq? (car exp) '+) (eq? (car exp) '*)(eq? (car exp) '-)(eq? (car exp) '/)(eq? (car exp) '^)))
       (if (> (precedence (car exp)) (precedence (operator 'top)))
           (begin (operator 'push! (car exp)) (infix->prefix (cdr exp)))
           (begin (set! temp (operand 'top))(operand 'pop!)
                  (if (= (precedence (operator 'top)) 4)
                      ()
                      (begin (set! temp1 (operand 'top))(operand 'pop!)))
                  (set! temp2 (operator 'top))(operator 'pop!)
                  (operator 'push! (car exp))
                  (if (= (precedence temp2) 4)
                      (begin (operand 'push! (list temp2 temp)) (infix->prefix (cdr exp)))
                      (begin (operand 'push! (list temp2 temp1 temp)) (infix->prefix (cdr exp)))))))
      ((and (pair? exp) (or (eq? (car exp) 'sin) (eq? (car exp) 'cos)
                            (eq? (car exp) 'tan)(eq? (car exp) 'sqrt)(eq? (car exp) 'exp)(eq? (car exp) 'log)))
       (if (> (precedence (car exp)) (precedence (operator 'top)))
           (begin (operator 'push! (car exp)) (infix->prefix (cdr exp)))
           (begin (set! temp (operand 'top))(operand 'pop!)
                  (set! temp2 (operator 'top))(operator 'pop!)
                  (operator 'push! (car exp))
                  (operand 'push! (list temp2 temp1)) (infix->prefix (cdr exp)))))
      (else (begin (operand 'push! (car exp)) (infix->prefix (cdr exp)))))))

测试：;Test Infix->Prefix
      (infix->prefix '(#\( x + y #\)))
      (infix->prefix '(#\( x - y + z #\)))
      (infix->prefix '(#\( x * y / z #\)))
      (infix->prefix '(#\( x * y + z #\)))
      (infix->prefix '(#\( x * y ^ z #\)))
      (infix->prefix '(#\( x * #\( y + z #\) * m #\)))
      (infix->prefix '(#\( 3 ^ x + 3 * #\( x / y + 2 #\) #\)))
      (infix->prefix '(#\( sin #\( x + y #\) #\)))
      (infix->prefix '(#\( x * y + sin #\( x + y #\) #\)))
      (infix->prefix '(#\( x * y + cos #\( x + y * z #\) #\)))
      (infix->prefix '(#\( x + 3 * sin #\( x + y + 2 #\)))
      (infix->prefix '(#\( x + tan #\( sin #\( x - y #\) #\) #\)))
      (infix->prefix '(#\( x + cos #\( tan #\( sin #\( x - y #\) #\) #\)#\)))
      (infix->prefix '(#\( sqrt #\( b - a #\) ^ sin #\( x - y  #\) + tan #\( cos #\( x * #\( z + e #\) * y #\) #\) / log #\( m + n #\) #\)))

结果：(+ x y)
(+ (- x y) z)
(/ (* x y) z)
(+ (* x y) z)
(* x (^ y z))
(* (* x (+ y z)) m)
(+ (^ 3 x) (* 3 (+ (/ x y) 2)))
(sin (+ x y))
(+ (* x y) (sin (+ x y)))
(+ (* x y) (cos (+ x (* y z))))
(+ x (* 3 (sin (+ (+ x y) 2))))
(+ x (tan (sin (- x y))))
(+ x (cos (tan (sin (- x y)))))
(^ (sqrt (- b a)) (+ (sin (- x y)) (/ (tan (cos (* (* x (+ z e)) y))) (log (+ m n)))))

       感觉很紊乱，不管怎样，目前不想改了，手动DEBUG很麻烦，我不是个仔细的人。。。

      最后，在没有晨跑的下周，事情变的一塌糊涂起来，某某的事情，阳阳的事情，N个deadline,N门考试，desperate for the perfect but extravagent results。。。

08.3.10 ~~~~~ 08.3.16（三）

           尽可能短，本周飞速度过，没有任何挣扎，在看到计划的同时就开始不断地填空，关键词如下：（懒有时是种奢侈，恩）

       FP,DM，Software_06/06SS, 爱尔兰周，ICS LAB4, 伊苏BOSS 8，六级，锦江，Advertisement,张江镇桃花源，大拇指广场，zwXiao,爱尔兰游行，三叶草，大高帽，踢踏舞，海洋，2号线。。。。。。

        P.S. 球球说我有潜质,怒赞。。。

                 明天开始晨跑，燃烧生命。。。

                 下周还是追求效率的填空，连选择题也没有。。。

               

08.3.3 ~~~~~ 08.3.9（二）

       本周没有什么活动，再加上FP也没有开课，有很多可以支配的自由时间，问球球借了本O'Reilly的C，动物系列的就是赞，感觉写的比那个C Programming Language要易于学习很多，现在虚拟机装好了，下周在LINUX下操作下的吧，实在不喜欢的MSDEV。。。
       周三回本部的英语课，听说老师给分着实不好，但是上过之后实在不愿意退，如“火箭炮”般的速率以及柔和的发音质感大赞，毕竟是能让SL都认可的老师（比如ZHYM。。。之类的）。前些天6级出来了的，不知道大家都情况如何，昨天小熊猫想过来鄙视结果么。。。毕竟朋友的670+是蛮疯狂的；反正我6月去考，bless~~。。。
       差点忘了最重要的，毕竟标题不是白起的，在休息之余，下载了期待已久的FALCOM力作，伊苏的起源中文破解版，爽快感还行，主要是几个BOSS做的太赞了的，我的小lolly经常被推倒，战斗音乐也很喜欢，再加上nightmare的challenge，有盼头，目前进度50%，抽空OVER掉了的，伊苏到底代表着什么呢？打完后才知道。。。再赞下FALCOM,不知道空之轨迹TC何时能到来，期待中。。。
       OK。流水账报完，阳光去了的。。。下周FP开课，DM换成ICS，LAB4 Pipelined Processor的一个东西，周二的爱尔兰周活动，周六的游行（看看同学的踢踏。。。），看来是个相当忙碌的一周啊   // In

       P.S. Software_06快开版了的，bless~~

      本周推荐: FALCOM 伊苏的起源中文破解版 选择女主角尤妮卡 难度Nightmare
                       O'Reilly C语言核心技术

08.2.22 ~~~~~ 08.3.2（一）

       开学第一周，不算冷，课也不多，自习为主。假期过后的生 活总是令人充满着期待，在象牙塔的日子不多了的，要多多修炼 ，可不想去卖盗版光碟。每天的黑暗料理还是少不了，一天4顿 的生活非常满足了。。。

       电脑里塞满了资源，动画片从《最终流放》开始，游戏本想 是风6，无奈DT可恶，被我ONE KEY了的。囧。。。。。。
       周三回本部的英语课为难小龙来PT了的，老师人不错，可惜 一上来就test，算了。郁闷的是DM，李戈并没有展现NB的数学功 底，至少是在课堂上，这个学期有的忙了，编程方面东看看西看 看不亦乐乎。和YC的斗嘴仍然是人们茶余饭后消遣的主要活动。
        8过最兴奋的莫过于周五的UNO之夜了，莫误会，不是1024的 那个联合国，是一种娱乐性极强的牌，适合多人对战，那一天， TJ的同志们全部被“歼灭”了，这个是要强烈赞的，熊猫，小雅 ，LYT先后崩溃，期待下次的再战，整人真的很有意思，thanks 卡卡和工兵带来的游戏！

       差不多要回学校了的，不知道断网的情况有否改善，听说以 厕所为分界线，orz...继续推广cat mario，龙哥和阿房玩的好 HIGH啊。新的一周要来了，会有什么冒险等着呢？By all means... 

本周推荐：  UNO牌,相关规则如下：
                    http://www.xici.net/b813025/d57816573.htm
                    以及趣味小游戏cat mario:直接联系我。。。

黑名单：DM第一课 & 盗版风6光盘

        还有几天就要回学校了的，做好万全的准备随时出发，期待中的寒假并不像我想的那样令人振奋，算了，前面才是最为重要的。

       貌似下个学期的学分很少，可能蛮闲，这个可是不大愿意发生的事情，否则闲着发呆无聊岂不是少了很多乐趣？下个学期尝试着学点新鲜的东西吧，开拓点也好。最近的动画片也看的不多啊，这个比较麻烦了的，缺乏想象力和幻想是人生的大忌额，下个学期看看FTP上有什么新货的，GAME的话资源还是蛮丰富的，我的“江湖元老”也可以实现的吧，:-)，想想就亢奋，无论怎样，开心就好。

       不晓得张江的气温如何？总之在已经适应了的现在，做任何事情阻力都应该小了点吧，关于晨跑方面还是得赶快干掉，这个也挺棘手的，怨念额。。。马上要元宵了的，看着我的夏娜，很让人怀念和憧憬啊:-)

                                   Be savage;
                        Go hungry and cold like the wolf...

     今天重装了下系统，整理了下所有资料，弄到现在有点烦，再加上刚通掉逆转裁判3（游戏感觉还不错），有点头晕。整理过程中，看了过去种种，明白了自己有多么的无力与幼稚，心情不佳，知道新年伊始出现这种低落的基调是很愚蠢的，不过就是有点提不起精神，于是在网上乱逛下歌，就在刚才听到首ココロの迹，物怪Mokke的OP，很有冲击力，很有朝气；巧合的是在下柯南的时候所来到的页面背景音乐也是这首歌，真的很不错，推荐。。。喜欢这种刚柔并济的歌曲，更喜欢这样温柔而赋于人动力的神韵。。。

 

记忆の空に响いてく言叶                                      回忆的天空中 隐约回响的话语
时间の中さ迷いながらそっとそっと唱う                       是迷失时光中 我在轻声的歌唱
谁を护るの？何を求めるの？                                 想要守护什么？想要寻求什么？
见えないもの？大切なもの？                                 是无形的羁绊？是珍贵的感情？     

舞い散る飘花びらのように                                    仿佛在风中飘零的花瓣

めぐりめぐりめぐり逢う明日も                                  即使是生命中偶然邂逅的明天
私が托した长い长い梦の旅…                                也要踏上寄托着梦想的漫长旅途...
今宵も愿うの 强くなれココロ                                  今夜依旧祈祷 愿心能更加坚强
いつかは二人で歩けますように…                            愿我总有一天能与你并肩漫步
寄せては返した気まぐれな未来…                            未来忽远忽近 是那样变幻莫测
この路この场所 そして私はここにいるよ                     尽管如此 此刻我要在这条路上
足迹残して…                                                  留下我的足迹。。。

 

去年最后阶段，雪很大，很怕，怕自己走过的路，怕自己所付出的努力，所留下的足迹会被无情的雪所覆盖。。。

不过一切似乎是我多虑了的样子

即使足迹全被吞噬也没关系

因为

今年的话，再留下更多更坚实的脚印就可以了。。。

 

P.S.29号的话人已经基本叫齐了的，愿新学期加油的。。。到时好好享受我华丽而绚烂的BG吧！呵呵(*^__^*)