2007-05-01から1ヶ月間の記事一覧

東京優駿

現地で、しかもゴール板のまん前で観戦。サンツェッペリン頑張った。同じ逃げたアサクサキングスが二着を考えると中距離かマイルの血統だし距離が長かったのかな? ウォッカは歴史的瞬間をありがとう。なによりも、自分たちの血統で勝った馬主さん、カントリ…

クラスタ化するための資料

とりあえず、 Erlang -- slave 403 Forbidden 条件としては rsh(もしくはrshに代わるもの)で、パスワードなしでログインできること。 スレーブノードはマスターと同じファイルシステムを利用していなければならない。 Erlang/OTPは両方のコンピュータで同じ…

Magic Squares (#124)

奇数のみ class OddMagicSquare attr_reader :square, :order def initialize(order) @order = order @square = case when order % 2 == 1 then odd_order else make_square(@order) end end def show @square ? @square.map {|l| l.join(",") }.join("\n") …

tsungでjabberのmulti user chatに対応するためのpatch

tsungはerlangで書かれたベンチマーク。MUCに対応していなかったので、練習がてら作ってみた。 前提 ユーザ名が"prefix(xxx)"になってること。(xxxは数字) 追加するもの 追加したoptionは以下の二つ。 <option type="ts_jabber" name="muc:domain" value="conference"></option> <option type="ts_jabber" name="muc:member" value="2"></option> []muc domain[]:mucサーバのドメイン。(同じoptionのn…

Huffman Encoder (#123)

回答 # Ruby Quiz Huffman Encoder #123 module Enumerable def stable_sort_by(&block) i = 0 self.sort_by {|v| [block.call(v), i+=1]} end end class HuffmanEncoder def initialize(data) freq = Hash.new data.split(//).each do |c| freq[c] = 0 unle…

iconvを見て

自分は動いているものに機能を追加するのが苦手だと思う。機能追加中に起こるエラーが怖い。そのまま壊してしまうんじゃないか、作成者の意図に合わないコードを書いているんじゃないかと思ってしまう。きれいにやろうと、汚くしちゃ駄目だと考えすぎだ。上…

iconv install memo

ceanではなぜかiconv-1.0/priv以下がインストールされないのでjungerlから手動でインストールした時のメモ。 参考 [ubuntu-jp] stack_chk_fail_local 普通にインストールした場合、"undefined symbol: __stack_chk_fail_local"というエラーで動かないので、j…

edgy -> feisty

やっとupdateできた。 学校でupdateしたんだけど、苦難の連続でした。 途中に電源コードを踏まれたり。update完了したあと再起動しないから、強制終了させたら起動しなくなったり。かなりあせったけど、cd起動させて、 mount /dev/sda1 /mnt chroot /mnt /bi…

gauche.night感想

http://karetta.jp/article/blog/gauche-night/022932 座談会面白すぎです。とくに黒田さんとshiroさんのcommon lisp vs schemeが。haskellやrubyの肩身が狭そうでした。 マクロの話も盛り上がっていたのですが、自分はマクロをほとんどわかっていなかったの…

ja.reddit.comみてるが

erlang関連が多い。

Fizz-Buzz問題 その2

Erlangでもやってみた。 -module(fizz_buzz). -export([fizz_buzz/1]). fizz_buzz(N) -> fizz_buzz(N,[]). fizz_buzz(0,L) -> L; fizz_buzz(N,L) -> FizzBuzz = if N rem 15 == 0 -> "FizzBuzz"; N rem 5 == 0 -> "Buzz"; N rem 3 == 0 -> "Fizz"; true -> N…

Fizz-Buzz問題

どうしてプログラマに・・・プログラムが書けないのか? ruby版 (1..100).each do |i| print "Fizz" if i % 3 == 0 print "Buzz" if i % 5 == 0 print i if (i % 3 != 0 and i % 5 != 0) puts "" end これで僕も集団から抜け出せました。

anarchy golf

今更感が強いですが。 schemeでやってるけど、短くするために普段使わないuntilとか使って結構面白いね。

ubuntu update

6.10から7.04へのupdateに一日以上かかる事について。やっぱり自宅のISDNでは無理か。学校でupdateしよ。

かしわ記念

アジュディミツオー負けたよ。。。 馬券も負けたよ。

dictのサーバ化 其の弐

とりあえず、例外は全部捕まえることにした。 %% File: dict_server.erl %% dictをgen_serverを使ってサーバー化する(ただのwrapper) %% Tsungのソースを参考にした。 %% %% ToDo: %% * from_list, mergeの扱い %% %% -module(dict_server). -behabiour(gen_…

dictのサーバ化

gen_serverを使ってdictをサーバ化しようと思ったけど、ここまで書いてよくわからないエラーがでた。 %% File: dict_server.erl %% dictをgen_serverを使ってサーバー化する(ただのwrapper) %% Tsungのソースを参考にした。 %% %% ToDo: %% * エラーハンドリ…