桌上遊戲的小小心情

[ Minecraft ] 紅石電路 - 基本配件介紹

2012-03-06T23:26:00.001+08:00

有聽幾個朋友說不懂紅石電路，
所以稍微寫一點簡單的教學文。

首先要了解紅石電路的基本配件共五種，
分別為各式開關、紅石火把、土、紅石及紅石中繼器。

首先談開關跟紅石火把。

在紅石電路中，
只有兩種狀態，
開（後面用數字表示為 1）跟關（後面用數字表示為 0）。

把開關按下去，定為 1，否則為 0。

左邊是 0，右邊是 1（圖 1）

紅石火把定為 1，被充能則定為 0。

左邊的火把是 1，右邊火把是 0（圖 2）

當任何裝置接收到 1 時，
就會被啟動（例如門被打開）。

土可以當成一種類似記憶體或硬碟的東西，
可以用來儲存狀態。

例如圖 1 中接上拉桿的土，
會儲存開關的狀態，
然後往其它方向傳出去。

紅石丟地上會變成紅石線，
就像我們平常用的電線，
用來將訊號傳出去。

紅石中繼器有兩種功能，
一種是延長訊號的傳導距離，
從發出 1 這個數字的裝置往外算 15 格紅石線，
是電傳導的有效範圍，
從第 16 格開始，
都會被當成 0 而不是 1。

紅石中繼器使電線可以往外拉 15 格（圖 3）

與圖 3 對照用（圖 4）

如果在第 16 格裝上紅石中繼器，
則電線可以再往外延長 15 格。

第二種用法是延遲訊號傳遞時間，
可以達到定時或其它的功能。

紅石電路中，
大致上會用到這五種裝置，
至於活塞，
目前不在討論範圍中。

最後放上一張錯誤接法。

錯誤示範，用來燒壞火把用的接法（圖 5）

[ C ] 如何用 Cygwin GCC4 編譯出可獨立執行程式

2011-12-10T13:45:00.001+08:00

在 Cygwin 中編譯出來的程式，只能在 Cygwin 中執行。

為了獨立執行，
在 gcc 3.x 中有 -mno-cygwin 選項。

但現在的 gcc 4.x 沒有 -mno-cygwin 選項，
似乎除了 mingw，沒有其它方法可以編出獨立執行檔了？

實際上，
Cygwin 的核心是用 windows API 實做出的 cygwin.dll（POSIX 相容），
所以用 Cygwin gcc 編譯的程式依賴於 cygwin.dll，
反過來說，
只要將 cygwin.dll 複製到想要獨立執行的程式目錄，
即可解決問題。

通常我們會寫 Makefile 來解決編譯指令的問題，
可以透過 make 來檢查是否有 cygwin1.dll 的存在，
假如沒有則將 /bin/cygwin1.dll 複製過去。

[ TRPG ] Console：Handheld 介紹

2011-12-03T10:13:00.001+08:00

接下來會介紹一些從 RPGnow 上發現的系統。
（正好做為設計自己系統前的工作）

附上下載連結
Console: Handheld

以 Console 為主題的系統，目前我知道兩套。
另外一套做的比較複雜，而且需要擲骰。
現在要談的這套，機制跟創角都很簡單，戰鬥判定不擲骰。
對於有趣與否，則要看人。

Console：Handheld （後稱 CH）的授權為 CC-BY-NC。
我自己不怎麼喜歡 NC 授權，但這系統的戰鬥機制，算是常見無骰機制，就正好拿來研究一下。

作者給大家的建議是「請自訂系統」。
在 CH 中，因為機制簡單，為了增加變化性，最好自行加入一些 house rule。
（例如地圖、新職業等等）

創角一開始先選擇角色分類。
（原文為 Classes，但實際上是種族的選擇，所以稱為分類而不是職業）
設計上很像 M74，不同分類會有不同的規則。
例如人類可以施展全部法術，也可以使用全部裝備。
但機器人就沒辦法使用其它裝備。

主要戰鬥機制是攻方的 ATT 扣掉防禦方的 DEF，剩下就是傷害........
（跟冒險王道的算法相同，只不過冒險王道要擲骰，而 CH 不用）

既然是 Console TRPG 的一種，顯然是有等級設計的。
CH 的最高等級是由玩家跟 GM 共同決定。

除了上面談到的自訂以外，這系統的另一個特色是攜帶方便。
一張 A4 雙面列印後，虛線裁剪，實線對折就可以完成一份 pocket 了。

至於這系統實不實用，我認為對於老手來說，大概不太實用。
但對於帶新手團來說，這很方便。

[ Corewar ] 針對 IMP 設計的反制程式 - 內文修改

2011-11-20T22:42:00.001+08:00

原理是預設所有非程式碼位置，
起始皆為

dat $ 0, $ 0

當發現一個疑似程式碼位置，
則對該區發動攻擊。

FIND 區塊，搜尋疑似程式碼區。
ATT 區塊，補上修正值，考慮自身程式碼執行順序所導致的誤差，必須補上修正值。（修正值經過測試）
BOMP 區塊，發射炮彈。
NUM 區塊，可以移除，為程式碼撰寫過程的歷史產物XD。

重點在 FIND 區塊的第 5、6 行程式碼，
當發現可疑位置就將位置傳送到 BOMP。

第 8、9 行待修改。

實戰上，不是百分之百能抓到 IMP，
一百場戰鬥中，不論哪邊做為挑戰者，
勝率都只能維持在 45% 左右。

至於是哪邊產生誤差，
就真的不太好找了........

 1 ;redcode-94
 2 ;name CMP_it_v5
 3 ;author Yu-lin Wu
 4 
 5 FIND: cmp.i    -1, -100
 6       mov.B    -1, BOMP
 7       sub.b    NUM,  FIND
 8       jmn      ATT,  BOMP
 9       jmp      FIND
10 ATT:  sub      #1,  1
11 BOMP: mov.i    NUM, 0
12       jmp      FIND
13 NUM   dat      #2, #1

[ R ] 第一篇 - R 統計語言簡介

2011-11-14T22:44:00.001+08:00

上禮拜看到學校有教 R 統的活動，
原本想報名，結果發現是老師 only 場。

雖然沒辦法參加，但 R 本身所提供的文件檔已經非常足夠了。

R 語言是用在統計上的程式語言，
也因此，官方所提供的教學文件，與一般的程式語言教學文件類似。

雖然說是一種程式語言，
但相較於其它語言，學習難度並不高，
只要理解一些基礎的概念，
可以很容易就上手。

R 有類似 Perl CPAN 的 CRAN 社群，
可以從裡面下載其它人開發的 R 程式來使用。
其中我感興趣的是針對生物資訊而開發的程式，
之後本系列會從統計與生物資訊的部分去介紹。

[ Py3k ] 用 Python 寫一個整數計算機 - 非 BNF 版

2011-11-13T20:59:00.001+08:00

前兩天試著自己寫一個計算機，
先試著用 RE 加上純手工寫，
接下來要試著用 BNF 的方式做。

 1 #!/usr/bin/python
 2 
 3 import re
 4 
 5 num = ""
 6 get_word = re.compile(r"[^0-9\+\-\*\/\s]+|[\+\-\*\/]{2,}|[\+\-\*\/]$")
 7 space    = re.compile(r"\s+")
 8 
 9 def dis_space(num):
10     num = space.split(num)
11     num = "".join(num)
12     return num
13 
14 def check(num):
15     if num == "exit":
16         return "結束程式\n"
17     elif get_word.search(num):
18         return "錯誤輸入\n"
19     return str(eval(num))
20 
21 while num != "結束程式\n":
22     num = input("請輸入計算式:\n")
23     num = check(dis_space(num))
24     print("\n" + num)

第 5 行不寫也可以，單純想要加上去。
第 6 行分析輸入的字串，如果有數字跟計算符號以外的符號，或計算符號連續出現兩次，或計算符號出現在最後，則通通為輸入錯誤。

第 7 行要搭配 dis_space 這個函數一起看。
第 9 到 12 行代表將字串的空白部分去掉，然後結合成新字串。

第 15 到 19 行用來檢查是否符合規則。
如果輸入為 exit 則傳回「結束程式」這個字串，
如果不符合第 6 行的分析，則傳回「錯誤輸入」這個字串，
非上述兩者則將輸入的字串當程式碼執行，並將結果轉換為字串回傳。

第 21 行用來判斷是否結束程式。
第 22 到 24 行輸入並分析結果，最後顯示分析結果。

[ TRPG ] 關於 TRPG 現有論文

2011-11-04T08:37:00.001+08:00

前天看到有人分享一篇 RPG 相關的論文，
今天稍微蒐集了一下相關資料，
把一些 TRPG 相關論文的資料放在網誌這邊。

有機會會逐一介紹，
放噗浪會不好找，
所以先放這邊。

資料一：Wiki 上已知的 TRPG 論文
資料二：一篇關於 Fantasy RPG 的地圖設計論文
資料三：發表在 JASSS，討論 RPG 與青少年學習的論文
資料四：Fantasy RPG 的相關研究論文

[ C ] 關於 Functional Programming 的 Partial Functions

2011-10-29T19:03:00.001+08:00

剛剛花了一些時間找一下，
找不到部份應用的原文。

（找到了）

簡單來說，
一個通用性的函數，可以預先給定部分參數，
用以產生另一個函數。

例如：

有一個函數叫做 add，用來將兩個參數相加，並回傳結果。
我們可以宣告另一個函數叫做 add3，代表將一個參數加三，並回傳結果。
而 add3 是利用 add 設計的，這樣的技巧就稱為 Partial Functions。

1 int add ( int a, int b) {
2     return a+b;
3 }
4 
5 int add3( int a) {
6     return add( 3, a);
7 }

這技巧的好處在於我們能 reuse 現有的程式碼。

以下我們看看另一個 resue 的方式。

 1 #include <stdio.h>
 2 
 3 int fab_cal (int a,int b, int c) {
 4     switch (a){
 5         case 0:
 6             return c;
 7         case 1:
 8             return b;
 9         default:
10             return fab_cal( (a-1), (b+c),b);
11     }
12 }
13 
14 int fab (int a) {
15     return fab_cal(a,1,0);
16 }
17 
18 int add (int a,int b) {
19     return fab_cal(2,a,b);
20 }
21 
22 int main (void) {
23     printf("fab: %d\n",fab(3));
24     printf("add: %d\n",add(3,4));
25 }

上面的程式中，fab_cal 是一個費波那契序列，
在使用尾遞迴時，有時會需要計算參數，
這不是一種好方法，計算參數往往導致遞迴式不容易理解。

