問題1.8 立方根（cube root）を求める。 (define (cube x) (* x x x)) (define (square x) (* x x)) (define (improve guess x) (/ (+ (/ x (square guess)) (* guess 2.0)) 3.0)) (define (cube-root-iter old-guess new-guess …続きを読む
選択範囲を数値文字参照に変換するスクリプト str2numchar.vim – 川o・-・）＜2nd life を参考にして HTML文字実体参照（& < > " => & < > "）の変換・逆変換をするvimスクリプトを作った。 スクリプトファイル str2htmlentity.vim…続きを読む
問題1.6 (new-if (good-enough? guess x) guess (sqrt-iter (improve guess x) x)) new-if は通常の手続きのため、作用的順序の評価では引数が先に評価されるので、 (good-enough? guess x) が真を返す場合でも (sqrt-iter (improve guess x) x) まで評価されるので、無限ループに陥…続きを読む
以前読みかけて挫折していた SICP にもう1度挑戦するために今度は blog でメモを取りながら続けてみる。 問題1.2 (/ (+ 5 4 (- 2 (- 3 (+ 6 (/ 4 5))))) (* 3 (- 6 2) (- 2 7))) ;=> -37/150 問題1.3 (define (square a) (* a a)) (define (sum-of-squares a b) …続きを読む
以下のサイトを参考にして vim で gauche を編集中にスクラッチバッファに評価結果を表示させてみた。 vimのgaucheの出力をウィンドウ分割して表示 | jigen studylog 先日のvimとgaucheの連携をちょっと改良 | jigen studylog scratch utility : 自由に開閉できる作業用バッファ管理プラグイン — 名無しのvim使い まず、scrat…続きを読む
次のスクリプトを使って vim で <img>タグを挿入する際に width, height 属性を自動入力する。 画像の情報を取得するのに ImageMagick の identify を使用している。 スクリプトファイルは適当な名前（imgsize）で PATH の通った場所に保存する。 #!/usr/bin/env ruby ARGV.each { |file| if FileT…続きを読む
Mac OSX に ImageMagick を PHP から利用する PECL::imagick をインストールした際のメモ。 $ sudo pecl install imagick 上記のインストール方法では、MagickWand-config, Wand-config が見つからないというエラーが出てインストール出来なかったのでソースからコンパイルしてインストールした。 $ pecl bund…続きを読む
paulhammond.org: Conditional classnames [CSS]スタイルシートをIEだけに適用する大胆で簡単な条件式の使い方 | コリス を見て外部スタイルシートを分ける方法も試してみた。 <!–[if IE]> <link rel=”stylesheet” href=”bcs-ie.css” type=”text/css” /> <![e…続きを読む
SOY CMS の sqlite版を XREA のサーバにインストールするにはCGIモードでインストールする必要があるようなので、そのメモ。 下の画像はテストインストールしたサイトのスクリーンショット。 XREA では PHP が safe mode で動作しているので mkdir() などでエラーが出てインストールが上手くいかないようなので、CGIモードでインストールする。 ファイルをアップロー…続きを読む
ファイルの共有・同期ができるWebサービスの Dropbox を Ubuntu 8.04(ThinkPad X60) にインストールした。 MacOSX で、すでにアカウントを取って利用していたので Mac とのファイル共有・同期に使う。 インストールには Ubuntu 用のリポジトリが提供されているので、そちらを利用してインストールする。 /etc/apt/source.list に次のリポジト…続きを読む