Yet Another Programmer

題目有點人身攻擊的味道，攻擊的對象是偉大的中國政府——的一個部門，廣電總局。新浪的報道：“據《廣電總局關于進一步規范電視動畫片播出管理的通知》，自2006年9月1日起，全國各級電視臺所有頻道在每天17時—20時之間，均不得播出境外動畫片和介紹境外動畫片的資訊節目或展示境外動畫片的欄目。”

廣電總局一向不甘寂寞，喜好頒布各種沒頭腦的禁令，比如三月份針對超女的禁令，2月份不得報道明星私生活的禁令。如果這些都還算是有點目的性，比如第一條是出于某種陰暗心理，第二條是自以為是的道德感，現在這個打擊外國動畫片（注：事實上就是日本動畫片）的禁令又是從何而來的？顯然，為了保護國產動畫片產業。看了真是令人嘆息，都什么年代了，改革開放20多年了，加入WTO都好幾年了，還采用這種封、堵、禁的老一套，搞這種國家級的地方保護主義。很像足協的限制外援上場時間（還是上場人數？不清楚），看來中國的官僚都是一個模子里整出來的，傻都傻得這么像。國產的動畫片爛成什么樣估計他們也心里有數，把觀眾當弱智的動畫片永遠都不會有觀眾。我從小到大，動畫片看了無數，掐指一算，曾經6點左右守在電視機前等候的，機器貓，一休和尚，貓和老鼠，天空戰記，魔神壇斗士，魔神英雄壇，都是外國的，而且基本上都是日本動畫片，還剩一個是老美的，被人家文化侵略和平演變了十幾年。沒辦法，這是優勝劣汰，自然選擇，防是防不住的。可笑廣電總局，還有我們親愛的GFW的設置者們，還在自欺欺人。

再提醒他們一下，現在想看動畫片，可用不著打開電視。打開電腦是更好的選擇。我不知道現在的小孩選擇哪一種，但是動畫片的觀眾不只是小孩——而中國的動畫片制作者往往這么想，而且把假想的觀眾歪曲成那種什么都不懂，審美觀念和他們自己一樣差的孩子——我都20歲了，也算個成年人了，不光看日本動畫片，還順帶看日本漫畫，而且還相當喜歡，關心漫畫的下一次更新在什么時候。飽經滄桑的廣電總局的大叔大伯們，你們能理解嗎？這就是代溝。

再附一條好玩的：
8月10日，防止網上“惡搞”成風專家座談會召開了，各路專家云集討論網絡的“文明發展”。其中很多專家表示對于現在青少年使用網絡的方式“憂心忡忡”，并表示將盡力“扭轉不正之風”。

我已經懶得再評論了。重復我的結論：這就是代溝。

鏈接一個：廣電總局，挺忙的

中午很猶豫要不要看男籃的比賽，因為我覺得輸是肯定要輸得，咱們的實力明擺著矮了斯洛文尼亞一截。但最后還是忍不住看了。事實證明，這個決定是正確的，這場比賽充滿了所有戲劇性的因素：落后，追平，僵持，最后時刻的絕殺，奇跡終于出現。全場窩囊無比的王仕鵬和朱芳雨瞬間牛逼，斯洛文尼亞隊傻了，呆了，目瞪口呆，瞠目結舌。
客觀地說，咱們的水平還是比斯隊差了不少，從戰術意識和配合到傳球投籃這樣的細節，全方位落后。最明顯的就是籃板，上半場輸得一塌糊涂，下半場有所起色，但表現仍然很差。今天只有兩樣東西沒落后，一是心氣，或者說斗志，二是運氣，老天眷顧。在看到王仕鵬最后的神奇一投我的第一個反應居然是黃健翔。這個時候應該有一個黃健翔在聲嘶力竭地狂吼：