為了解決計算參數的問題，我們可以透過部份應用的技巧來減少傳入參數的量，
fab 就是預設 fab_cal 的 b 與 c 分別為 1、0 的新函數，
只要傳入一個數值，就可以計算第 n 個數為多少。

我們知道費波那契的第 n （n > 2）個數為前兩個數字相加，
換句話說，我們可以利用 fab_cal 設計時的特性，
來設計出一個 add 函數。

透過這樣的技巧，我們可以重複使用原有函數，
來減少程式碼，並且隱藏具有計算參數的尾遞迴函數。

[ 電腦 ] 將遊戲程式轉成 html + javascript +css？（未完，回家繼續）

2011-09-27T08:15:00.001+08:00

很久之前，
阿獸提到將吉里吉里的遊戲程式碼編為 html5 + javascript + css，
然後用瀏覽器玩，
理論上絕對可行，
但有一個小問題，javascript 沒有辦法做檔案的寫入，必須靠宿主提供。

最近想把合作的遊戲用 html + javascript + css 來製作，
主要考慮點是我比較熟 web 製作，
同時想利用 web 來解決 GUI 問題，
我面臨到的問題也是相同的，
「玩家玩到一半不想玩，要存檔該怎麼解決？」

雖說 node.js 跟 Rhino 之類的 javascript 解釋器有提供 IO 功能，
但我並不熟這兩者在 IO 上的操作，
於是我採用另一種做法 - 「製作一個簡單的 webserver」。

首先，webserver 大多數是基於 TCP/IP 設計的文件分析器，
能寫 webserver 的語言，必須有 IO 功能，
透過類似 CGI 的機制提供 javascript-based 遊戲儲存功能。

[ BF ] BF 版的 print("give me the money")

2011-09-24T23:14:00.002+08:00

set ascii 100 to cell 1 2 3
++++++++++
[>++++++++++>++++++++++>++++++++++<<<-]

set cell 1 e
>+
set cell 2 m
>+++++++++
set cell 3 t
>++++++++++++++++
set cell 0 \s
<<<
++++++++
++++++++
++++++++
++++++++
print "give me the money"
g 103 1
>++.
i 105 1
++.
v 118 3
>>++.
e 101 1
<<----.
\s
<.
m 109 2
>>.
e 101 1
<.
\s
<.
t 116 3
>>>--.
h 104 1
<<+++.
e 101 1
---.
\s
<.
m 109 2
>>.
o 111 2
++.
n 110 2
-.
e 101 1
<.
y 121 3
>>+++++.

[ Hack VM ] 基於 stack 的程式語言

2011-09-24T23:12:00.000+08:00

最近想準備研究所考試，
重新看一次資料結構，
在寫過 haskell 跟 Lisp 以後，
比以前更容易理解了。

不過我可能會複習不完吧，
畢竟我也沒完整學過資料結構......

在看過資料結構後，
我總算搞懂 Hack VM 這個語言了。

與 brainfuck 一樣只能輸出 ascii code，
但不需要像 bf 一樣寫一大串符號才能設定好 ascii code。

剛剛有人用 Python 寫了 print("give me the money")，
心血來潮就用 bf 跟 Hack VM 各實做一次，
Hack VM 的程式碼比較短，
但我不知道該怎樣去寫它的程式碼註解.........

以下是程式碼

48*554**3+0^P2+0^P94++0^P98+-0^P1v0^P1v8+0^P8-0^P1v0^P1v35*+0^P34*-0^P3-0^P1v0^P1v8+0^P2+0^P1-0^P9-0^P45*+0^P

[ Perl ] 使用 Socket 寫出簡單無腦的 Webserver - (2) HTTP 協議

2011-09-04T12:36:00.001+08:00

HTTP 協議分為 Client 跟 Server 兩個部份，
Client 部份比較簡單，
主要是向 Server 發送「請求方式、目標檔案、協議方式」這三個部份。

Server 收到訊息後，當讀取到空白行，就代表 Client 已經傳完請求了，
接著 Server 可以根據分析結果回傳「協議版本、請求結果」等等的資訊。

HTTP 1.1 預設採用 keep-alive 的連線方式，
也就是資料傳完後，不會斷線，
這種情況下，
Server 必需計算傳送檔案的大小，
對於大型 Server 來說，
負荷也很重阿......

當然，Server 直接回傳 html 檔案回去，然後用斷線來代表檔案傳完也是一種方法。
（我自己一開始就是這樣做的XD，所謂的 HTTP 0.9、1.0 協議）

至於更詳細的資料，請參考 wiki。

因為只是要寫個簡單無腦的 WebServer，
所以不考慮效率等等的問題。

下篇是最後一篇，放出程式碼，
而且.....簡單無腦到要命的地步XDDDD

[ Perl ] 使用 Socket 寫出簡單無腦的 Webserver - (3) 實作

2011-09-04T12:36:00.000+08:00

首先是程式碼，因為跟 socket 那篇差不多，
所以只放有改變的部份。

   1 #!/usr/bin/perl -w
   2 
   3 use IO::Socket;
   4 
   5 $sock = new IO::Socket::INET ( LocalHost => 'localhost',
   6                           LocalPort => 8000,
   7                           Proto => 'tcp',
   8                           Listen => 1,
   9                           Reuse => 1);
  10 
  11 die "Socket could not be created. Reason: $!" unless $sock;
  12 
  13 print "start\n";
  14 
  15 while ($new_sock = $sock->accept()) {
  16         if (defined ($buf = <$new_sock>) ) {
  17            $data = <<HERE;
  18 <html>
  19 <head>
  20 <title>是個測試</title>
  21 </head>
   22 <body>Hello 世界</br>
  23 </body>
  24 </html>
  25 HERE
  26            $len = length($data);
  27            print $buf;
  28            print $new_sock <<HERE;
  29 Http/1.1 200 OK
  30 Content-Length: $len
  31 Connection: close
  32
  33 $data
  34 HERE
  35 #          last if (not defined ($buf));
  36    }
  37    print "close\n";
  38    $new_sock->shutdown(1);
  39    $new_sock->close();
  40 }
  41
  42 print "stop\n";
  43
  44 close ($sock);
  45
  46 print "shutdown\n";

首先 18 到 24 行是一份 html 文件，
正常應該是開檔讀取，然後送出來，
但因為只是簡單的示範，所以就不考慮這些了。

26 行計算整份文件的大小，
與 30 行的 Content-Length 搭配，
可以告訴瀏覽器要收的文件多大，
當收到同樣大小的資料後，就停止接收。

28 行代表將表頭跟 html 資料一起送到 Client，
29 行就是 Server 用來告訴 Client 處理結果用的。

正常來說，用了 30 行的 Content-Length 就不必將 31 行的 Connection 設定為 close 了，
31 代表當斷開連線時就代表檔案傳完了，
但為了避免浪費，
一般都不使用 close，
而是採用 keep-alive 保持兩邊的連線。

32 行的空行是一定要的，
這是用來告訴 Client 「表頭已經結束了，下面開始是正文」用的。

其實只是改變 Socket 那篇中的輸出資料跟格式而已。
這樣就能完成一個最簡單無腦的 Web Server 了，
如果要繼續研究下去，就要考慮執行緒等等的痛苦問題了。

[ Perl ] 使用 Socket 寫出簡單無腦的 Webserver - (1) 起因

2011-09-04T00:41:00.000+08:00

上學期參加了一個遊戲開發的案子，
由有興趣的人組成，
為了解決開發遊戲時的圖形計算問題，

原本打算用 Pygame 或 Ren'py 來寫，
但實際用過後發現，
學習別人開發的工具也需要很大的成本，
如何能用我比較熟的 web 技術做圖形計算，
那就簡單多了。
（雖然也只是會一點點皮毛）

為了這問題，我開始摸索以往刻意避開的 socket。
在實際研究過後，發現 socket 依然遵循 unix 的世界觀 - 將所有東西視為檔案。
這點對於學習 socket 很有幫助，我喜歡這點。

為了設計一個 web-based 的遊戲程式，
考慮到散佈問題，
顯然需要一個 html + javascript 的解析引擎，
用來打包遊戲程式並發佈。

在考慮過 xulrunner 跟 webkit 之後，
我決定採用 xulrunner 當做 client，
主要是 xulrunner 能當做程式執行平台，
只要照著標準 web 開發方式去寫程式，
就能跨平台，不需要自己重編工具。

但是 xulrunner 也有缺點，
javascript 本身不含檔案與資料庫的讀寫方式，
必需另外實作其它技術來提供，
而它提供的方式就是 xpcom，
在稍微研究過 com 技術後，
我決定放棄 xpcom，
xpcom 技術太過依賴物件導向，
並不是我討厭物件導向技術，
我個人可是非常喜歡 javascript 風格的物件導向，
但除此之外的物件導向風格，
寫起來會讓我覺得綁手綁腳的，
同時這種強迫開發者使用特定風格開發程式的方式太不自由，
「我需要自由的空氣」。

於是我想到，
firefox 也是採用 xulrunner 開發出來的工具，
換句話說，只要能搞懂 Server/Client 與 http 協議，
理論上就能採用 socket 來繞過 xpcom 技術，
並且使用資料庫與檔案操作！

這麼做的好處在於，
任何能使用 socket 或其它方式進行網路操作的語言，
都能當成開發 xulrunner 資料庫的語言！
我們將不再受限於 xpcom！

好...我承認 web server 只是這一連串學習的副作用XD
但確實很棒。
下一篇將討論基礎的 http 協議。

[ Perl ] 經典找零錢考題 - 不完全的函數風格

2011-09-01T17:08:00.000+08:00

昨天想要練習 Lisp，
順便有沒有人打算替 Lisp 弄 Socket 標準的事情。

結果找到一篇鐵路局還那邊的程式概論考古題，
本來想用 Lisp 解，
結果卡在 read-line 後要怎樣分析字串。

找文件還看不懂，
只好先放棄用 Lisp 解，
先試試看用 Perl 解。

