2006年1月アーカイブ

『プログラミング作法』の中に出てくる、マルコフ連鎖 C バージョンを Delphi で書いてみた。ただし、標準入出力は使わずに、TStringList にテキストを読んでしまってから処理。結果も TStringList に返ってくるようにしてみた。

unit Markov_C;

interface

uses
  Classes, SysUtils, Windows;

const
  NPREF = 2;
  NHASH = 4093;
  MAXGEN = 10000;
  NONWORD = #$0A;

type
  PPrefix = ^TPrefix;
  TPrefix = array[0..NPREF-1] of PChar;
  PSuffix = ^TSuffix;
  PState = ^TState;
  TState = packed record
    Pref: TPrefix;
    Suf: PSuffix;
    Next: PState;
  end;
  TSuffix = packed record
    Word: PChar;
    Next: PSuffix;
  end;
  
var
  StateTab: array[0..NHASH-1] of PState;

function Hash(S: PPrefix): Cardinal;
function Lookup(Prefix: PPrefix; Create: Boolean): PState;
procedure Build(Prefix: PPrefix; FileName: string);
procedure Add(Prefix: PPrefix; Suffix: PChar);
procedure AddSuffix(SP: PState; Suffix: PChar);
procedure Generate(nWords: Integer; SL: TStringList);

implementation

function Hash(S: PPrefix): Cardinal;
var
  H: Cardinal;
  P: PChar;
  I: Integer;
const
  MULTIPLIER = 31; // set 31 or 37
begin
  H := 0;
  for I := 0 to NPREF - 1 do
  begin
    P := S[I];
    while Ord(P^) <> 0 do
    begin
      H := MULTIPLIER * H + Ord(P^);
      Inc(P);
    end;
  end;
  Result := H mod NHASH;
end;

function Lookup(Prefix: PPrefix; Create: Boolean): PState;
var
  I, H: Integer;
  SP: PState;
begin
  H := Hash(Prefix);
  SP := StateTab[H];
  while SP <> nil do
  begin
    for I := 0 to NPREF - 1 do
      if StrComp(Prefix[I], SP.Pref[I]) <> 0 then
        Break;
    if I = NPREF then
    begin
      Result := SP;
      Exit;
    end;
    SP := SP.Next;
  end;
  if Create then
  begin
    GetMem(SP, Sizeof(TState));
    for I := 0 to NPREF - 1 do
      SP.Pref[I] := Prefix[I];
    SP.Suf := nil;
    SP.Next := StateTab[H];
    StateTab[H] := SP;
  end;
  Result := SP;
end;