三分球，三分球，王仕鵬立功了，王仕鵬立功了！不要給斯洛文尼亞人任何的機會。——偉大的中國籃球運動員！他繼承了中國籃球的光榮的傳統。胡衛東、孫軍，劉玉棟在這一刻靈魂附體！王仕鵬一個人他代表了中國籃球悠久的歷史和傳統，在這一刻他不是一個人在戰斗，他不是一個人！胡衛東生日快樂（呵呵，就 當他今天生日吧！）.......中國萬歲！

別的就不說了，這一場勝利固然偉大，但是咱們的實力還是很差。千萬不要像國足那樣，老拿一場兩場的勝利做遮羞布，而不去做最根本的工作——聯賽。

在上海考完AW，順便去了趟上海書城。對于我這樣清心寡欲（……）的人來說，整個上海也只有這個地方還值得一去。現在在南京念書，圖書方面基本是不缺了，不像中學時一個小城市，巴掌大的書店，令我等愛書人心寒。所以以前就常常跑到杭州上海搬一點書回來。今天跑到福州路書城，轉了一下午，感覺變化還是很大——不是書店，而是自己。上了大學之后，買的書就慢慢集中到計算機，數學和物理上面，對人文類的書不是太感冒了，或者說有點麻木了。這是不是說明我人性正在被現代的科學文明所扭曲？扯遠了。

這邊要說科學技術類的書，還真得不算很豐富，感覺上不如南京長三角。不過也沒辦法，畢竟大多數讀者對這一類書需求不多。最后還是象征性地買了幾本

Effective C++ 3rd Edition（和第二版相比變化很大，但考慮到C++0x將要出爐，可能過兩年又要有4th Edition了。計算機圖書就是這樣，簡直是個無底洞，誰叫這一行變化這么快呢）

Introduction to Quantum Mechanics（叫這個書名的書很多，不過Griffiths的這本可能是最好的。我倒是非常希望能買到Cohen-Tannoudji的兩卷Quantum Mechanics，號稱最強的量力教材，雖然有電子版但在電腦上看量力書實在屬于自虐行為）

還有一本Klein寫的關于幾何作圖三大問題的書，薄薄一本，等到將來老年癡呆了可以用來練練腦子……

明天出發去上海，22號回。考試安排在21號上午11點。雖然信心有些飄忽，但到了這個時候也沒有退路了。現在寄希望于人品，讓我碰一個高頻吧。
今晚中國男籃15分慘敗意大利，再次遭遇黑色5分鐘。歐洲球隊拿這一招治我們屢試不爽，連著被人扔進N個三分球，最后意大利三分命中率居然有5成，基本上可以認為姚明是在1挑5，外線就是四個字，形同虛設。怎么就這么差呢？真是丟臉。輸了也就算了，輸得這么難看，這么窩囊，快趕上國足了……
看過比賽的人都不能不對尤納斯的換人產生疑問！我沒看全場，但關鍵的幾次換人都看到了，很奇怪的把狀態很好的易健聯換下。最不能容忍的是SB鳥人朱芳雨！雅典時表現就及其拙劣，今天更是無邊猥瑣，要多差有多差。這種人居然還放在場上這么長時間，尤納斯的用兵有問題。
姚明也夠郁悶，每次被國家隊征招打得都這么憋氣，今次還是腳傷未愈，也不知道對下賽季打NBA有沒有什么影響，真是為了國家犧牲了個人利益。他打得很努力，但一幫隊友都渾渾噩噩，除了少數幾個像小易還知道自己在干啥，能給姚明幫上點忙，剩下的真是，別幫倒忙都不錯了。王治郅在這種時候居然受傷……總之這回是沒戲了，也就塞內加爾這非洲兄弟可以拿來祭旗，剩下的咱都別指望，輸得別太難看就是勝利。

現在每天抽一個小時看看Haskell作為調節。有個哥們將考試推到明年六月了。據說今天考的都是超高頻題（樣本數量為3，太少……）。我那不堅定的決心在動搖。用福克納的話：“他們在苦熬”。這叫裝逼。