題目是說，輸入 1 到 999 間的一個數字，代表物品金額，假設顧客付了一張千元鈔票。
請換算要找顧客多少張百元鈔票，
多少五十元硬幣，
多少十元硬幣，
以及多少一元硬幣？


   1 #!/usr/bin/perl -w
   2
   3 my $input = "input";
   4 $input = check_money($input);
   5 my @output = change_money($input,0,0,0,0);
   6 print_result(@output);
   7
   8 #確認輸入金額
   9 sub check_money {
  10    my $input = shift;
  11    if ( $input =~ /^\d{1,3}$/) {
  12            return 1000-$input;
  13    } else {
  14            print "請輸入物品價格( 1 - 999 )： ";
  15            chomp ($input = <>);
  16            check_money($input);
  17    }
  18 }
  19
  20 #超過 1000 元
  21 sub change_money {
  22    my ($money,@number) = @_;
  23    if ( $money >= 100 ) {
  24            ($money,@number) = the_change($money,100,0,@number);
  25            return change_money($money,@number);
  26    } elsif ( $money >= 50 ) {
  27            ($money,@number) = the_change($money,50,1,@number);
  28            return change_money($money,@number);
  29    } elsif ( $money >= 10 ) {
  30            ($money,@number) = the_change($money,10,2,@number);
  31            return change_money($money,@number);
  32    } elsif ( $money >= 1 ) {
  33            ($money,@number) = the_change($money,1,3,@number);
  34            return change_money($money,@number);
  35    } else {
  36            return @number;
  37    }
  38 }
  39
  40 #使用金額來計算找零
  41 sub the_change {
  42    my ( $money , $minus , $where ,@number ) = @_;
  43    $money -= $minus;
  44    $number[$where] += 1;
  45    return ($money,@number);
  46 }
  47
  48 #輸出結果

  49 sub print_result {
  50    my $result = <<HERE;
  51
  52 共找您
  53 $_[0] 張百元卷，
  54 $_[1] 個五十元硬幣，
  55 $_[2] 個十元硬幣，
  56 $_[3] 個一元硬幣。
  57
  58 HERE
  59    print $result;
  60 }

這次採用函數風格來寫，還寫的不夠乾淨漂亮是真的。

3 到 6 行是程式主體。

一開始第 3 行先給定 input 的初始值，然後第 4 行傳給 check_money 這函數，
用來確定輸入的價格介於 1 到 999 之間，
只要不符合「開頭是一個數字，結尾也是一個數字，這組數字介於一到三位數之間」這個規則，通通都是錯誤的輸入。
假如符合，則回傳零錢的數值，假如不符合，則用遞迴的方式重新呼叫 check_money 這個函數再執行一次。

回傳後，第 4 行的 input 當做傳入值，
傳給第 21 行的 change_money 這個函數，
用來計算應該找多少零錢給對方，
第 5 行的 0,0,0,0 是用來計算該分別找多少零錢給顧客的，
這部份等晚上回來再修改。

change_money 這函數在 money 為 0 以前，會遞迴執行。
如果 money 不為 0，則執行 41 行的 the_change 這個函數來計算 money 以及找零錢的現況。
這是從以前 Haskell 的尾遞迴得到的經驗，
假如用尾遞迴，就很難避免 minus 這類的計算參數，
但是使用計算參數就能用尾遞迴完成 for 之類的迴圈功能。
當 change_money 執行完後，會回傳 @number 這個用來記錄該找多少零錢的陣列。

第 6 行把結果丟到 49 行的 print_result 函數，
這函數利用 HERE Document 直接輸出格式化的結果。

[ Perl ] 第一次嘗試 Socket

2011-08-27T21:41:00.001+08:00

以前沒試過跟網路相關的問題，
今天是第一次嘗試使用 Socket。

參考了 Perl 高等程式設計的範例做一個簡單的小嘗試。
（程式碼沒改很多）

首先是 server 端。

不管是 server 還是 client 都是利用 IO::Socket 這個模組進行連線。

第 5 行先宣告位置、Port、連線協定以及待連線人數。
因為只是測試，所以沒有加上 Reuse 這項，連線人數也限定只有 1 人。

第 10 行則先判定 $sock 有沒有成功建立，如果沒有就結束程式。
第 11 行代表如果有人連進來，則 accept 並給予一個檔案代碼 $new_sock。
第 12 行就是從 $new_sock 這個檔案代碼中讀取資料，並傳給 $buf 這個變數。
等同於 sysread ，不過用 <$new_sock> 比較像用 Perl 讀檔，所以我用這種做法。

第 13 行則是把 $new_sock 當成一個檔案代碼，並且把資料寫進去。

接下來是 Client 端。

Client 端一開始第 5 行先宣告要使用什麼協定連到那台機器的 Port 上。

第 9 行與 Server 端第 10 行相同用途。
第 12 行代表對檔案代碼 $sock 寫入資料。
第 13 行代表從 $sock 中讀取資料。
第 14、15 行代表把資料輸出到螢幕然後跳出 while 迴圈。

跳出迴圈後，會跳回 foreach 迴圈繼續接下來的工作直到完成。

完成後，Client 會關閉連線並結束程式，Server 端會持續等待。

使用方式為開啟兩個 terminal。
在第一個 terminal 執行 perl server.pl。
在第二個執行 Perl client.pl。

[ FF ] Firefox 上用來模擬 vim 的 extension - vimperator

2011-08-22T21:39:00.001+08:00

身為一名 vim 的愛好者，
純文字介面的瀏覽器還有一些問題，
至於圖形介面的瀏覽器，
叫我用滑鼠點來點去根本是要我的命，
這一切的問題都在 vimperator 出現後解決了！

稍微做個記錄，方便自己以後回來看。

vimperator 是一個讓 firefox 使用上就像使用 vim 一樣方便的 plugin。

利用 : 可以像 vim 一樣調用命令來完成工作。
在 vimperator 中也具有模式的概念。
大制上可以分為 normal 跟 insert 兩個模式。

normal 模式下，就像 vim 使用 hjkl 來做移動。
可以加上數字來控制移動的行數或字數。

例如：10j 等於向下移動十行。

與 vim 一樣使用 / 就可以進行字串搜尋。
還能使用 map 這個命令製作自己專用的命令。

這一切就像 vim 一樣方便，除了一個問題 - 連結。
幸好 vimperator 已經解決這個問題了。
在 normal 模式下按 f 或 F 然後輸入想要連進去的數字（或是先輸入文字去掉不想要的部份）。

至於書籤呢？
可以先用 bmark 網址 -keyword name。
以後只要用 open name 就可以打開想去的網站囉。

只要移動到可以輸入的地方，就會進入 insert mode。
使用 Esc 跳出（無法使用 Ctrl+c 跳出的樣子）

總之是個很有趣又方便的 plugin。

[ BF ] 用 brainfuck 計算兩個個位數的總和

2011-08-17T12:14:00.001+08:00

其實我不是很滿意 wiki 上的解，
所以就自己寫了一份，
目前可以正確計算跟顯示個位數的總和。
（修改過註解）

接下來是計算減法，
雖然這程式還有很多地方可以簡化。（思）

set ascii code 48 ( num 0 and end in cell 1 )
>++++++[<++++++++>-]
read two numbers ( cell 0 )
,>,<<
reset ascii code to num 1 to 9 ( cell 0 )
[->->-<<]
add two numbers to cell 2 ( cell 1 )
>[->+<]
set ascii code 48 to cell 1 ( cell 0 )
<++++++[>++++++++<-]
count 1
>>[-<+>
count 2
[-<+>
count 3
[-<+>
count 4
[-<+>
count 5
[-<+>
count 6
[-<+>
count 7
[-<+>
count 8
[-<+>
count 9
[-<+>
more than 10
[<--------.->-[<+>-]]
output num
]]]]]]]]]<.

[ BF ] brainfuck 介紹(1) - 只有八條指令的程式語言

2011-08-17T10:13:00.000+08:00

brainfuck 就像它的名稱一樣，
是一種用來讓人腦袋停機的程式語言，
只有八條指令，非常容易學習，
但要實際使用則非常困難。

如果有學過 assembly 或 C，
那要掌握這項語言就很容易，
因為 brainfuck 就像操作記憶體做運算一樣。

基本指令可以分成「移動」、「計數」、「迴圈」跟「讀寫」四類，
與一般程式語言相同。

Brainfuck 把指標稱為「Cell」，每個 Cell 都存放一個數字，
所有範例都用 ( Cell 位置，數字 ) 來代表目前的 Cell 位置與 Cell 存放的數字。
例如 (0,1) 代表目前在 Cell 0，數字為 1。

移動類：

> 向後移動 1 Cell。（x+1，y）
< 向前移動 1 Cell。（x-1，y）

example：

目前是 (0,0)，輸入 >>> 會改變為 (3,0)。

計數類：

+ 對目前 Cell 內的數字 +1。(x,y+1)
- 對目前 Cell 內的數字 -1。(x,y-1)

example：

(0,0) 輸入 +++ 則改為 (0,3)。

迴圈類：

