用Perl來寫演算法

今天無聊，看到這樣的演算法。

1 * 8 + 1 = 9

12 * 8 + 2 = 98

123 * 8 + 3 = 987

1234 * 8 + 4 = 9876

12345 * 8 + 5 = 98765

1 23456 * 8 + 6 = 987654

1234567 * 8 + 7 = 9876543

12345678 * 8 + 8 = 98765432

123456789 * 8 + 9 = 987654321

心血來潮，想說用Perl寫寫看，看看會不會有一樣的結果。

for($i = 0; $i <9; $i++)
{

$Y = $Y + 10**$i;
$b = $b + $Y;
$k = ($i + 1);
$s = ($b * 8) + $k;
 
print "$b * 8 + $k = $s\n";
}

程式出來的結過，雖然醜了一點，不過還算有模有樣。

1 * 8 + 1 = 9
12 * 8 + 2 = 98
123 * 8 + 3 = 987
1234 * 8 + 4 = 9876
12345 * 8 + 5 = 98765
123456 * 8 + 6 = 987654
1234567 * 8 + 7 = 9876543
12345678 * 8 + 8 = 98765432
123456789 * 8 + 9 = 987654321

許冠傑 ﹣《半斤八兩》

分享一首很寫實，但不失搞笑的歌與大家共勉之。

《半斤八兩》

曲：許冠傑
詞：許冠傑

我哋呢班打工仔
通街走糴直頭系壞腸胃
揾嗰些少到月底點夠使（奀過鬼）
確系認真濕滯

最弊波士喐啲發威（癲過雞）
一味喺處系唔系亂嚟吠
噏親加薪塊面嗱起惡睇（扭吓計）
你就認真開胃

（半斤八兩）做到只積噉嘅樣
（半斤八兩）濕水炮仗點會響
（半斤八兩）夠薑呀摣槍走去搶
出咗半斤力
想話攞番足八兩
家陣惡揾食
邊有半斤八兩咁理想（吹漲）

我哋呢班打工仔
一生一世為錢幣做奴隸
嗰種辛苦折墮講出嚇鬼（死俾你睇）
咪話冇乜所謂

（半斤八兩）就算有福都冇你享
（半斤八兩）重慘過滾水淥豬腸
（半斤八兩）雞碎咁多都要啄
出咗半斤力
想話攞番足八兩
家陣惡揾食
邊有半斤八兩咁理想（吹漲）


翻譯：

《半斤八兩》

曲：許冠傑
詞：許冠傑

我們這班打工族 到處走得快真的是折磨腸胃
賺點些許錢，到了月底怎夠用 （少得很）
確實真的很倒霉

最慘的是老板動不動就亂發脾氣 （瘋過雞）
一天到晚不管對不對都在亂吠
說到到加薪他的那張臉就變難看。（常刁難）
你就想得美了

（半斤八兩） 做到每個都是這樣
（半斤八兩） 濕掉的鞭炮怎麼點得響
（半斤八兩） 夠嗆就拿槍去搶
出了半斤的力氣， 想說拿回足八兩
現在混口飯吃很難，那裡有半斤八兩這麼理想 （你能奈我何）

我們這班打工仔 一生一世為錢幣做奴隸
各種辛苦淒涼說出來嚇到鬼 （死給你看）
不要說無所謂

（半斤八兩）就算有福都沒你的份去享
（半斤八兩）慘過豬腸兩頭縮水
（半斤八兩）那怕雞碎米這樣多都要去搶
出了半斤的力氣， 想說拿回足八兩
現在混口飯吃很難，那裡有半斤八兩這麼理想 （你能奈我何）

參考：
粵語協會
百度1
百度2

百度3