用Haskell寫了兩個排序算法，快速排序和合并排序。都很短，沒幾行程序，雖然效率肯定是不敢恭維的，但能用來滿足我們那自欺欺人的美感，言簡意賅不是很高的境界么？不管是寫文章還是寫程序都差不多。但同時要清楚，要可讀性。說了這么多還是看看成果吧：

module Sort where

 -- Quick Sort Algorithm
quicksort [] = []
quicksort (x:xs) =
    quicksort [y | y <- xs,y <= x]
    ++ [x] ++
    quicksort [y | y <- xs,y > x]

-- Merge two ordered sequences
merge' [] [] = []
merge' lst [] = lst
merge' [] lst = lst
merge' (x1:xs1) (x2:xs2) =
    if x1 < x2
        then x1:(merge' xs1 (x2:xs2))
    else x2:(merge' (x1:xs1) xs2)

-- Merge Sort Algorithm
mergesort [] = []
mergesort (x:[]) = [x]
mergesort lst =
    let parts = splitAt (div (length lst) 2) lst
    in merge' (mergesort (fst parts))
              (mergesort (snd parts))

其實只利用了遞歸和Haskell強大的列表處理功能。這也不是Haskell的專利，我相信Python或Ruby或Lisp也完全能做到。

昨天用Issue提綱自虐了一個上午，中午時有些無聊將硬盤上一本電子版的（也就是盜版的？）Doom啟世錄翻出來看。哪知一發不可收拾，瘋狂的看了2個小時，將兩個John的故事看完了(毫無疑問這兩個John是主角），雖然他們的故事遠未結束。Carmark被描寫成一個對技術懷有一種近乎宗教狂熱般追求的程序員，除了引擎不關心游戲的任何其他方面，為人處事則幾乎一塌糊涂，很多方面已經不像正常人。最近看了一段Carmark演講的錄像，講話就像打機關槍，抑揚頓挫或者節奏變化是沒有的。這可能是做技術做到極致的一種副作用。Carmark另外值得稱道的一點就是他的黑客精神。至于Romero，首先也是個程序員，但是后來越來越變成一個超級玩家、明星，當然最主要是游戲設計師。才華亂竄，但多少有一點虛榮，自大。兩個人性格互補，id的成功就源自于此；互補其實也就是沖突，最終導致了Romero的離開，id也開始走下坡路，Doom3的引擎雖然無比強大，但游戲性飽受批評。Romemo自創事業后也沒少挨罵。這是一個legend，一個傳奇故事，情節引人入勝，跌宕起伏，結局令人捉摸不透。
從80年代開始，游戲的發展史幾乎就是電腦的發展史：從Apple到PC，從DOS到Windows，從16色的VGA到3D圖形加速卡。當年Carmark在PC上實現了如今司空見慣的平滑滾動就足以轟動世界，到后來真正Interactive的3D虛擬環境在Quake上誕生……其間沒有幾年的時間。這段歷史會讓所有熱愛技術的人熱血沸騰。
書里對兩個John和他們的伙伴們的描寫也相當符合人們對黑客，或者說桀驁不馴的技術天才們的想象：長發（Carmark是例外），T-Shirt(通常印有一些詭異圖案或者文字，像Romero就在Doom一炮沖天之后在T-shirt后面寫了"Wrote it",并給他老媽寄了件印有"My son wrote it"的T-shirt……），喝可樂，牛仔褲（上面有幾個洞作為點綴），聽搖滾（通常是重金屬）……偷偷對照了一下，發現自己一條都不符合，雖然搖滾我是愛聽得，但也不排斥流行，總之什么都行。我頭腦里根深蒂固的傳統中庸思想……
順便想到，誰要能用Carmark編程的勁頭搞GRE考試，1600+6是沒有問題的。但GRE，或者所有考試都不能帶給人編程那樣挑戰智力的快感。簡直是廢話！
由于那本書作成了黑色背景加綠色文字，看起來很有id游戲的風格，我眼睛盯著屏幕看了2個小時，然后再打開word看，發現白底黑字的字上都有些泛紅。然后再打開我黑底白字的Vim，看到的是黑底紅字……立刻去閉目養神達1個小時之久，終于恢復了正常。

被GRE作文弄得快要心理變態，嚴重的不自信。特此用Haskell寫一個小程序，主題還是永恒的求素數

module Prime where
prime' [] = []
prime' (x:xs) =
    x:(prime' (filter (\y -> (mod y x)/=0) xs))
prime n =
    prime' [2.. n]

呵呵，相當的簡潔明了，有點functional的味道了。說起來這個程序是頗能體現“篩法”的，畢竟filter就是一個篩子。搞了半天，好像都在自夸，不知道有沒有更好的寫法。

剛剛從北京新東方回來，聽東方的老師說了無數遍的“從絕望中尋找希望”。我現在有點后悔把機考定的這么早，還有不到兩個星期就要上戰場了，而我還在拼命看提綱，看范文……壓抑，不能去想，一想就慢慢進入一種叫做絕望的狀態，就好像所有孤立系統都會熱寂一樣。雖然有些言過其實，但也相差不遠。

在此發泄，并自勉。

代碼如下

sub is_prime {
    my ($number) = @_;
    return (1 x $number) !~ m/\A (?: 1? | (11+?)(?> \1+)) \Z/xms;
}

是不是有點匪夷所思？堪稱Perl中的混亂代碼(Obfuscated Code)。所以正則表達式這個玩意，用得好了不說，巨強大無比，可是晦澀起來也不輸于機器碼。我現在對Perl了解不多，上面這行正則表達式就讓我郁悶了很久，剛看到就蒙了：?:和?>是什么東西？趕緊翻出Programming Perl看，原來是Perl的Extented Regular Expression……惡補了一陣之后回頭來琢磨，終于大致明白其中的道理。

原理其實很簡單，就是最原始的方法：如果要決定正整數N是不是素數，就拿小于N的正整數(從2開始)挨個去除，如果發現除盡則表明是合數。當然，0和1要特殊處理，他們兩個都不是素數，前面正則表達式中的1?就是為了這個目的。而(11+?)(?> \1+)就開始了循環檢驗的過程。這其中的過程很有意思，最好是拿Perl的re模塊來debug一下，只要在文件開頭加上use re"debug"就成了，執行時會詳細的輸出整個匹配的過程。我們現在就來跟蹤一下，在匹配時到底發生了什么好玩的事情。

(1 x $number)創建了一個長度為$number，全部由'1'組成的串。首先，(11+?)可以匹配長度不小于2的全由'1'組成的字符串。假如我們拿"1111"去匹配，那么首先(11+?)會匹配整個串，并將這部分匹配到的內容保存在\1中。然后往下走，這時第二部分的要求不能滿足了——(?> \1+)。暫且不管?>是什么意思，這個表達式的要求就是前面匹配到的部分重復出現一次以上(看到這里可能已經有人明白了，這不就是整除么？變態整除！)，但是目前的匹配不滿足要求：整個串都匹配光了，只剩下一個\Z了。所以我們唯物主義的正則表達式引擎會backtracing(回溯)，往回退一步，讓(11+?)只匹配"111"，但這樣還是不行，只好再往回退，這時你發現，\1中的內容是"11"，剩下的部分也是"11"，匹配成功了。其實這只是4=2*2的另一種說法。注意到函數中的匹配運算符是!~，整個函數返回0。如果一直回退到最少("11")還是匹配不了，說明$number是一個素數。

說到這里，作者的巧思確實值得佩服，雖然看穿了會覺得不過如此。然后還有兩個問題沒有解決，就是?>和?:到底是干什么吃的？?>的意思是No backtracing,?:則是Cluster but no grouping。?>可以不要，不影響結果(可能對效率有些影響，但相信沒有人會拿這種辦法去判定素性的)，但?:就不可缺少了。

print "Hello,World\n";