Yet Another Programmer

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

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

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

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

我已經(jīng)懶得再評論了。重復(fù)我的結(jié)論：這就是代溝。

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

中午很猶豫要不要看男籃的比賽，因為我覺得輸是肯定要輸?shù)茫蹅兊膶嵙γ鲾[著矮了斯洛文尼亞一截。但最后還是忍不住看了。事實證明，這個決定是正確的，這場比賽充滿了所有戲劇性的因素：落后，追平，僵持，最后時刻的絕殺，奇跡終于出現(xiàn)。全場窩囊無比的王仕鵬和朱芳雨瞬間牛逼，斯洛文尼亞隊傻了，呆了，目瞪口呆，瞠目結(jié)舌。
客觀地說，咱們的水平還是比斯隊差了不少，從戰(zhàn)術(shù)意識和配合到傳球投籃這樣的細(xì)節(jié)，全方位落后。最明顯的就是籃板，上半場輸?shù)靡凰浚掳雸鲇兴鹕憩F(xiàn)仍然很差。今天只有兩樣?xùn)|西沒落后，一是心氣，或者說斗志，二是運氣，老天眷顧。在看到王仕鵬最后的神奇一投我的第一個反應(yīng)居然是黃健翔。這個時候應(yīng)該有一個黃健翔在聲嘶力竭地狂吼：

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

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

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

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

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

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

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

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

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

被GRE作文弄得快要心理變態(tài)，嚴(yán)重的不自信。特此用Haskell寫一個小程序，主題還是永恒的求素數(shù)

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

呵呵，相當(dāng)?shù)暮啙嵜髁耍悬cfunctional的味道了。說起來這個程序是頗能體現(xiàn)“篩法”的，畢竟filter就是一個篩子。搞了半天，好像都在自夸，不知道有沒有更好的寫法。

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

在此發(fā)泄，并自勉。

代碼如下

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

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

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

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

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

print "Hello,World\n";