Erlang Passo a Passo

もともとこのブログは、Erlangを探るため、またその備忘として始めたのでした。 しかし、その最初がこれかという感じもしますが...。

Erlangは変数の値が変更できないのでしたが、 場合によっては、どうしても破壊的代入を行いたくなることがあります。 Erlangではそのようなケースも察してか、ETSという、破壊的代入ができる、汎用性の高いハッシュテーブルが用意されています。 （ただしETSの仕組みのうち、順序付きセットはハッシュテーブルではなく平衡二分木で実装されているとのことです）

-module(ets_hina).
-export([start/0]).

start() ->

   TableId = ets:new(test, [ set ]),
   receiver(TableId).


receiver(TableId) ->

   receive
       {init} -> init(TableId),
           receiver(TableId);

       {view} -> view(TableId),
           receiver(TableId);

       {set,A,B} -> set(TableId,A,B),
           receiver(TableId)
   end.

init(TableId) ->
   ets:insert(TableId, {a,1}),
   ets:insert(TableId, {b,2}),
   ets:insert(TableId, {c,3}),
   ets:insert(TableId, {d,4}).

view(TableId) ->
   List = ets:tab2list(TableId),
   io:format("~-13w => ~p~n", [set, List]).

set(TableId,A,B) ->
   ets:insert(TableId, {A,B}).

これをコンパイルします。

> c(ets_hina).                      
{ok,ets_hina}

早速、プロセスを生成してみましょう。

> Pid = spawn(fun ets_hina:start/0).
<0.57.0>

テーブルの中身を見るよう、先ほど生成したプロセスに、viewメッセージを送りましょう。

> Pid ! {view}.                     
set           => []

当然中身は空っぽです。 値を代入していないからですね。

では、テーブルの値を初期化するよう、initメッセージを送ってみましょう。

> Pid ! {init}.                     
{init}

もう一度、viewメッセージを送って、テーブルの中身を表示してみましょう。

> Pid ! {view}.
set           => [{d,4},{c,3},{b,2},{a,1}]

はい。テーブルの中身が表示されました。

では本日のお題。 aの値を1から9へ変更してみましょう。

> Pid ! {set,a,9}. 
{set,a,9}

見てみましょう。

> Pid ! {view}.   
set           => [{d,4},{c,3},{b,2},{a,9}]

はい。値が変更されました。

今度は新しいキーwaoとその値8を送ってみましょう。

> Pid ! {set,wao,8}. 
{set,wao,8}

見てみましょう。

> Pid ! {view}.     
set           => [{wao,8},{d,4},{c,3},{b,2},{a,9}]

セットされました。

しかし、Erlang、簡単すぎる。 これはマルチコア時代のBASICか。 それかSmalltalk（80ではなく、アランケイ先生が本当に好きとおっしゃる初期のやつ） にも、似ている感じがする。

もっとも、これから探っていくので、まだほんとにはわからないな。