tomohikoのブログ

タイトル通り crypto:rand_uniform のサンプルを。 １番苦労したのは、モジュールのロードでした。 普通にやっていたら、「定義されていない関数だ」みたいなエラーがでました。 そこを踏まえ、サンプルの提示です。 ◆モジュールのロード ソースのコン...

Erlangのリファレンスには、ちゃんとモジュールがあるが、実際に動かそうとすると、そんなモジュールないよと怒られる。 そんなときにはどうするか。 モジュールをロードしよう。 ◆Erlangシェルの場合 .(ピリオド)erlangに設定する Erlangシェ...

Rubyの勉強をしている。 そのとき、スレッドを並行実行するサンプルを丸写しした。 そのサンプルをErlang版として記述した。 以下にそれをコピペしておく。 ◆並行実行動作 １．２つのプロセスが生成される。 ２．それぞれのプロセスはある時間（秒）スリープして、時間...

◆ peername ：接続元のIPとPort番号を返却する peername(Socket) -> {ok, {Address, Port}} | {error, posix()} Types: Socket = socket() Address = ip_addre...

下記URLにあるタイマーサーバを真似てみた。 Erlang Programming Language : http://www.erlang.org/article/15 サーバと通信するクライアントも作った。 サーバは現在日付と時刻を返す。 クライアントはそれを表示...

tcpの勉強をしている。 Cのプログラムを組んで、Erlangでも試してみることをしている。 そこで、Erlangのオンラインマニュアルにあるサンプルを動かしてみた。 Erlang -- gen_tcp : http://www.erlang.org/doc/man/ge...

TCPの勉強のつづき。 ローカル上でHTTPサーバを立てて、ブラウザで「Hello」と表示する。 C言語で実装したものをErlangでやってみた。 ソースを貼るが、もっとわかりやすいソースがWebにあったので、そちらをまず紹介。 Erlang で httpd - プロ...

通信の勉強中。CでTCPをつかった通信のサンプルコードをサイトを見ながら書いた。 そこで、Cで書いたものと（ほとんど）同じものをErlangで書いた。 動作の概要を以下にイメージ図で示す。 client が一回だけ server に接続して、送られてきたデータ(H...

Erlangで２プロセス（Erlangの軽量プロセスのこと）起動し、それぞれのプロセスがhandler_loop(count_loop)から自然数を取得し、３９までのフィボナッチ数を計算する。 １つのプロセスが自然数Nのフィボナッチ数を計算し始めたら、もうひとつのプロセスはN...

コンパイルは通した。 deleteのユニットテストがまだ。 それにしても、ブログに書くと、見難い。 ◆ソース -module( avl_tree ). -ifdef( debug ). -compile( export_all ). -else. -exp...

今日は、AVL tree の挿入を。 アルゴリズムは、各自Wikipedia等でお願いします。 わかりづらいソースなので、コメントを厚くしたものを載せるつもりです。 ◆ソース -module( avl_tree_insert ). -ifdef( debug )...

今日は、２分探索木の削除の一部を。 ２分探索木のツリーからあるノードを削除する場合、削除対象ノードの右の部分木から最小のノードを取り出し、削除対象ノードと置き換える動作を行う。 削除の中核をなすこの動作のソースを記載したいと思う。 ◆take_smallest/1 ...

今日は、２分探索木の更新(update/3)を。青文字部分はユニットテストのためのソース。 仕様は以下の２点。 １．更新するノード（Key）がある場合、Valueを更新する。 ２．更新するノード（Key）がない場合、対象ノードを挿入する。 ◆ソース -module...

今日は、２分探索木のinsertを作ってみた。 ■insert/2 insert( Key, Value , Tree ) -> tree() | {key_exists, Value } {key_exists, Value }はすでに同一キーがTreeにある場合...

Erlangには、可変引数がないみたい。検索に引っかからない。 どうにか、デバッグ(io:format)で可変引数っぽくできないかと考え、作ってみた。 ■ソース -module(va_args). -export([start/0]). -define( LOG( ...

今日は、２分探索木の探索についてのソースを。 【データ構造】 -record( tree, { key, value, smaller, bigger } ). タプルだね。 【アルゴリズム】 基本的な２分探索木のサーチ ■ソース(gb_tree.erlを参考に作...

stackモジュールがないので、作ってみた。突貫で。 コンパイルとおしただけ。 １番下にある追記参照。 【ソース】 -module(stack). -ifdef(debug). -include_lib("eunit/include/eunit.hr...

サンプル（速報版） -module(binary_search). -export([search/2]). -include_lib("eunit/include/eunit.hrl"). -define(Middle,Mid = (Lo + Hi...