タイトルの通りのものを書きました. LISPのS式をgraphviz用のdotファイルへ変換します. 下記のアドレスからダウンロードできます. PerlとClass::Accessor::Fastがあれば動くはずです. http://www.tom.sfc.keio.ac.jp/~chiko/s2dot/s2dot.pl最近LISPで書かれ…
http://www.tom.sfc.keio.ac.jp/~chiko/mathematica/test.flvあそんでます．
昨年末から確率を使った推論をしこしことPerlで書いているのですが,どうにもこうにも遅くてたまりません. 一つ一つの計算は簡単で,すぐに終わるのですが,処理するべきデータ量が多く, しかも組み合わせ量も爆発してて大変な感じです.そこで,並列プログラミン…
ナイーブに書いてみました． -module(fib). -export([fib/1]). fib(N) -> if N == 0 -> 1; N == 1 -> 1; true -> fib(N -1) + fib(N - 2) end.if文の条件のところに or式は使えないのだろうか？使ってたら文法エラーになりました．なんか直感的ではないと思…
> if文の条件のところに or式は使えないのだろうか？使ってたら文法エラーになりました．と書きましたが，これは間違い．式の評価順序の問題でした． 8> (1 == 1) or (1 == 1). true 9> 1 == 1 or 1 == 1. ** 1: syntax error before: '==' **どうも==よりも…
単年度契約, 更新は2回までという有期契約満了に付き, 本日退職いたしました.明日からは某大学で院生をやることになっています. 何が求められているか, そして結果をどうアピールするかについてよくなやんだ気がします.求められないことをやっても仕方が無い…
コマンド名からldapdeleteを使うように思いがちですが，それはトラップ．ldapmodifyを使いましょう．利用例は次の通り % ldapmodify -x -W -h ns0.sfc.keio.ac.jp -D uid=chiko,ou=people,dc=sfc,dc=keio,dc=ac,\ dc=jp dn: uid=chiko,ou=People,dc=some,dc=…
ちょっとはまったのでメモを残しておきます.Sargeでは"apache2-make-certificate"だったけれど，Etchではmake-ssl-certコマンドを使います．使い方はこんな感じです: make-ssl-cert /usr/share/ssl-cert/ssleay.conf /etc/apahce2/ssl/apache2.pem第1引数に…
忘れてしまいました.困った.結構はまったので,対処を書いておきます. mysqldの停止 --skip-grant-tables オプション付きでmysqldを起動 クライアントで接続し,パスワード変更 mysqldの停止と再起動 ポイントは--skip-grant-tablesオプション.これをつけるとm…
神戸戦での交代と,ジェフ戦での「けがによる欠場」を見て,なんとなく予想はしていましたが,こんなに早く表に出てくるとは.というのが正直な感想です.契約解除とのことですが,違約金はいくらとれたんだろうか.そこが心配です.ちゃんと違約金条項が含まれてい…
このブログは別にサッカーブログではありません．ただ私はとてもサッカーが好きで，J1だと川崎フロンターレを応援しています．サッカープレー歴はありません．そういう私なりに，フロンターレの試合を見ていて考えたことを書いておきます．開幕から2試合，フ…
昨日インストールを途中でやめたInline::Ocatveですが，インストールできました．Makefile.PL実行時に，Ocatveへのパスを次のように指定してあげると良かったようです． Please enter new path to executabl/Applications/Octave.app/Contents/Resource/bin/…
クラスタリング周りの実験をしようと思い，簡便に行列計算ができるものを探してみました．Matlabが行列計算に強いということは知っていたけれど，有償のうえに高いらしいので選択肢から除外．フリーなもの，できればPerlから呼べるものを探してみました．で…
海外出張用にアイマスクと耳栓は持っていたので，本当に睡眠時間を短くする方法というのを試してみました． 実験環境 明かりは全部消してあります．その他，寝ている布団，部屋の空調は普段と同じ状態です．アイマスクは・・・商品名は忘れましたが5つくらい…
（このエントリーは，数式で表現する試みの一環です）バストとカップサイズはわかってるんだけど，アンダーバストの大きさはわからない．そういうときには計算して求めてしまいましょう．アンダーとトップとの差が2.5センチ大きくなるごとに，一つカップサイ…
次元の呪いに掛かっているような気がする．いまいちですなあ．
松島かえでが引退してしまって悲しいので，よく似た人を捜すことにしました．DMMから集めた3700人弱の女優を出演作をもとに数値化し， 単純なクラスタリングをしてみました．で，結果． 名前 出演作 葵みのり http://www.dmm.co.jp/digital/videoa/-/list/=/…
DMMの女優一覧をクロールし，scrapeして統計を取ってみました． カップ 人数 A 10 B 195 C 447 D 452 E 366 F 234 G 138 H 52 I 26 J 12 K 3 N 1 全女優数が3700弱いて1750人程度のカップ数がとれなかったので， 実態を反映していない可能性はあります．ぱっ…
#/usr/bin/perl sub add{ my $var = shift; return $var + 1; } print add(1) . "\n";
CPANからインストールする際に少しはまったので，やり方をメモしておきます．ポイントは次の二つ． blibをちゃんと適切な場所にコピーすること /usr/local/mysql/lib/mysqlにmysql関係のdynamic link libraryをおいておくこと 以下，経緯．まず普通にCPANシ…
http://labs.adobe.com/technologies/flex/flexbuilder3/リリース前最後のベータバージョン． パフォーマンスの向上が目的のリリースなんだそうですよ．
AS3でSingletonパターンを実装しようとしてみた．まずはJavaでよく使われる手法をつかってみましたが，うまくいきませんでした． package test; { public class Singleton { private var count:int; private function Singleton(){ this.count = 0; } public…
FlexのTreeコントロールは特にアイコンを用意しなくても，子要素があるものにはフォルダのようなアイコンを，そうでないものにはファイルっぽいアイコンを表示します．それを自分好みのものに変えたい時というのはありますよね．そんなときは，次のどちらか…
TreeのdataProvider属性にArrayなりArrayCollectionなりを指定すれば， Treeに要素を羅列することはできる． var tree:Tree = new Tree; tree.dataProvider = ["aaa", "bbb", "ccc", "ddd"];ただTreeで階層的に表示するには，ちょっとしたこつがいるのだ． …
AJAX関係でよくあるインクリメンタルサーチのActionScript版． これもArrayにあるfilterメソッドの練習として作ってみました． <mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="initApp()"> <mx:ArrayCollection id="a" /> <mx:Script> </mx:script></mx:arraycollection></mx:application>
はてな記法にはActionScriptは無いのね．
var a:ArrayCollection = new ArrayCollection(["aaa", "bbb", "ccc", "ddd", "eee"]); var b:ArrayCollection = new ArrayCollection(["bbb", "ccc"]); var result:Array = a.toArray().filter( function(item:*, index:int, arr:Array):Boolean{ item = it…
PerlでYAMLからJSONへ変換するスクリプトを書いてみた． !/usr/bin/perl use Getopt::Long; use YAML; use JSON; my $infile = undef; my $outfile = undef; sub main{ my $in = STDIN; my $out = STDOUT; if($infile && $infile ne ''){ open($in, $infile)…
再帰の高速化では常套手段のメモ化してみる． 今回はack関数の引数をキーにして，計算結果を保存する辞書を作ってみた． !/usr/bin/python memo = {} def ack(m, n): if not(memo.has_key((m,n))): if m == 0: memo[(m,n)] = n+1 elif n == 0: memo[(m,n)] =…
def ack(m, n): if m == 0: return n +1 elif n == 0: return ack(m -1, 1) else: return ack(m - 1, ack(m, n-1)) for m in range(1,10): print ack(m, 1) ナイーブ過ぎて，スタックオーバーフローしますねえ．