[] 當目前 Cell 內的數字為 0 時，則跳到 ] 後面，否則跳到 [ 後面。

example：

假設一開始為 (0,0) 輸入 ++[-]，下面依序執行。

(0,0)
#++
(0,2)
#[
(0,2)，目前 Cell 內數字不為 0，跳到 [ 後面。
#-]
(0,1)，目前 Cell 內數字不為 0，跳到 [ 後面。
#[-]
(0,0)，目前 Cell 內數字為 0，則跳到 ] 後面繼續執行。

讀寫類：

, 讀取一個字元，並轉成 ascii code 放到目前 Cell 的數字中。
. 將目前 Cell 的數字用 acii code 轉成一個字元並輸出。

example：

(0,0)
#,
輸入 0，改為 (0,48)。
#.
用 ascii code 將 48 轉成 "0" 並輸出到螢幕上。

想要嘗試這個語言，可以去 SourceForge 或 Esolang 尋找直譯器。
網路上也有用 javascript 寫的直譯器，有些能轉成 C code，有些則有 debug。
我目前用的是這個，這包含了一個 debug，雖然速度不快，但它的 debug 非常容易使用。

[ 電腦 ] 利用 bash 計算目錄內有多少檔案

2011-08-02T08:17:00.000+08:00

因為懶得用 Perl 或 Python 去寫計算程式。
加上 bash 本身有很強的組合能力。
於是就用 bash 來解決問題，順便熟練 bash 的應用。

計算檔案量：「ls -al 想要觀察的目錄 | tail -n +4 | wc -l」

ls 是常用命令，就可以跳過不過談了。

tail 與 head 是剛好相反的命令，代表從檔案最後面取出固定行數。
預設為 10 行。
-n K 代表指定行數，直接加上數字 K，會從尾部倒數第 K 行開始取出檔案。
-n +K，如果將 K 改為 +K 則會從開頭第 K 行取出檔案到最後面。

wc 用來計算檔案內容，例如這邊用的行數，也可以計算 byte 或字數。
-l 代表計算行數。

Unix-Like 的世界將所有資料看成檔案，所以能用 | (pipe) 將檔案內容傳給下一個指令。

[ XULRunner ] XULRunner 介紹

2011-07-31T10:05:00.004+08:00

原本想用 webkit 做一個 web-based 的桌面程式引擎。

基本想法是用 html + css + javascript 去寫程式，然後用 webkit 跟 v8 做排版跟執行 javascript。

光靠 javascript 當然是不夠的，所以要用類似 mod_perl 的方式引用外部 lib 以達成 database 的操作。

（太久沒寫 Perl，昨天寫個小程式都花了不少時間，最近比較喜歡 Lisp 跟 Haskell）

稍微 google 了一下，發現 XULRunner（後面簡稱 runner）這個工具。

這是由 mozilla 基金會開發的執行環境，在 Linux、Mac、Windows 中都能使用。

下載完 runner 就能直接使用，不需要編譯。

（關於從 source code 編譯程式來用這件事，我還沒成功過 Orz|||）
既然有現成的工具，那我也不用自己做了！（yoooo）

runner 基本上可以看成一種虛擬機器，同時具有 .net 的跨語言開發能力（至少 idl 的部份XD）。

以操作介面來說。

除了可以用 XUL 做 GUI，也可以用 html5 + css 開發。

透過 javascript 來操作 DOM，進而達成 web-based 的桌面程式。
寫 GUI 就像寫網頁，可以減少學習時間。

為了彌補 javascript 的不足，mozilla 使用一種稱為 xpcom 的技術。

透過 xpcom 技術，我們可以用 javascript 在電腦中進行開檔關檔。

xpcom 的重點在於 idl，我們可以將 idl 看成 javascript 用的 lib。

簡單來說，就是用 idl 定義函數的介面，然後用其它語言實作這個函數。

兩個有趣的範例：xulexplorer 跟 sqlite-manager。

xulexplorer 是一個 wysiwyg 的 xul 編輯程式，可以產生 xul 給其它程式使用。

作者使用 java 進行開發。

sqlite-manager 就真的很有趣了。

是一個完全使用 xul + javascript 製作的 database 管理工具。

原本我還不太了解什麼是 xpcom，稍微看一下程式碼後，就大致了解了。

如果要介紹一種容易入門的 GUI 開發方式，我會選擇 XULRunner。

[ TRPG ] 關於跑團模型 - 測試版

2011-07-15T20:15:00.000+08:00

為什麼我們不能帶好 Risus？
為什麼 Fiasco 看起來不像 TRPG 的跑團方式也能視為一種 TRPG 系統？

在探討這幾個問題之前，我們要先討論「一個團的構成」。

傳統上，一個團主要由 GM 與 PC 組成。
如果從功能分析，可以很明確發現，GM 代表「結果決定」，PC 代表「行動決定」。

Fig 1：「行動決定」的傳統傳遞流程

Fig 2：「結果決定」的傳統傳遞流程

從上面兩張圖，可以很清楚發現，當玩家有 n 個人，玩家們每行動一次，則 GM 要處理 n 個行動。
因為訊息的處理完全交給 GM，所以 GM 具有極大的主導權。

至於 Fiasco 的處理方式，可以參考下圖。

Fig 3：Fiasco 的傳遞流程

在 Fiasco 中，輪到自己說故事，這是一個「行動決定」。
而擲骰決定與其它玩家的關係，以及過場擲骰，都是一種「結果決定」。
與傳統流程差別在於沒有 GM，「結果決定」這件事變成玩家的功能之一。

最後是 Risus 的模型。

Fig 4：Risus 「結果決定」的傳遞方式

Fig 5：Risus 的「行動決定」流程

那個像五芒星的圖，是因為 Risus 由擲骰獲勝者來決定結果。
且任何人都有機會成為擲骰獲勝者。
相較於傳統的跑團方式，GM 的重要性不高，甚至將 GM 去除也沒問題。

回到最初的問題，不論是 Risus、Fiasco，或是某些無 GM 的系統。
因為流程與傳統帶團方式有很大不同，也導致較難用傳統方式去帶這些系統。

有趣的是，這些流程與傳統帶團方式不同的系統，會讓玩家玩起來更像「故事接龍」。

[ RP ] 盧布林 - 太陽與月亮 -4

2011-06-25T23:58:00.000+08:00

[ RP ] 盧布林 - 太陽與月亮 -3

義大利果然不愧是藝術之都，各地的名勝讓人目不暇己。
過了不久，我終於在米蘭的一間酒館找到了他。

他看起來滄桑不少，沒什麼精神，但的確是我記憶中的父親。

既然讓我發現了，我就不會輕易放過你的！

「我終於找到你了，老傢伙！」
「......兒子？你怎麼會在這裡？」

我伸手打他一巴掌「你給我閉嘴！都是你的錯！」
「我是你老子耶，竟然打我！」

於是我們兩人就打了起來！
不愧是四處旅行過的人，你一拳我一拳的互毆下，我依然無法擊倒他！
酒館裡非常吵雜，我似乎聽到有人在開賭局的聲音。
在一拳一拳互毆之後，最後兩人雙雙不支倒地！

「好....好小子，竟然打的這麼狠...」
「閉嘴…臭老頭…」
「為什麼…你要離開我們？」

他勉強撐著身體坐了起來，其它人請我們喝酒。（非常烈的酒）

「唉，要不是我，你怎麼會在學校被人欺侮？在你畢業前又跟你媽大吵了一架，最後公婆跑來插嘴，一口氣忍不下就離開了。」他當場邊說邊哭。
「你這懦夫…」看到他哭，我也要跟著哭了起來。

在擦乾眼淚後，我順手拿出我的旅遊日記跟他的。
「我贏了…我從北邊一路到這邊…」

他驚喜的搶過去翻閱「不！我們各自花了近十年繞了歐洲半圈，你可還沒贏過我！」

「是阿！但我的旅行夥伴可比你多！」
「哼，是指女人對吧？這臭小子能上幾個？」
「我的夥伴可有 999 個阿！」
「哈哈！小子你還是沒贏我，輸了我一個！不過我的最後一個就是你娘，離開十年我可沒對不起她過！」
「我今晚就去找兩個！你輸定了，老傢伙！」
「怕你不成？去啊！我就等著看你能找幾個，花錢買來的可不能作數！」

於是我轉身出門，決定再找兩個人來完成我的目標。

---------------------------------------------------------------------------------
跑團實例
---------------------------------------------------------------------------------

(下午 11:11:59) [一卡那亞] 小叮噹 - YuLin: 勉強爬起來「你這懦夫…」看到他哭，我也要跟著哭
(下午 11:12:36) [廚]Anxiety: 大致上是他覺得面上無光，連累了你也連累了你媽心裡過意不去，又拉不下臉認錯
(下午 11:13:15) [一卡那亞] 小叮噹 - YuLin: 拿出我的旅遊日記跟他的
(下午 11:13:51) [廚]Anxiety: 嗯，你們父子兩又打又哭，旁人都在看好戲
(下午 11:14:08) [一卡那亞] 小叮噹 - YuLin: 「我贏了…我從北邊一路到這邊…」
(下午 11:14:17) [廚]Anxiety: 最後你拿出了兩本厚重的旅遊日記
(下午 11:14:36) [廚]Anxiety: 他驚喜的搶過來翻閱
(下午 11:15:19) [一卡那亞] 小叮噹 - YuLin: （我可以嗆他斬殺數嗎？
(下午 11:15:23) [廚]Anxiety: 「不！我們各自花了近十年繞了歐洲半圈，你可還沒贏過我！」
(下午 11:15:34) [廚]Anxiety: 嗆啊嗆啊XD
(下午 11:16:14) [一卡那亞] 小叮噹 - YuLin: 「是阿！但我的旅行夥伴可比你多！」
(下午 11:16:43) [廚]Anxiety: 「哼，是指女人對吧？這臭小子能上幾個？」
(下午 11:17:01) [廚]Anxiety: 你大概至少有個百人斬吧
(下午 11:17:11) [廚]Anxiety: 總之數目先不管: p
(下午 11:17:16) [一卡那亞] 小叮噹 - YuLin: 恩恩
(下午 11:17:17) [廚]Anxiety: 嗆出來之後
(下午 11:18:05) [廚]Anxiety: 「哈哈！小子你還是沒贏過我，輸了我一個！不過我的最後一個就是你娘，離開十年我可沒對不起她過！」
(下午 11:18:28) [一卡那亞] 小叮噹 - YuLin: 「我今晚就去找兩個！你輸定了，老傢伙。」
(下午 11:18:38) [一卡那亞] 小叮噹 - YuLin: 「」
(下午 11:19:09) [廚]Anxiety: 「怕你不成？去啊！我就等著看你能找幾個，花錢買來的可不能作數！」
(下午 11:19:39) [廚]Anxiety: 感人的大會面(?)結束了

---------------------------------------------------------------------------------
( To be Continue )[ RP ] 盧布林 - 太陽與月亮 -5

[ RP ] 盧布林 - 太陽與月亮 -3

2011-05-22T21:41:00.010+08:00

[ RP ] 盧布林 - 太陽與月亮 -2

在旅行過程中，我漸漸能體會父親的感受了。
（即使如此，我依然討厭他）

------------------------------------------------------------------
三年後。
------------------------------------------------------------------

不久前，我剛過 20 歲生日。

共產主義是一種討厭的想法，極大的限制了人們的自由。
（附註：政府沒效率，且旅人被嚴密審查，甚至被關起來，而且還發生了兩次！）

讓我浪費了不少時間才離開東歐。
接下來，我決定前往義大利碰碰運氣。

途中經過羅馬尼亞、保加利亞、馬其頓、希臘。
東歐的風情與北歐大大不同，各地都有許多的新鮮事情，飲食風俗、信仰也不同。
這裡除了東正教之外，也有少量的伊斯蘭教，所以我也見識到了清真寺。
（最特別的大概是一夫多妻制了！）

最後終於到達了義大利。

---------------------------------------------------------------------------------
補上跑團實例
---------------------------------------------------------------------------------

(下午 10:44:05) [廚]Anxiety: 接著要煩惱的就是你會在哪裡被embrace
(下午 10:44:21) [廚]Anxiety: 你會想去義大利嗎
(下午 10:44:36) [廚]Anxiety: 爸爸去過的主要是西歐
(下午 10:44:37) [一卡那亞] 小叮噹 - YuLin: 這時間點，我老爸幾歲了？
(下午 10:44:57) [廚]Anxiety: 大概有個快50吧
(下午 10:45:19) [一卡那亞] 小叮噹 - YuLin: 我要去義大利碰碰運氣
(下午 10:45:23) [一卡那亞] 小叮噹 - YuLin: 要是能遇到他
(下午 10:45:48) [一卡那亞] 小叮噹 - YuLin: 想先打他一拳
(下午 10:45:51) [廚]Anxiety: XD
(下午 10:46:02) [廚]Anxiety: 順帶一提
(下午 10:46:07) [一卡那亞] 小叮噹 - YuLin: 恩
(下午 10:46:09) [廚]Anxiety: 你旅行的時候會給家裡寫信嗎
(下午 10:46:17) [一卡那亞] 小叮噹 - YuLin: 不會
(下午 10:46:22) [廚]Anxiety: ok
(下午 10:46:35) [廚]Anxiety: 所以是斷絕聯絡的狀態
(下午 10:46:40) [一卡那亞] 小叮噹 - YuLin: （如果斬殺數超過他還可以嗆他
(下午 10:46:47) [廚]Anxiety: ......XD
(下午 10:47:03) [廚]Anxiety: 既然都這麼說了
(下午 10:47:24) [廚]Anxiety: 當然要讓你找完老爸然後再被咬(毆)
(下午 10:47:28) [一卡那亞] 小叮噹 - YuLin: XDDDDD
(下午 10:47:51) [一卡那亞] 小叮噹 - YuLin: 結果是要斬殺最後一個人時發現對方是血族！
(下午 10:48:15) [廚]Anxiety: 好像會是個不錯的發展:Q
(下午 10:48:25) [一卡那亞] 小叮噹 - YuLin: 是阿
(下午 10:48:39) [廚]Anxiety: As you wish！(誤)
(下午 10:48:52) [一卡那亞] 小叮噹 - YuLin: （阿阿！我的斬殺數！
(下午 10:49:12) [廚]Anxiety: ok，這樣的話
(下午 10:49:39) [廚]Anxiety: 反正目標是去義大利碰運氣找老爸

---------------------------------------------------------------------------------

[ RP ] 盧布林 - 太陽與月亮 -4

[ TRPG ] 遊戲不完整性

2011-05-22T17:42:00.001+08:00

曾經聽到人家說，TRPG 是一種不完整的遊戲。
關於這點，可以從樂趣來源做分析。

這裡的不完整，代表遊戲本身不是建構在系統上，而是建構在玩家互動上。

假設樂趣來源分為遊戲性（系統本身）、互動性（與人互動）兩種。
以下我們用 ( 遊戲性，互動性 ) 的 pair 百分比來做比較。

( 遊戲性，互動性 )
電腦遊戲 ( 80% ，20% )
BG ( 50% ，50% )
TRPG ( 20% ，80% )

大致可以上述表格來分析 BG 跟 TRPG 的情況。
TRPG 的樂趣是來自於玩家之間的互動，扮演反倒是被引導出來的次要要素。

由於一般系統重視玩家層次的互動性，而非系統層次的互動性（遊戲性）。
這也間接導致 TRPG 的玩法以擲骰為主，其它玩法越來越難看到。

不論怎樣的系統，都必須依靠玩家間的討論，才能使遊戲更有趣，而不是依據規則的完整，使遊戲更有趣。
這也導致了 TRPG 的不完整性，必須建構在玩家共同目標下，才能使一場遊戲達到完整，光靠系統只能達成部分的樂趣。

[ RP ] 盧布林 - 太陽與月亮 -2

2011-05-08T20:17:00.003+08:00

[ RP ] 盧布林 - 太陽與月亮 -1

然而四處投稿卻總是碰壁。

有一天，母親走到身旁。

「其實，你爸爸他也不是真的那麼壞的人，他只是生性愛好自由，不習慣被綁住。」
「別跟我提那個人的事！」
「在你出生前，他曾經在歐洲四處遊歷，寫下了不少見聞，他的文筆相當好，有空的話就看一看吧。」說完她放下一本厚重的書在我桌上。

雖然很討厭這傢伙，但他的文筆真的不錯，前前後後花了一年，終於讀完了他的旅遊日記。

為了超越他（從各方面來說），我決定出去旅行。
他的日記只有斯堪地納維亞半島的南半邊，只要我從北歐一路走回義大利，完成另外一半的日記，那麼就算贏他一半了。

是的，只有一半，另外一半則是千人斬這件事，我決定超過這個紀錄。
從記錄上看來，母親是他的第一千人，也是最後一人。

大概是義大利的血脈跟浪漫感性作祟，
我在許多城市跟當地女性談過短暫的戀情，
對性觀念比較開放的瑞典人而言也沒什麼。

---------------------------------------------------------------------------------
補上跑團實例
---------------------------------------------------------------------------------

(下午 10:17:31) [廚]Anxiety: 不過旅費總有窮盡之時，每到一個城市你可能都得花點時間打零工賺旅費
(下午 10:18:37) [一卡那亞] 小叮噹 - YuLin: 是
(下午 10:18:40) [廚]Anxiety: 來個3d10吧
(下午 10:18:41) [一卡那亞] 小叮噹 - YuLin: 打工族
(下午 10:18:49) [廚]Anxiety: (結果還是跟爸爸一樣)
(下午 10:19:12) [一卡那亞] 小叮噹 - YuLin: (XD)
(下午 10:19:20) [一卡那亞] 小叮噹 - YuLin: (不過越來越不宅了)
(下午 10:19:22) [一卡那亞] 小叮噹 - YuLin: 12
(下午 10:20:06) [廚]Anxiety: 好，來個5d100
(下午 10:20:52) [一卡那亞] 小叮噹 - YuLin: 71 90 54 94 34
(下午 10:21:48) [廚]Anxiety: 嗯...
(下午 10:22:22) [廚]Anxiety: 大概是義大利人的血脈跟浪漫感性的天賦作祟
(下午 10:23:48) [廚]Anxiety: 你在許多城市都跟當地的女性談過短暫的戀情，對性觀念比較開放的瑞典人而言這其實也沒什麼
(下午 10:24:24) [一卡那亞] 小叮噹 - YuLin: （這點有超過我老爸嗎？）
(下午 10:24:38) [廚]Anxiety: 你是要挑戰N人斬嗎....XD
(下午 10:24:41) [一卡那亞] 小叮噹 - YuLin: XD
(下午 10:24:48) [廚]Anxiety: 想超越老爸，小子你還嫩著！
(下午 10:24:53) [一卡那亞] 小叮噹 - YuLin: 可惡！

[ RP ] 盧布林 - 太陽與月亮 -3

[ RP ] 盧布林 - 太陽與月亮 -1

2011-05-01T20:56:00.001+08:00

你在市場上買了一本小說，在小說開頭寫著。

僅獻給我認識不久的友人們。

----------------------------------------------------------------------------------------------------------
我父親是義大利人，原本在歐洲四處遊歷，天性浪漫的他寫了不少旅遊記聞。
最後在瑞典與我母親陷入愛河，奉子成婚。由於保持中立，瑞典沒有參與世界大戰，所以國內還算平靜。

1915 年，我出生了。

父親他一直沒有穩定的工作，久而久之，母親那邊的親人開始對父親不滿。
據說父親彈了一手好吉他，當年追母親時，每天定時唱情歌給她聽，加上大量的情書攻勢，於是便攻陷了她的心，母親也因此死心踏地的愛上了他。

由於父親工作不穩定，最後害我在學校被人嘲笑，他們說有這樣的懶父親，我也是個懶人！
母親知道後，彷彿如夢初醒般，她與父親開始為了我的事情而爭吵。
最後受不了寒冷與他人的指指點點，父親便在我中學畢業前離家出走了！
即使父親如此的差勁，在母親的親人與社會福利之下，我很順利的念完了中學。

但從父親離家出走後，我每天關在房門中寫詩詞之類的消磨時間，內容卻不離批評父親等等。
一年後，我整理了一篇詩集。

[ RP ] 盧布林 - 太陽與月亮 -2

[ Haskell ] 關於函數合成

2011-05-01T10:22:00.000+08:00

剛剛在 Ptt 發了一篇關於 haskell 的文章，在這邊記錄一下。

題目是要算 [-3..3] 裡面有幾個元素的平方大於 5。

這是 List Comprehesion 的版本

length[x|x<-[-1,-2,-3,0,1,2,3],x^2>5]

關於函數合成的部分，假如要先運算後比較，那通常可以用 filter 將兩個函數合成一個。

假設有兩個函數 a、b，然後有一個 List c。
那麼

filter a (map b c) == filter (a . b) c

在 haskell 中，「.」是用來做函數合成用的。
下面同樣是在 ghci 中使用。 --要用 GHC 我一定會宣告函數的輸入與輸出。

let x = [-1,-2,-3,0,1,2,3] --假如要簡寫的話，可以改寫成 [-3..3]
let sq x = x^2
let big x = x > 5 --假如 sq 跟 big 沒有打算重複使用的打算，可以改寫成 x^2 > 5。
let myBigLength x = length $ filter ( big . sq ) x
myBigLength x

然後

length $ filter ( big . sq ) x == length ( filter ( big . sq ) x )

[ Python ] 用中文寫程式

2011-04-26T00:05:00.001+08:00

雖然我知道 py3k 支援 utf8，但直到昨天我才知道可以用中文定義函數。
如果 Haskell 哪天中文也能支援到這種程度，就真的超棒的。XDD

以下程式真的可以在 py3k 跑。
歡迎加入 Perl 詩經 Python 分部。

def 我愛你(內心話):
print("是假的")
我愛你("是真的")

[ Haskell ] 尾遞回與 Fibonacci

2011-04-24T21:43:00.001+08:00

還沒找到能幫我把 haskell 程式碼轉成 html highlight 的工具，有點困擾！

因為對尾遞回不熟，所以嘗試用尾遞回來改寫 Fibonacci。
同時也用來了解 monad。

用一般遞回來寫，第 105 個 fibonacci 的計算速度會慢到可怕。

因為 Int 的數值範圍不夠大，所以改用 Integer。
在呼叫遞回的同時進行運算，讓運算結果成為一個參數，用此提高運算速度。

fib :: Integer -> Integer -> Integer -> Integer
fib n a b
| n == 0 = b
| n == 1 = a
| otherwise = fib (n-1) (a+b) a
main = do
s <- readLn
if s >= 0
then print $ fib s 1 0
else print "Error"

[ Haskell ] Pattern Match 與 Guard

2011-04-23T15:46:00.001+08:00

Pattern Match 是一種非常實用的特性，可用來比對特定的輸入。
例如第 2、3 行的 like "me" _ 與 like a b。
雖然是同一個函數，但因為輸入不同，所以進行不同的運算。

第 1 行代表，如果輸入兩個 String 型態的參數，就能得到一個 Bool 型態的輸出。
第 2 行代表，如果第一個參數是 me，不管第二個參數是什麼，輸出都是 False。
第 3 行用了 Guard。

Pattern Match 雖然能比對輸入值的型態，但無法比對輸入值的關係。
例如第 4 行，因為 Pattern Match 無法用來比較 a 與 b 是不是相同的參數，所以要用 Guard 的觀念。
Guard 允許我們對參數進行邏輯比對，然後傳回比對結果。

這裡一共定義了三個函數，like、friend、main。
因為 main 函數是程式的進入點，基本上是個 IO Action，不過我還沒完全弄懂 monad 的概念，所以先不紀錄這個。

like :: String -> String -> Bool
like "me" _ = False
like a b
| a /= b = True
| otherwise = False
friend :: String -> String -> Bool
friend a b
| like a b = True
| otherwise = False
main = do
print $ friend "me" "you"
print $ friend "you" "you"
print $ friend "he" "you"

[ 電腦 ] 出門逛書局

2011-04-21T21:26:00.000+08:00

剛剛走路去青年書局。
路上經過一間二手書店。
書店內居然有英文版的魔戒！（遠目）

看起來還超久的！

之後繼續邁進。
到了青年書局。
書局內居然沒有 F# 的書！
QQ

沒有 Haskell 也就算了。
連 F# 都沒有阿…

[ Haskell ] 解 11 以下的 ugly number

2011-04-07T23:51:00.003+08:00

最近持續學習 haskell 中。
然後在 google 搜尋中發現了一篇用 haskell 解 ugly number 的文章。
這引起了我的興趣。

首先要先了解什麼是 ugly number，單從定義來看，就是由 2、3、5 所組成的數字。
也就是說，ugly number 應該會長成

(2^x)*(3^y)*(5^z)

因為 x=y=z=0 也符合條件，所以 1 也是 ugly number。

已知條件一，2、3、5 是質數，且其他質數必與 2、3、5 互質，則 2、3、5 以外的質數必定不是 ugly number。

由條件一推論條件二，如果非 2、3、5 的質數不是 ugly number，則由非 2、3、5 的質數所組成的數字也必定不是 ugly number。

已知條件三，如果兩數有倍數關係，則 mod 必為 0。

由條件一推論出與 2、3、5 互質的質數程式如第 3、4 行。
（不見得是質數）

由條件一、二、三推論出，質數的倍數一定不是 ugly number，於是可以推論出第 6、7 行的程式。
sort 在 List 裡面，所以要 import List。

最後只要在 ghci 中輸入 nonugly_number 1 11 即可求出 1 到 11 之間的非 ugly number。
注意，是非 ugly number。

XDDDDDDD
離一行程式碼還遠的哩。

import List
prime_number :: [Int] -> [Int]
prime_number z = [y|y<-z,y/=1,(mod y 2)/=0,(mod y 3)/=0,(mod y 5)/=0]
nonugly_number :: Int -> Int -> [Int]
nonugly_number x y = sort [k*m|k<-prime_number [x..y],m<-[1..y],k*m<=y]

[ Haskell ] 簡單的範例 - 微分公式。

2011-04-05T10:22:00.000+08:00

這是一個簡單的微分函數範例。

(正常人不會想用這種格式做微分的，太不人性化了XDDD)

calDown :: (Rational,Rational) -> (Rational,Rational)

calDown (0,b) = (0,0)

calDown (a,b) = if b == 0 then (0,0) else (a*b,b-1)

mutCalDown :: [(Rational,Rational)] -> [(Rational,Rational)]

mutCalDown x = map calDown

calDown :: (Rational,Rational) -> (Rational,Rational)

calDown (0,b) = (0,0)

calDown (a,b) = if b == 0 then (0,0) else (a*b,b-1)

polyCalDown :: [(Rational,Rational)] -> [(Rational,Rational)]

polyCalDown x = map calDown x

第一行用 :: 宣告自定函數的 type，Rational 是分數型態，() 是 tuple。

calDown 定義微分公式，(a,b) 中的 a 代表係數，b 代表未知數的次方。

這裡沒有定義出三角函數、指數對數的微分方式。

第二行跟第三行可以看成 oo 的多型，會依據 tuple 的條件不同而使用不同的函數。（從上到下）

第五行的 [ ] 代表 List，polyCalDown 用來定義單變數微分方程。

map a b 代表重覆從 List b 中取元素，並丟到 a 函數做運算，出來的結果還是 List。

寫好後用 ghci 執行，輸入 polyCalDown [(1,2),(3,4)] 即可看到結果。

目前還在想，要用 google site 還是直接寫一份 pdf 像 tcl/tk 那份教學一樣公開傳閱。

總覺得這跟 tryneeds 的專案有點不同。

[ DocBook ] 用 XML 格式寫文件 - docbook 簡介

2011-04-05T10:15:00.001+08:00

這幾天要寫報告，遇上了一些困擾。
我本身非常喜歡用 Latex 做文件排版（Linux 下）。
但在 Windows 上，因為管理方式與 Linux 不同，官方推薦用 Miktex 做版排。

不過我現在電腦裡沒有安裝任何 Tex 的發行版，為了快速寫出文件，我使用 DocBook。

DocBook 分為採用 SGML 跟 XML 撰寫的兩種格式，這次我採用 XML 格式撰寫。
兩者的撰寫差別僅在於宣告方式不同（雖然底層的工具運作方式不同）。

首先要到 sourceforge 下載最新版的 DocBook-XML，我昨天下載的是 1.76.1 版。
下載完成後只要解壓縮即可。

接下來要準備 XSLT processor，常見的是用 Java 實做，只要上 google 找 XSLT 就能找到相關的工具。
因為我的電腦中有裝 Perl，預設就有 xsltproc，因此這一步驟我就輕鬆解決了。

在上面兩項都準備好後，即可開始撰寫 xml 文件。
文件開頭的宣告用。

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE article
PUBLIC "-//OASIS//DTD DocBook XML V4.5/zh_TW" "http://www.oasis-open.org/docbook/xml/4.5/docbookx.dtd">

如果要寫的是書而不是文章，可以把 article 改成 book。
之後即可參照 docbook 中文指南做文件的編寫了。
假設編寫完成的文件檔名叫做 test.xml。
利用以下程式碼做文件格式的轉換。

xsltproc /DocBook-XML/html/docbook.xsl test.xml -o test.html

即可輸出 html 格式的文件，如果想要 rtf 以供後續處理，只要附檔名改為 rtf 即可。

[ Haskell ] 教學文件撰寫計畫，啟動！

2011-04-02T21:21:00.000+08:00

最近在自學 Haskell，所以打算寫一份自己的學習紀錄，同時也方便其他人學習 Haskell。
關於教學文件，我打算用 google 文件或 Dropbox 做文件分享。
先記錄到這邊，接下來該開始撰寫教學文件了。
XD

[ TRPG ] 計算 NWOD 系統的成功骰期望值

2011-03-20T08:49:00.001+08:00

一不小心拖太久沒發網誌，大家又消失了。T_T
昨天廚問了一個問題，假如考慮 10 again 規則，那麼 NWOD 的成功骰期望值應該是多少？

這是我想到的，先直接發公式。

先假設一顆骰子過一顆成功的情況，會有丟出 10 然後沒丟出 8 9 0 的情況，機率是 0.1*0.7。

另一種是丟出 0 後，最後丟出 8 跟 9 的情況，所以機率是 0.1*0.2。
所以一顆骰子過一成功應該是 0.1^(1)*0.7^(1)+0.1^(0)*0.2^(1) = 0.27。
一顆骰子過兩成功 0.1^(2)*0.7^(1)+0.1^(1)*0.2^(1) = 0.027。
由此知道，一顆骰子過 n 成功的機率是 2.7*10^(-n)。以上可以推論出一顆骰子過 n 成功的期望值如上公式。

#!/usr/bin/env python3
Y = 0
for X in range(1,5):
X = X*2.7*10**(-X)
Y += X
print(X)

為了計算方便，我只取機率大於 0.01% 的成功骰。
最後求出當一顆骰要過五成功時，機率小於 0.01%。
由程式計算結果知道，一顆骰子的期望值為 0.29997。
在不考慮 10 again 的情況下，一顆骰子過一成功的機率為 0.3，因兩者接近，可直接將期望值視為 0.3。
因為每顆骰子都是獨立事件，所以 n 顆骰子的成功骰期望值為 0.3*n。

[ M20 ] M74 - 經典 0e lite 版 - 祕法術列表（未完）

2011-03-11T21:28:00.000+08:00

M74 續（物品與隨從）

１級：

[ 1 ] 魅惑人類：使一個活的人型生物完全處於你的影響下，R 120 呎，D 直到被消除。
[ 2 ] 偵測魔法：施法者可以感知在某地（或某人、某物）的一個法術或結界的存在，R 60 呎，D 20 分鐘。
[ 3 ] 封門術：使一個門卡死，R 10 呎，D 2d6*10 分鐘。
[ 4 ] 光亮術：使物品照亮半徑 30 呎（微光），R 120 呎，Ｄ１小時＋１０分鐘／等級。
[ 5 ] 防護邪惡：+2 對抗邪惡陣營的攻擊與法術，R 圍繞施法者的環，D 1 小時。
[ 6 ] 閱讀語言：能讀懂用任何語言（魔法文字除外）所寫的資料，D １或２本閱讀物。
[ 7 ] 閱讀魔法：讀懂任何卷軸、法術書或相關的魔法文字，R 施法者自身，D 1 本閱讀物或 2 張捲軸。
[ 8 ] 睡眠術：讓 4d6 HD 的生物陷入睡眠，R 240 呎，D GM 決定。

２級：

[ 1 ] 光亮術（永久性）：使物品照亮半徑 120 呎（微光），R 120 呎。
[ 2 ] 偵測邪惡：揭發邪惡的想法（意圖）或邪惡道具，R 60 呎，D 20 分鐘。
[ 3 ] 偵測隱形：偵測施法者等級*10 呎內隱形的物品或生物，D 1 小時。
[ 4 ] 超感覺感知（偵測思想）：允許施法者讀取目標的表面意識，R 60 呎，D 2 小時。
[ 5 ] 隱形：目標隱形直到法術破解或主動攻擊，R 240 呎。
[ 6 ] 敲擊術：可以解開門或箱子的鎖，R 60 呎，D 瞬間。
[ 7 ] 浮空速：施法者可以自由向上或向下漂浮，R 等級*20 呎向上或向下，D 等級*10 分鐘。
[ 9 ] 物品定位：感覺物品的所在方向，R 60 + 每等級*10 呎，D 每等級*1 分鐘。
[ 10 ] 魅影：出現一個最接近施法者「想像」的幻影，持續到施法者無法專注為止，如果目標相信這是真的，則傷害成真，R 240 呎。
[ 11 ] 法師之鎖：類似封門術，持續到破法，敲擊術不會破法，施法者可直接通過而不需解除，R 10 呎。

[ M20 ] M74 - 經典 0e lite 版 - 物品與隨從

2011-03-04T00:02:00.004+08:00

M74 - 經典 0e lite 版

１１．隨從：
　　　　[ 1 ] 隨從分兩類：搬運工與護衛。
　　　　[ 2 ] 搬運工：( 1 ) ２hp。
　　　　　　　　　　( ２ ) 只在緊急到不行的情況才會參與戰鬥（－２加值）。
　　　　　　　　　　( ３ ) 可搬運少量資源以及背包。
　　　　　　　　　　( ４ ) 每天最少支付 1 SP。

　　　　[ 3 ] 新手護衛：( 1 ) ４ hp。

　　　　　　　　　　( ２ ) 使用雇主給的裝備戰鬥（０加值）。

　　　　　　　　　　( ３ ) 每天最少支付５ SP ＋所有發現不具魔力的寶藏的 1/20 價值。

　　　　[ 3 ] 菁英護衛：( 1 ) ７ hp。

　　　　　　　　　　( ２ ) 使用雇主給的裝備戰鬥（１加值）。

　　　　　　　　　　( ３ ) 每天最少支付１Ｇ＋所有發現不具魔力的寶藏的 1/10 價值。

１２．起始裝備：
　　　　[ 1 ] 從三個冒險包中挑一個後，根據職業加上自己的專屬道具。
　　　　[ 2 ] Pack A：( 1 ) 背包。
　　　　　　　　　　 ( 2 ) 睡袋。
　　　　　　　　　　 ( 3 ) 附蓋提燈。
　　　　　　　　　　 ( 4 ) 燈油 10 瓶。
　　　　　　　　　　 ( 5 ) 燧石與鐵片。
　　　　　　　　　　 ( 6 ) 鏟子。
　　　　　　　　　　 ( 7 ) 鐵蒺藜 2 組。
　　　　　　　　　　 ( 8 ) 響笛。
　　　　　　　　　　 ( 9 ) 紙筆。
　　　　　　　　　　 ( 10 ) 水袋。
　　　　　　　　　　 ( 11 ) 乾糧 4 天份。
　　　　[ 3 ] Pack B：( 1 ) 背包。

　　　　　　　　　　 ( 2 ) 睡袋。

　　　　　　　　　　 ( 3 ) 火把 10 隻。

　　　　　　　　　　 ( 4 ) 燈油 10 瓶。

　　　　　　　　　　 ( 5 ) 燧石與鐵片。

　　　　　　　　　　 ( 6 ) 粉筆。

　　　　　　　　　　 ( 7 ) 木杆 10 呎。

　　　　　　　　　　 ( 8 ) 鏡子。

　　　　　　　　　　 ( 9 ) 鐵撬。

　　　　　　　　　　 ( 10 ) 水袋。

　　　　　　　　　　 ( 11 ) 乾糧 4 天份。

　　　　[ 4 ] Pack C：( 1 ) 背包。

　　　　　　　　　　 ( 2 ) 睡袋。

　　　　　　　　　　 ( 3 ) 火把 10 隻。

　　　　　　　　　　 ( 4 ) 帳篷。

　　　　　　　　　　 ( 5 ) 燧石與鐵片。

　　　　　　　　　　 ( 6 ) 鐵槌。

　　　　　　　　　　 ( 7 ) 鐵釘 10 根。

　　　　　　　　　　 ( 8 ) 爪鈎。

　　　　　　　　　　 ( 9 ) 繩子 50 呎。

　　　　　　　　　　 ( 10 ) 水袋。

　　　　　　　　　　 ( 11 ) 乾糧 4 天份。

　　　　[ 5 ] 戰士：( 1 ) 聖水 1 瓶。

　　　　　　　　　( 2 ) 中型裝甲（AC +4）。

　　　　　　　　　( 3 ) 一把單手武器 + 盾或是一把雙手武器。

　　　　　　　　　( 4 ) 5 G。

　　　　[ 6 ] 施法者：( 1 ) 記載已知法術的法術書 1 本。

　　　　　　　　　( 2 ) 5 G。

　　　　[ 7 ] 牧師：( 1 ) 銀製神聖標記。

　　　　　　　　　( 2 ) 輕甲（AC +2）。

　　　　　　　　　( 3 ) 一把單手武器 + 盾。

　　　　　　　　　( 4 ) 5 G。

１３．0 e 觀念：

　　　　[ 1 ] 時間：( 1 ) 分為輪與回合。

　　　　　　　　　( 2 ) 一輪一分鐘。

　　　　　　　　　( 3 ) 一回合十分鐘。

　　　　[ 2 ] 距離：( 1 ) 英吋制。

　　　　　　　　　( 2 ) 室內一英吋 = 十呎。

　　　　　　　　　( 3 ) 室外一英吋 = 十碼。

　　　　　　　　　( 4 ) 正常人每次移動十二英寸，一回合最多兩次。

　　　　　　　　　( 5 ) 攜帶太多東西會變成九或六英吋。

　　　　　　　　　( 6 ) 奔跑則移動兩倍速。

１４．寶藏：

　　　　[ 1 ] 錢：( 1 ) 1 G = 10 S。

　　　　　　　　( 2 ) 1 S = 5 C。

　　　　[ 2 ] 寶石：( 1 ) 價值從 10 G 到 1000 G。

　　　　　　　　 ( 2 ) 約 50 % 的寶石價值為 100 G。

　　　　[ 3 ] 魔法武器：( 1 ) 戰鬥加值 +1 到 +3。

　　　　　　　　 ( 2 ) 有些對特定生物具有 +1 效果。

　　　　　　　　 ( 3 ) 有些魔法劍具有類法術效果。

　　　　　　　　 ( 4 ) 有些魔法劍具有智力。

　　　　　　　　 ( 5 ) 少數具有詛咒，會使使用者更難擊中目標。

　　　　[ 4 ] 魔法防具：加值大多為 +1，少數 +2 或 +3。

　　　　[ 5 ] 卷軸：具有一到六個法術可施展（全部為聖法或祕法）。

　　　　[ 6 ] 其他：戒指、法丈、不尋常的魔法道具。

[ 電腦 ] 資料結構的重要性

2011-03-02T21:54:00.002+08:00

最近在試著習慣函數編程。
老實說，最大的體悟是資料結構的重要性。
一個好的結構能夠省掉一長串的程式碼。

之前看到 google AI 的比賽，第一名的遊戲我也想過，但一直沒寫出來。
（指我自己想試試看的第零人稱即時（偽）策略遊戲）

不過我還是仿著寫了一個。
我並沒有用 oo 的寫法去寫，而是嘗試用函數編程的方式去寫。
在我最初的預想中，會有地圖、星球與作標、玩家兩名、兵力。

於是我使用了如下的結構。

換句話說，就是把玩家跟地圖的資料分開。
每次玩家得到一個星球，我就必須做一次複雜的操作，讓地圖跟玩家分別獲得不同的控制權。
說真的，很麻煩，約 150 行。

後來在圖書館找了一本 Lisp 的書來看，頗舊的書。
看到裡面談到「Lisp 的程式碼就是資料，資料就是程式碼，兩者互相融合」之類的。
再看一下後面的 List 結構樹，我突然知道要怎樣解決問題了。

回家後我馬上將資料結構改變成這樣。

不屬於玩家的星球，將玩家這項資料設為 0，否則就設為玩家的編號。
改寫過資料結構後，程式碼很輕鬆的就簡化，並且改到能執行的地步。
但因為我沒事先算過遊戲無法結束的情況，在修正時，也一直抓不到錯誤的點，只好暫時先放下這件事。

但我一瞬間想到，所謂的物件導向，其實是指將不同的資料分成不同的結構。
不同的結構，處理方式就無法共通，於是就成了不同的物件。
雖然我不確定我的想法正不正確，但我能確定，好的結構能使程式碼變少，錯誤也減少。

一開始的資料結構，是基於物件導向去思考的。
我認為要有一個地圖物件跟兩個玩家物件，不過我錯了，一個地圖物件就足以代表玩家的控制權。
而這是基於好的資料結構，而非撰寫風格。
修正後程式碼縮到約 80 到 90 行左右，而實際上，還有很多重複性的程式碼可以縮寫。
完全縮寫後，大約可以縮到 70 行左右。

--The End--

今天很累，明天早上繼續翻譯 M74 系統的資料。

[ 電腦 ] google 你居然這麼做！

2011-02-28T08:44:00.000+08:00

先按下去看一張圖。

= = 我怎麼都不知道 Ubuntu 從作業系統轉職成瀏覽器這件事？
就算 google 推雲端也不必把 ubuntu 當雲端吧！XDDDDDD

Google is a goodog！

[ 電腦 ] 悲劇的我。

2011-02-26T16:19:00.000+08:00

昨天為了進入 Linux ，裝上 easybcd 。
結果沒設定好，變成進不了 win7。
這下好了，馬上用 ubuntu 拯救資料出來。

是的，我試著用 ubuntu 拯救資料出來，但失敗了。
我應該自己下指令，一個一個 tar 好再 gzip 的。
結果今天電腦弄好了，資料不見了一大半。（除了 TRPG 的，幾乎都不見了。）

總結來說，我除了重灌 win7 然後整備到可以使用的技術提高以外，其他技術都不行阿。
話說我的 ubuntu 的畫面還沒修好。（嘆）

[ python ] 自製小遊戲的計畫

2011-02-25T12:58:00.000+08:00

最近在用 python 寫一個小遊戲。
我打算寫一個第零人稱「偽」即時戰略遊戲。XDDDDDD
當作 functional program 的練習。

老實說，自從我看到書上提到 functional program 後，就查了一些資料。
比起 oo ，我更喜歡 fp，因為比較容易寫出我要的東西。

oo 的觀念雖然我能理解，但一直無法善用，於是 fp 成了我喜歡的寫作風格。

希望能快點寫好這遊戲，也學好 fp。XD

[ Perl ] 自製密碼產生器

2011-02-21T21:02:00.000+08:00

前兩天突然想到，為什麼我不做個自己的密碼產生器呢？
實際上，這非常容易寫，程式的撰寫跟思考很快。
主要時間都花在 Tk 的模組下載。

我一直不能成功下載 Tk，後來才發現自己的版本號太舊。
改用 5.12.2 下載，就成功了。

因為程式已經寫好了，實際上是把輸出跟輸入轉到圖形介面而已。
當然，轉到圖形介面是要給認識的人使用，我本身還是比較習慣純文字介面。

主要是在 Length 下面輸入想要的密碼長度。
Any number 輸入任意的數字，後面的 1 - 50 只是想要限制使用者輸入的數字大小，其實輸入 1000 也 ok，只是要跑很久。

輸入完成後，按下 run，就能複製貼上下方的密碼了。
要記密碼只要記住長度跟數字即可。

接下來解釋程式的部分。

在第 4 跟 10 行所出現的數字，都可以任意改變，那只是隨便寫來當假亂數用的。
@word 是把自己想要的英文跟數字放進去，我把我自己寫的去除掉，因為有其他人要用。XD

第 7 到 9 行用來判斷應該傳出 @word 的哪個部份。
因為數字加英文一共 36 個（我沒區分大小寫），所以超過 35 就要扣掉 36，才能正確傳出想要的密碼。

為了避免開頭是數字，所以用第 10 行來去除開頭是數字的情況。

第 12 行是用來提高隨機性的，因為當數字總合為 40 的時候，就會出現規律。
第 8 行的目的與 12 行相同。

第 2 行跟第 14 行用了 Tk 的取值與賦值。

sub run {
my ($steps,$num) = ($text_1->get(),$text_2->get());
my $line = "";
my $out = $num*2+$steps*5;
my @word = ();
while ( length($line) < $steps ) {
if ( $out <= 35 ) { $out += $num; }
elsif ( $out == 40 ) { $out += $steps; }
else { $out -= 36; }
if ( $line =~ s/^\d// ) {$out += $out*4;}
$line .= $word[$out];
if ( length($line) == $steps && $line =~ /^\D{$steps}/ ) { $line .= "1"; $line = substr $line , -2; }
}
$entry->configure(-text=>$line);
}

[ Perl ] 我要崩潰啦！

2011-02-19T23:37:00.000+08:00

今天寫了一個小程式，想說要傳給認識的朋友用。
但考慮到對方不會純文字操作，所以要寫個圖形介面。

程式本身是用 Perl 寫的，但因為我裝的是 5.12.1，一直沒辦法安裝 Tk，就更新一下版本。

在這之前，我試過用 Javascript 寫。
對一個不熟的東西，真的沒辦法。
Javascript 對我來說實在太詭異了。

後來轉用 py3k，結果發現自己忘了裝 Tkinter，於是重裝。
說真的，Tk 很好用，但 python 把它搞得很複雜。（相對於 Perl 來說，真的超複雜。）
然後更詭異的是，我看書上的程式碼，人家很輕鬆的就可以讓字串當數字用。
我怎麼照寫就是不行，挫折感很大，可能要自己重寫一個字串轉數字的模組，才能抵銷我心中的難過。

最後就回到用 Perl + Tk。
因為只有 Activestate 有 5.12.3，又找不到原始碼，就只好裝下去了。
然後看一下，有 Tkx，印象中，這個跟 Tk 應該很像。

錯！寫下去才發現我錯了！
這成為我心中最痛最痛的一件事。
我第一次見識到，什麼叫做照著寫也錯…

我照著 Tkx 的 document 先寫一段測試用的代碼。
恩？照 Tk 的寫法來說，第 10 行最後的逗號蠻奇怪的，把它刪掉來試試看。
很好，它沒過。

加那個逗號回去看看，執行後完全成了我人生中最痛苦的事情之一。
跑不出 widget 也就算了，下指令強制 kill 也 kill 不掉，連重開都不行…有沒有這麼可怕阿！

誰來告訴我這是 Activestate 的問題還是 Tkx 的問題？

#!/usr/bin/perl
use Tkx;
my $mw = Tkx::widget->new(".");
$mw->new_button {
-text => "Hello, world",
-command => sub {$mw->g_destroy;},
} -> g_pack;
Tkx::MainLoop();

[ python ] 簡單計算工具

2011-02-17T17:01:00.000+08:00

在精通 Python 3 程式設計（第二版）中，第一章有兩題是寫出計算程式。
這兩題用的是同一個程式，重點在於 def 的擴充。
不過我擴充完就把自己原本寫的一部分程式碼去掉了。=3=

因為題目要求不能用 list.sort()，所以 5 到 12 行是排序用的。
14 到 18 行是求中位數。
20 到 26 是輸入資料，這邊讓我更熟悉 try except 的用法了。
28 到 34 是結果輸出。

話說我根本找不到書上說的解答在哪‥這到底是怎麼一回事？

#!/usr/bin/env python3
numbers = []
def stn(numbers):
for first in range(len(numbers)):
for second in range(len(numbers)):
if numbers[first] < numbers[second]:
here = numbers[first]
numbers[first] = numbers[second]
numbers[second] = here
return numbers
def med(numbers):
if len(numbers)/2 > int(len(numbers))/2:
return numbers[int(len(numbers)/2)]
else:
return (numbers[int(len(numbers)/2)]+numbers[int(len(numbers)/2)-1])/2
while True:
try:
count = None
count = int(input("Please input int (or input any word can exit): "))
numbers.append(count)
except ValueError:
break
try:
numbers = stn(numbers)
print("count = ",len(numbers)," sum = ",sum(numbers)," lowest = ",numbers[0]," highest =",numbers[len(numbers)-1]," mean = ",sum(numbers)/len(numbers))
print("med = ",med(numbers))
except IndexError:
print("Stop the program.")
exit()

[ Perl ] 解 * 問題 (2)

2011-02-16T23:10:00.000+08:00

問題出處
python 版程式碼

結果我還是 Perl 用的比較習慣，很快就用 Perl 解決問題了。
雖然 python 版也寫出做法了，但因為算式不是自己想的，沒有成就感，所以用 Perl 重寫一份自己的想法。

27 到 30 行。
因為圖形可以看成四個重複，所以將圖形分成四區塊，個別執行 output。

至於 output，請參考流程。

#!/usr/bin/perl
$input= shift;
$max = $input+1;
$half_max = $max/2;
sub output{
my ($x,$y) = @_;
my $total = $x + $y;
if ( $total%2 && $x%2 ) {
if ( $x > $y ) { print" ";}
else { print"*";}
}
elsif ( $total%2 ) {
if ( $x > $y ) { print"*";}
else { print" ";}
}
else {
if ( $x%2 ) { print "*"; }
else { print " "; }
}
}
if ( $input%2 == 0 || $input =~ /\D/ ) {print"exit\n";exit;}
for ( $raw = 1; $raw <= $input $raw++ ) {
for ( $column = 1; $column <= $input $column++ ) {
if ( $column > $half_max && $raw > $half_max ) { output($max-$raw,$max-$column); }
elsif ( $column > $half_max ) { output($raw,$max-$column); }
elsif ( $raw > $half_max ) { output($max-$raw,$column); }
else { output($raw,$column); }
}
print"\n";
}

[ python ] 解 * 問題（2）

2011-02-16T20:32:00.001+08:00

問題出處

為了更熟練 python ，試著用 python 解這題。

不過 26 行的算式是從該網站看到的，不是自己想的，沒有成就感。
所以後來用 Perl 重寫了一個自己想到的辦法。

我覺得一條算式就能解決這麼多行的程式碼，真是太強了。XD

#!/usr/bin/env python3
import sys
error = 0
while True:
try:
steps = int(input("input a number "))
step = (steps-1)/2
break
except ValueError as err:
print(err)
error += 1
if error == 5:
exit()
except TypeError as err:
print(type(steps),"\n",err)
error += 1
if error == 5:
exit()
for x in range(steps):
line = ""
for y in range(steps):
if max(abs(x-step),abs(y-step))%2:
line += "*"
else:
line += " "
print(line)

[ python ] 開始玩 Python 3k 的第一次嘗試

2011-02-15T21:10:00.000+08:00

最近看了一下 py3k，讓我超爽，終於簡化掉一堆麻煩了。
之前不想學 python 是因為麻煩，要從鍵盤讀取資料居然要輸入 raw_input 這樣一長串，所以後來就沒學。
而 py3k 改掉一堆我覺得討厭又麻煩的部分，一整個開心，就跑去買 python 3 的中文教學書。

不過我買錯本了...Orz|||

書上說這題只要改約五列就可以完成，結果我寫了十多列。Orz|||
果然 Perl 寫習慣，去寫別種語言會有一些小困擾。

18 到 32 行是我自己加進去的程式碼。
第 44 行有做修改，這樣就完全符合題目要求了。（除了約五列這條以外。）

我果然還是比較習慣「There's More Than One Way To Do It.」

#!/usr/bin/env python3
import sys
Digits = [
[" *** ","* *","* *","* *","* *","* *"," *** "],#0
[" ** ","* * "," * "," * "," * "," * "," *** "],#1
[" *** ","* *","* * "," * "," * ","* ","*****"],#2
[" *** ","* *"," *"," *** "," *","* *"," *** "],#3
[" * "," ** ","* * ","*****"," * "," * "," *** "],#4
["*****","* ","* ","*****"," *","* *"," *** "],#5
[" *** ","* *","* ","*****","* *","* *"," *** "],#6
["*****","* *"," * "," * "," * "," * "," * "],#7
[" *** ","* *","* *"," *** ","* *","* *"," *** "],#8
[" *** ","* *","* *"," ****"," *"," * "," * "]#9
]
def change(number,digit):
column = 0
word = ""
try :
while column < len(digit):
if digit[column] == "*":
word += str(number)
else:
word += " "
column += 1
return word
except IndexError as err:
print(err, "in", digit)
except ValueError as err:
print(err, "in", digits)
try:
digits = sys.argv[1]
row = 0
while row < 7:
line = ""
column = 0
while column < len(digits):
number = int(digits[column])
digit = Digits[number]
line += change(number,(digit[row])) + " "
column += 1
print(line)
row += 1
except IndexError:
print("usage: big.py <number>")
except ValueError as err:
print(err, "in", digits)

[ 遊戲介紹 ] 傳統日本遊戲 - 花札（花牌）

2011-02-09T11:28:00.000+08:00

[ 遊戲人數 ] 2 ↑，隨規則不同而有不同人數上限。
[ 遊戲時間 ] 1 - 5分鐘。
[ 遊戲網址 ] 無。
[ 遊戲內容物 ] 共四十八張牌（光 5 張、種 9 張、茦 10 張、雜 24 張）。
[ 遊戲作者 ] 未知。
[ 發行公司 ] 有很多，目前最為人知的是任天堂。
[ 遊戲目標 ] 高分者獲勝。

先看看 BGG 上精美的任天堂紙牌（天狗等級）。

目前常見的玩法稱為「八八花」，由來為雙方手牌與場牌都是八張。
基本玩法就是撿紅點，但加入役的概念，就是指牌型。

牌一共分為 12 種花，對應一個開花月份。
每個月份各四張，大致上是兩張雜牌，然後從光、種、策中挑兩個出來湊成四張。

雙方先抽一張，比較早開花的一方當「親」，就是起始玩家的意思。
然後各發八張手牌，再翻出八張放在場上。
輪到自己時，先從手上出一張，如果出的牌與場上的牌有相同月份的花，就可以吃掉那張牌。
之後從牌庫翻一張，有相同月份的花就可以吃掉。

持續到其中一方吃到的牌完成特定牌型，或是雙方牌都出完為止。

是個運氣很重的遊戲，技術面就是手牌與場牌的控制，這點跟五型戰鬥牌相同。