procedure Build(Prefix: PPrefix; FileName: string);
var
  SL: TStringList;
  I: Integer;
  Buf: PChar;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(FileName);
    SL.Text := StringReplace(SL.Text, ' ', #$0D#$0A, [rfReplaceAll]);
    for I := 0 to SL.Count - 1 do
      if SL[I] <> '' then
      begin
        GetMem(Buf, Length(SL[I]) + 1);
        StrCopy(Buf, PChar(SL[I]));
        Add(Prefix, Buf);
      end;
  finally
    SL.Free;
  end;
end;

procedure Add(Prefix: PPrefix; Suffix: PChar);
var
  SP: PState;
begin
  SP := Lookup(Prefix, True);
  AddSuffix(SP, Suffix);
  System.Move(Prefix[1], Prefix[0], (NPREF-1)*SizeOf(Prefix[0]));
  Prefix[NPREF-1] := Suffix;
end;

procedure AddSuffix(SP: PState; Suffix: PChar);
var
  Suf: PSuffix;
begin
  GetMem(Suf, SizeOf(TSuffix));
  Suf.Word := Suffix;
  Suf.Next := SP.Suf;
  SP.Suf := Suf;
end;

procedure Generate(nWords: Integer; SL: TStringList);
var
  SP: PState;
  Suf: PSuffix;
  Prefix: TPrefix;
  W: PChar;
  I, nMatch: Integer;
begin
  for I := 0 to NPREF - 1 do
    Prefix[I] := NONWORD;
  Randomize;
  W := nil; //コンパイラを黙らせる
  for I := 0 to nWords - 1 do
  begin
    SP := Lookup(@Prefix, False);
    nMatch := 0;
    Suf := SP.Suf;
    while Suf <> nil do
    begin
      Inc(nMatch);
      if (Random($7FFF) mod nMatch) = 0 then
        W := Suf.Word;
      Suf := Suf.Next;
    end;
    if StrComp(W, NONWORD) = 0 then
      Break;
    SL.Add(W);
    System.Move(Prefix[1], Prefix[0], (NPREF-1)*SizeOf(Prefix[0]));
    Prefix[NPREF-1] := W;
  end;
end;

end.

使うときはこんな感じ

procedure TForm1.btnBuildAndSaveClick(Sender: TObject);
var
  Prefix: TPrefix;
  I: Integer;
  SL: TStringList;
  FileName: string;
begin
  if not OpenDialog1.Execute then Exit;
  FileName := OpenDialog1.FileName;
  for I := 0 to NPREF - 1 do
    Prefix[I] := NONWORD;
  Build(@Prefix, FileName);
  Add(@Prefix, NONWORD);
  SL := TStringList.Create;
  try
    Generate(MAXGEN, SL);
    SL.Text := StringReplace(SL.Text, #$0D#$0A, ' ', [rfReplaceAll]);
    SL.SaveToFile(ChangeFileExt(FileName, '_out.txt'));
  finally
    SL.Free;
  end;
end;

なんか冗長な感じ・・・ツッコミ希望。次は Java, C++ バージョンを Delphi らしく書いてみたい。

http://georgebush.exblog.jp/d2005-03-22
(via http://d.hatena.ne.jp/grayfox/20050322 via http://feedpath.jp/feedreader/)

これ最高。

開発中に思わぬエラーが出て、「セイセイセイ」とつぶやいている自分に気づいた。

コンパイル ﾌｫｰｰｰ!!!

http://www.nintendo.co.jp/n10/news/060126.html

いいね。ゲームで「遊」ばせることに関しては、Nintendo はピカイチだと思う。

『Delphi 2.0J 32bit パワープログラミング』 (1997.1.1 Charles Calvert著、篠原慶訳 \7500)

これ、もう手に入らないと思うけど、今でもたまにお世話になっている。本当に名著だと思う。なにがすばらしいかって、ただのハウツー本ではないところ。この姿勢は筆者の以下の言葉に表れている(ちょっと長いけど引用する)。

1.2.2 本書を有効に利用するには
　本書を読むにあたり理解しておいてほしい重要な点の一つは、本書は、Delphi の実行ファイルを最も迅速かつ簡単な方法で作成するための指南書ではないということである。本書にはその種の例を多く収めてあるが、簡単な方法ではなく難しい方法で実行ファイルを作る例も多数盛り込んである。
　では、なぜ必要以上に難しいことをするのか。
　それは、本書の目的が、表面下を深く掘り下げて、Delphi がどのように動作するのか、そしてときには Windows API がどのように動作するのかを示すことにあるからである。したがって、何かを行うための最も簡単な方法を示す代わりに、場所によっては Delphi の表面を徹底的にはぎとり、この精巧で高度な性能の表面下に隠れている複雑な機構を解明していこうと思う。

あと、VCL のソースは持っていたほうが良いとも書いてある。つまり、(本気で学ぶなら)Delphi 6 Personal では不十分だということ。本気で学ぶなら Delphi 以外を選びなさい、というツッコミは禁止。

ちなみに、原書は『Delphi 2 Unleashed』。『Delphi 4 Unleashed』 まで出ているはずだけど、邦訳されていない。たぶん。

復刊ドットコムで Delphi 本がいくつか復刊希望リストにあがっているけど、この本こそ復刊させるべきだと思う。ちなみに同サイトですでに復刊している、『Delphi オブジェクト指向プログラミング』も読んだのだけど、先にパワープログラミングを読んでしまっていたせいか、物足りなかった。もちろん、初めてな方にはオブジェクト指向?もおすすめ。

では、同書でとりあげられているすばらしいポイントをいくつか。これでもかなり絞った。絞らないと全部になっちゃう^^;。ちなみに、カッコ内はその内容にさかれているページ数

第2章 「Win32 での Delphi の型」 (40ページ)
第4章 「ポインタと PChar」 (30ページ)
第5章 「ポインタ、リンクリスト、メモリ」 (40ページ)
このあたりの基本をきっちりおさえている。ポインタと PChar は必読。

第6章 「例外」 (30ページ)
より安全なプログラムのために。

第9章 ? 第14章 (210ページ)
VCL に依存しない Windows API の解説。WinMain、WinProc、メッセージ、DLL、コールバックなどなど。

第22章 「オブジェクトと継承」 (35ページ)
第23章 「オブジェクト、カプセル化、プロパティ」 (30ページ)
第24章 「多態性」 (45ページ)
オブジェクト指向の基本。Delphi でどう使われているかの例。

第25章コンポーネントの作成 (35ページ)
第26章非ビジュアルコンポーネントの作成 (30ページ)
コンポーネント作成の基本。

第27章 ? 第30章 で OLE と COMの解説 (160ページ)
1997年の時点で、未来の主要な技術らしいので知っておこう、という話。

第31章・第32章 (95ページ)
DirectX を利用したグラフィックスの例。あくまで前章からの COM つながりで。さすがに古いかも？

やべっ。

一月になって急に「読みやすいHTML色作りツール」がたくさんはてブされてビビった。

はじめは、「なんでだろー？」と思っていたんだけど、一番最初にブックマークしてくれた方が有名ブログ(≒アルファブックマーカー)の方だった模様。その方を筆頭にずらっとブックマークされている。

おそるべし、アルファブックマーカー。

それはそうと、「読みやすい?」の色差・明度差は色関係ツールの標準装備になって欲しいと思ってます。エディタに保存コマンドがあるのと同じくらい常識になって欲しい。理由は http://www.towofu.net/mt/archives/2004/08/05_21_00.php のとおり。

『読みやすいことはただそれだけで正義である - ソクラテス(ｳｿ)』

なんなんだろうね。
あの一連のライブドアに関連する報道は。
少し黙っててほしい。

どうせ今騒いでも確定情報なんて出てこないんだから、ある程度確定した段階で粛々と報道すればよし。それを評論家つかったりなんだりで煽りまくり。

別にホリエモンを擁護する気はないけど、報道機関がきいてあきれる。
まあ、いつものことか。

さて本題。flickr で変なもの見つけた。

なんじゃこりゃー。

1. 窓の杜でレビューされて自己顕示欲を満たす。
2. (済)Vector でレビューされて自己顕示欲を満たす。
3. Google 日本語検索でヒット数 1000 を達成して自己顕示欲を満たす。
4. はてなブックマークで 100 ブックマークされて自己顕示欲を満たす。
5. オチを思いつかなかったので省略。

これで行くことにした。

http://dain.cocolog-nifty.com/myblog/2005/10/post_2312.html

最初に感謝の言葉を。これは今年のNo.1スゴ本。このスゴい本と出合えたのは、まなめさんのおかげ[参照]。ありがとうございます。

なんかスゴい本らしいので、今読んでいる本が終わったら図書館に借りに行く予定。ただ、絶版で買うことができないらしいので、興味を持たれた方は是非復刊投票をお願いします(もちろん私も投票済みです)。

参考リンク:
復刊ドットコム - http://www.fukkan.com/vote.php3?no=27132
関連情報リンク集 - http://englishweblog.net/mt/archives/000313.html

2ヶ月半まえに買ったこのゲーム。
やっと本編と無料シナリオまでクリアした。

ちなみに戦士・侍・ロード・盗賊・ビショップ・魔法使いという構成。

なんかサムライ不遇だった気もするけど、基本的にはファミコン版を彷彿とさせる内容。スーパーファミコン以降の進化版 Wiz についていけなかった私にはピッタリだった模様。

あ、でも、Diablo みたいにランダムに効果がつくフィーチャーあり。

# 有料シナリオ「慈悲の不在」も購入済み。

紹介記事:
http://www.4gamer.net/DataContents/game/1916.html
http://www.watch.impress.co.jp/game/docs/20050324/wiz.htm

最近あまり、はてなブックマークしていない。

というのも、手前味噌ながら、まず XTMemo でブックマークしてしまうので、「ま、後でいいか」となってしまう。

でも、「情報は発信するところに集まる」(http://nais.to/~yto/clog/2005-02-22-1.html)そうなので、なんとかしたい。

やっぱり「はてなでブックマーク」プラグインを書いたほうがよいかな・・・。

towofu.net になってから1年弱。
まだまだ、辞めそうにはないので2年延長してみた。

あと、XTMemo の WEB 版を Ajax で作ってみたいな、なんて妄想してるんだけどperl の知識も javascript の知識もその他もろもろも足りなさ気。

今の世の中にはフリーウェア／シェアウェア／体験版／バンドル版、色々あるけど、もっと作者が自由に選べてもいいじゃあないか。ということで考えてみた。

年収ウェア - 年収の多い人からたくさん頂く、嫉妬型モデル

苗字ウェア - 苗字の人口比率をたくみに利用し、やった俺他よりお得じゃん、という心理を利用する薄利多売モデル(参考: http://www.myj7000.jp-biz.net/)

禁煙ウェア - 食べ物屋で副流煙とか気にせず煙草吸っちゃうヤツとか本当ゆるせないんですモデル

3番目の禁煙ウェアのような社会的に意義のある主張は実用的かもしれない。

National 鼻毛カッター グレー ER430P-H

上のを買ってみた。はじめは安いこれにしようかと思ったけど、すぐ壊れても嫌なので高いのを買ってしまった。

んで、使ってみると、ジョリジョリと鼻毛が剃れてゆくのが思いのほか快感。
吸引機能がついていて、毛が中に残ったり、ちらばったりしないのもいい。

はやく、鼻毛生えてこないかなーとか思ってしまった。

ちなみに、「鼻毛」は「はなげ」ではなく、「びもう」と読むのが美しい。たぶん。

「バージョン番号なんて飾りです。
偉い人にはそれが分からんのです。」

そういえば一周年ぽいというのもあって、正式版としてリリースしてみました。

と、言っても上に書いてあるとおり、バージョン番号が変わったからといって急激にパワーアップするわけではありません。

今後も地道に更新していくのでよろしくお願いします。

新聞広告で気になっていた本。これがかなり面白い。

人類が各地域で異なる発展を遂げたのはなぜか。現在の社会にはなぜこれほどまでに格差があるのか。人種間に能力の差があるのだろうか。いやそうではない、と著者は言う。
その答えを1万3000年前からの人類の発展と淘汰の歴史とともに解き明かしてゆく壮大な話。

食料生産技術が発達して余裕ができると、人口が増えて、さらに軍隊をもったりする・・・というくだりでは「Age of Empires」というゲームを思い出した。(このシリーズも面白い)

Age of Empires III (予約特典付)