2010/01/11

第1回 Scheme コードバトン

第1回 Scheme コードバトンのお知らせ - ひげぽん OSとか作っちゃうかMona- に参加しました。

  1. higepon さん http://gist.github.com/273431 http://d.hatena.ne.jp/higepon/20100110/1263121990
  2. g000001 さん http://gist.github.com/273441 http://cadr.g.hatena.ne.jp/g000001/20100111/1263204766
  3. aka さん http://gist.github.com/273567 http://aka-cs-blog.blogspot.com/2010/01/scheme.html
  4. 私(quek) http://gist.github.com/274187

ときて次は snmsts さんにお願いしました。

higepon さんのとろでは Scheme でのコマンドラインツールでした。 g000001 さんのところで Common Lisp での repl 上のツール(関数)になっています。 aka さんのところで単語登録ができるようになりました。

私の変更は次のとおりです。

  • "~" を解釈しない Common Lisp なので (merge-pathnames ".hige/words.txt" (user-homedir-pathname)
  • (probe-file dict-file) で辞書ファイルの存在をチェックして
  • 辞書ファイルがない場合は (ensure-directories-exist dict-file) でディレクトリだけは作成しておく

この遊びは面白いですね。変更量も変更内容も人それぞれで、コードを読むのが楽しいです。

0 件のコメント: