HSDocumentBuilder

Magic Trackpad

2010-08-05T19:56:00.001+09:00

マウス運

で提案した物が本当に出た。

慣れるまでは、違和感がありますが、
操作感は、悪くありません。

JRubyでJDBCを使うには

2010-07-13T20:22:00.000+09:00

JRubyでjdbcを使うのに、Class.forName()はなぜか使えない。

そのかわり、Driverを直で叩くと使える。
例：

d = org.postgresql.Driver.new
cp = java.util.Properties.new 
cp.put("user", user) 
cp.put("password", password) 
c = d.connect(url, cp) 
s = c.createStatement 
rs = s.executeQuery(sql)

JSFとResultSet

2010-07-10T21:47:00.000+09:00

JSFのdataTableで、FirebirdのデータをJDBCを介してResultSetを取得して内容を読もうとして、

Not yet implemented.

とエラーが出た。ResultSetを返す部分は、

Statement s = conn.createStatement();
String sql = "select * from t";
rs = s.executeQuery(sql);

これでは、原因がさっぱりわからなかったので、
とりあえず、メジャーなMySQLとPostgreSQLで同じことを試した。
MySQLは、上記のコードでOK。

PostgreSQLは、以下のエラーが出た。

Operation requires a scrollable ResultSet, but this ResultSet is FORWARD_ONLY.

原因が掴めたので、以下のようにすると、PostgreSQLもFirebirdも動いた。

Statement s = conn.createStatement(
  ResultSet.TYPE_SCROLL_SENSITIVE, 
  ResultSet.CONCUR_READ_ONLY);
String sql = "select * from t";
rs = s.executeQuery(sql);

NetBeans 6.9

2010-07-04T20:12:00.000+09:00

NetBeans 6.9を使ってみている。

デザインも、操作性も、軽さもIDEとしては十分なレベル。
さらには、Java,JRuby,C/C++,主要なフレームワーク,アプリケーションサーバまでオールインワン。

Java関連を手っ取り早く手に入れて試すのには一番良いかもしれない。

JRuby

2010-07-03T18:16:00.002+09:00

Java関連で色々調べている内に、JRubyの存在を思い出した。
昔は、まだまだ遅いという結論になったんだけど、

今回、Rubyと比べて、
Mac OS X上で、互角か場合によっては、それ以上。
Windows上では明らかに、上のパフォーマンスを得られた。

sqlite3を動作させるのに、sqlite3-rubyが使えない問題は、残っているけど、
この問題が解決すれば、Rubyが、Windowsで使うメインスクリプトの座を奪還するかもしれません。

ASP.NET

2010-06-28T22:03:00.000+09:00

普通にGUIアプリを作る感覚で、簡単なWebアプリなら作れそう。

VB.NETが使えるから、VBしか経験がない人に対しても、敷居が低そうなところも魅力。

個人的には、Javaでフレームワーク組み合わせてみたいなことをやりたいけど、
開発効率と保守の観点から、魅力的な選択肢。

ADVANCED WORLD WAR 千年帝国

2010-06-27T15:10:00.000+09:00

手に入れた。
ハマった。
シミュレーションゲームの傑作。

パワーメモリも買ってしまった。

Re: pushマクロ

2010-06-26T16:17:00.000+09:00

pushマクロ

を、syntax-caseを使って書くと、かなりシンプルになった。

(define-syntax push
  (syntax-rules ()
    ((_ x (f y))
     (let ((g y))
      (set! (f g) (cons x (f g)))))
    ((_ x lst)
     (set! lst (cons x lst)))))

On Lisp Common Lisp to Scheme 9

2010-06-19T20:12:00.000+09:00

Figure 5.1: Returning destructive equivalents.

(define *!equivs* (make-hash-table))

(define !
  (lambda (fn)
    (or (hash-table-get *!equivs* fn #f)
        fn)))
  
(define def! 
  (lambda (fn fn!)
    (hash-table-put! *!equivs* fn fn!)))

SQLite3 WrapperをPythonに移植

2010-06-17T19:19:00.000+09:00

SQLite3 & ADODB Wrapper for Ruby の、SQLite3の部分をPythonに移植作業中

標準で、sqlite3が使えるのもあるのか、やたらと速くなった。

On Lisp Common Lisp to Scheme 8

2010-06-16T19:41:00.000+09:00

Figure 4.8: Functions which operate on symbols and strings.

(define mkstr
  (lambda args
    (call-with-output-string
      (lambda (s)
        (dolist (a args) (display a s))))))
        
(define symb
  (lambda args
    (string->symbol (apply mkstr args))))
    
(define reread
  (lambda args
    (read-from-string (apply mkstr args))))
    
(define explode
  (lambda (sym)
    (map (lambda (x) (string->symbol (string x)))
         (string->list (symbol->string sym)))))

RubyとPythonの可変長引数の決定的違い

2010-06-09T20:37:00.001+09:00

ruby:

f(*a)
  a
end

と、

python:

f(*a):
    return a

では、動作に決定的な違いがある。
rubyでは、
f(*[1,2],3,*[4,5]) => [1,2,3,4,5]
のように、*arrayと他を組み合わせることができるけど、
pythonでは、
f(*[1,2],3,*[4,5]) => SyntaxError: only named arguments may follow *expression
と、エラーになってしまう。

pythonの場合、rubyのflattenに相当するものを作れば、以下のように回避できる
f(*flatten([[1,2],3,[4,5]]))

と、思っていたんだけど、もっと一般化した時に困る。
つまるところ、listと他の値を混在して、渡したい時に困る。

pythonの場合、そもそも、以下のように、配列を渡すようにするのが、現実的。
g([[1,2],1,[3,4],2])

プログラミング言語 SCHEME 第８章拡張シンタックス

2010-06-04T23:08:00.000+09:00

「プログラミング言語 SCHEME」の第８章拡張シンタックス

突然、難易度が上がった。

syntax-caseを使うにために、PLT Scheme(DrScheme)をインストール

Lazy Schemeなんてものも使える（他には、FrTime, Algol 60）。
Lazy Schemeはちょっとは想像つくけど、他はとりあえず、謎。

それは、それとして、無知にも比較的新しいものと思っていたsyntax-caseが、
少なくとも2000年の時点（本の出版年度から考えて）で存在することにびっくり。

ふたたびPythonにお世話になる

2010-05-26T19:10:00.000+09:00

Windows上のRubyの遅さが、モロに影響するデータを処理する必要が出てきた。

Pythonの方が圧倒的に速いので、ふたたび、Pythonのお世話になることにした。

しかし、関数の定義の出だしが似ているとか、値を返すにはreturnしないといけないとか、()つけないと、関数オブジェクトが返るとか、細かな点で異なるから、良く打ち間違える。

On Lisp Common Lisp to Scheme 7

2010-05-24T20:14:00.000+09:00

Figure 4.7: I/O functions.

(define my-read-line
  (lambda args 
    (let ((str (apply read-line args)))
      (if (equal? str "")
          (apply read-line args)
          str))))

(define readlist
  (lambda args
    (values (read-from-string
      (string-append "("
                     (apply my-read-line args)
                     ")")))))
                     
(define prompt
  (lambda args
    (apply format (current-output-port) args)
    (flush (current-output-port))
    (read (current-input-port))))

(define-macro (loop x)
  `(call/cc
    (lambda (return)
      (while #t
             ,x))))

(define break-loop
  (lambda (fn quit . args)
    (format (current-output-port) "Entering break-loop.~%")
    (flush (current-output-port))
    (loop
      (let ((in (apply prompt args)))
        (if (quit in)
            (return)
            (format (current-output-port) "~A~%" (fn in)))))))

Gaucheインタプリタ上でのread-line 2

2010-05-20T20:42:00.000+09:00

一晩経って、もっと単純にできることに気がついた。

ついでに、引数も渡せるようにした。

(define my-read-line
  (lambda args
    (let ((str (apply read-line args)))
      (if (equal? str "")
          (apply read-line args)
          str))))

Gaucheインタプリタ上でのread-line

2010-05-19T21:06:00.000+09:00

gaucheインタプリタ上では、read-lineは、困った動きをする。

> (read-line)
""
>
などと、read-lineを実行した直後のリターンコードを読み込んでしまう。
となると、
On Lispの、
Figure 4.7: I/O functions.
readlist
の実装が暗礁に乗り上げる。
> (read-line)a b c
"a b c"
>
などとして、出来たことにしても良いけど、どうにか回避することに挑戦する。
とりあえず、readは動作するので、最初だけreadで読み込んで文字列に変換すれば良い。
つまり、

(write-to-string (read) write)

これに、(read-line)の結果をつなげるんだけど、
単純に、

(string-append (write-to-string (read) write) (read-line))

は、Gaucheでは働くけど、Schemeは評価の順番が不定だから、他の処理系では、動かない可能性がある。
そこで、もう少し、工夫して、

(let ((str (write-to-string) (read) write)))
  (string-append str (read-line)))

これで、readlistは、準備OK

セガサターンゲットだぜ！

2010-05-16T16:21:00.000+09:00

ジャンクのセガサターンを手に入れた。

懐かしの、ガングリフォン～ザユーラシアンコンフリクト～
も手に入れた。

懐かしすぎて、涙ものである。

後は、「ADVANCED WORLD WAR 千年帝国」を手に入れたら言うことはない。

C++の設計と進化読了

2010-05-15T17:58:00.000+09:00

C++の設計思想。Bjarne Stroustrupの思想。物事が決っていくプロセス。
そして、後発の様々な言語がC++の影響を受けているということに対する驚き。

これらが、この本の醍醐味。

C++にもっと習熟してから、もう一度読み直したいと考えている。
新たに得られるものがあるはずである。

pushマクロ

2010-05-12T18:14:00.000+09:00

多重評価のバグが入り込む典型例。

普通は、

(set! lst (cons x lst))

と考えば良いけど、lstが二回評価されて、おかしな動作をする可能性がある。

ということで、pushマクロを修正。

(define-macro (push x lst) 
    (if (pair? `,lst) 
        (let 
            ((g1 (cadr `,lst)) 
             (g2 (car `,lst)) 
             (g (gensym))) 
            `(let ((,g ,g1)) 
                (set! (,g2 ,g) (cons ,x (,g2 ,g))))) 
        `(set! ,lst (cons ,x ,lst))))

On Lisp Common Lisp to Scheme 6

2010-05-08T17:38:00.002+09:00

Figure 4.6: Mapping functions.

(define-macro (push x lst)
    `(set! ,lst (cons ,x ,lst)))

(define map0-n
  (lambda (fn n)
    (mapa-b fn 0 n)))
    
(define map1-n
  (lambda (fn n)
    (mapa-b fn 1 n)))

(define mapa-b
  (lambda (fn a b . args)
    (let-optionals* args ((step 1))
      (do ((i a (+ i step))
           (result '()))
          ((> i b) (reverse! result))
        (push (fn i) result)))))

(define map->
  (lambda (fn start test-fn succ-fn)
    (do ((i start (succ-fn i))
         (result '()))
        ((test-fn i) (reverse! result))
      (push (fn i) result))))

(define mappend 
  (lambda (fn . lsts)
    (apply append (apply map fn lsts))))
  
(define mapcars
  (lambda (fn . lsts)
    (let ((result '()))
      (dolist (lst lsts)
        (dolist (obj lst)
          (push (fn obj) result)))
      (reverse! result))))

(define rmapcar 
  (lambda (fn . args)
    (if (any (lambda (x) (not (pair? x))) args)
        (apply fn args)
        (apply map
               (lambda args
                 (apply rmapcar fn args))
               args))))

2010-05-09 修正: pushマクロ追加

ポータブルRuby

2010-05-07T22:57:00.000+09:00

OneClick Ruby Application Builder(OCRA)
と、evalを組み合わせると、Rubyスクリプトを実行できる、コンパクトなexeを作ることができる。

ruby_eval.rb:

require '...'
require '...'

def cont
   ARGV.shift
   binding
end

if ARGV[0]
    File.open(ARGV[0], "r") do |file|
        eval file.read, cont
    end
end

ocra ruby_eval.rb
=> ruby_eval.exe 完成

これで、

ruby_eval.exe hello.rb

などと、スクリプトを実行できる。

ARGVは、Bindingをevalに渡すことで、参照できるようにする。
スクリプトでrequireするものは、予め、ruby_eval.rbでrequireする必要があるのが注意点。

ちなみに、ocraでスクリプトをチェックする時、ARGV[0]はnilと評価される。
そのため、if ARGV[0] ... end で挟まないと、タイプエラーが出る。
ズボラなスクリプトは、ocraではそのまま、exeにできないことがある。

The C++ Programming Language

2010-05-06T21:54:00.000+09:00

「C++の設計と進化」は今、第二部を読み進めている。

効率を優先する実用言語の中で、C++ほど言語として興味深いものは無い。
何しろ、エレガントさを優先する言語と比べても、十分、興味深いのである。

なぜ、Haskellに進むはずが、C++に脱線したかというと、不思議なことに、
Common LispとC++の間に似たものを感じたから。

多様性とメタプログラミング

C++を理解することで、Common Lispの理解も深まることを期待している。
ということで、じっくり極めてみることにしました。
今までの経験で、バイブルの類いは、大概は訳が酷いので、思い切って洋書の、
「The C++ Programming Language Third Edition」
を入手。

Haskellに通じる何かが見つかれば、更におもしろい。

SQLite3 <=> Jet 4.0 Wrapper For Ruby 改良版公開

2010-05-05T17:23:00.000+09:00

ファイル構成変更。これで、ADODBのプロバイダの変更が容易に。
サンプルプルグラム追加。

SQLite3 & ADODB Wrapper for Ruby

テンプレートメタプログラミング

2010-05-03T17:00:00.001+09:00

C++の設計と進化を読んでいて、ふと、テンプレートメタプログラミングの領域に足を踏みいれてみたくなった。

パターンマッチとか、関数型プログラミングとか、かじったことがあると、理解に役に立つ。
問題は実用的な応用だけど、ぱっと考えると、データ構造を作るのに使うのが実用的。

とりあえず、練習として、pairを使って、以下を書いてみた。

#include <iostream>
#include <utility>

using namespace std;

template <int N>
struct Array : std::pair<int, Array<N - 1> >
{
};

template <>
struct Array<0>
{
};

int main()
{
  Array<3> a;
  
  a.first = 1;
  a.second.first = 2;
  
  cout << a.first << endl;
  cout << a.second.first << endl;
  
  return 0;
}

On Lisp Common Lisp to Scheme 5

2010-04-30T23:32:00.000+09:00

Figure 4.5: Search functions which compare elements.

(define-syntax mset!
  (syntax-rules ()
    ((_ v x)
     (set! v x))
    ((_ v x v2 x2 ...)
     (begin (set! v x) (mset! v2 x2 ...)))))
     
(define most
  (lambda (fn lst)
    (if (null? lst)
        (values '() '())
        (let* ((wins (car lst))
               (max (fn wins)))
          (dolist (obj (cdr lst))
            (let ((score (fn obj)))
              (when (> score max)
                (mset! wins obj
                      max score))))
            (values wins max)))))
            
(define best
  (lambda (fn lst)
    (if (null? lst)
        '()
        (let ((wins (car lst)))
          (dolist (obj (cdr lst))
            (if (fn obj wins)
                (mset! wins obj)))
            wins))))
            
(define mostn
  (lambda (fn lst)
    (if (null? lst)
        (values '() '())
        (let ((result (list (car lst)))
              (max (fn (car lst))))
          (dolist (obj (cdr lst))
            (let ((score (fn obj)))
              (cond ((> score max)
                     (mset! max score
                           result (list obj)))
                    ((= score max)
                     (push obj result)))))
          (values (reverse! result) max)))))

Scheme, Common Lisp 間の変換

2010-04-24T18:59:00.001+09:00

Common Lispのソースを、Schemeに直している時に気がついた、仕様の相違点

真偽値判定が違う
特に、
Common Lispでは、空リストとNILは等しいのに対して、
Schemeでは、実装によって真か偽か異なる。さらには、#f != '()である

cdrに空リストを渡した時の動作が違う
Common LIsp: (cdr '()) => '()
Scheme : (cdr '()) => error

if式の仕様が異なる
Common Lisp: (if nil a) => nil
Scheme : (if #f a) => #<undef> (Gaucheの場合)

On Lisp Common Lisp to Scheme 4

2010-04-24T17:51:00.001+09:00

Figure 4.4: Functions which search lists.

(define find2
    (lambda (fn lst)
        (if (null? lst)
            '()
            (let ((val (fn (car lst))))
                (if (and val (not (null? val)))
                    (values (car lst) val)
                    (find2 fn (cdr lst)))))))
                    
(define before
  (lambda (x y lst . args)
    (let-keywords args ((test eq?))
      (if (null? lst)
        '()
        (let ((fst (car lst)))
          (cond ((test y fst) '())
                ((test x fst) lst)
                (else (before x y (cdr lst) :test test))))))))

(define my-cdr
    (lambda (lst)
        (if (null? lst)
            '()
            (cdr lst))))

(define my-member 
    (lambda (obj lst . args)
        (use srfi-1)
        (let-keywords args ((test eq?))
            (let ((r (member obj lst test)))
                (if r r '())))))

(define after
    (lambda (x y lst . args)
        (let-keywords args ((test eq?))
            (let ((rest (before y x lst :test test)))
                (if (null? rest)
                    '()
                    (my-member x rest :test test))))))

(define duplicate
  (lambda (obj lst . args)
    (let-keywords args ((test eq?))
      (my-member obj (my-cdr (my-member obj lst :test test))
                 :test test))))
                    
(define-macro (push x lst)
    `(set! ,lst (cons ,x ,lst)))
    
(define split-if 
    (lambda (fn lst)
        (let ((acc '()))
            (do ((src lst (cdr src)))
                ((or (null? src) (fn (car src)))
                 (values (reverse! acc) src))
              (push (car src) acc)))))

Chrome台頭

2010-04-23T20:58:00.000+09:00

Firefox, IE, Safariの３ウェブブラウザが、このブログの３強なのですが、
Chromeが追い上げてきました。

OSは、
Windows XP, Mac OS X 10.6, Windows 7の順
Windows 7急成長

On Lisp Common Lisp to Scheme 3

2010-04-23T20:43:00.000+09:00

Figure 4.3: Doubly-recursive list utilities.

(define flatten
    (lambda (x)
        (letrec (
            (rec (lambda (x acc)
                (cond ((null? x) acc)
                      ((not (pair? x)) (cons x acc))
                      (else (rec (car x) (rec (cdr x) acc)))))))
            (rec x '()))))

(define prune
    (lambda (test tree)
        (letrec (
            (rec (lambda (tree acc)
                (cond ((null? tree) (reverse! acc))
                      ((pair? (car tree))
                       (rec (cdr tree)
                            (cons (rec (car tree) '()) acc)))
                      (else (rec (cdr tree)
                                 (if (test (car tree))
                                     acc
                                     (cons (car tree) acc))))))))
            (rec tree '()))))

On Lisp Common Lisp to Scheme 2

2010-04-17T16:56:00.001+09:00

Figure 4.2: Larger functions that operate on lists.
Gauche特有機能を使っているところ有り。
list-tailは、nthcdrと微妙に仕様が違うので、自分で作った。

(use gauche.collection)
(define longer
    (lambda (x y)
        (letrec ((comp (lambda (x y)
                    (and (pair? x)
                         (or (null? y)
                             (comp (cdr x) (cdr y)))))))
            (if (and (list? x) (list? y))
                (comp x y)
                (> (size-of x) (size-of y))))))
        
(define-macro (push x lst)
    `(set! ,lst (cons ,x ,lst)))
  
(define my-filter 
    (lambda (fn lst)
        (let ((acc '()))
            (dolist (x lst)
                (let ((val (fn x)))
                    (if val (push val acc))))
            (reverse! acc))))

(use gauche.sequence)   
(define group 
    (lambda (source n)
        (if (= n 0) (error "zero length"))
        (letrec (
                 (my-list-tail (lambda (lst k)
                    (if (or (null? lst) (<= k 0))
                        lst
                        (my-list-tail (cdr lst) (- k 1)))))    
                 (rec (lambda (source acc)
                    (let ((rest (my-list-tail source n)))
                        (if (pair? rest)
                            (rec rest (cons (subseq source 0 n) acc))
                            (reverse! (cons source acc)))))))
            (if (not (null? source)) (rec source '()) '()))))

On Lisp Common Lisp to Scheme 1

2010-04-13T19:41:00.000+09:00

第一回目

On Lisp
Figure 4.1: Small functions which operate on lists.
の関数をSchemeに変換

(define last1 
    (lambda (lst) 
        (car (last-pair lst))))
    
(define single
    (lambda (lst)
        (and (pair? lst) (null? (cdr lst)))))
        
(define append1
    (lambda (lst obj)
        (append lst (list obj))))
        
(define conc1
    (lambda (lst obj)
        (append! lst (list obj))))
        
(define mklist 
    (lambda (obj)
        (if (list? obj)
            obj
            (list obj))))

ADODB経由でSQLite3

2010-04-07T19:28:00.000+09:00

SQLite ODBC Driverをインストールすることで、

ADODB経由でSQLite3を動かすことができる。

SQLite3 & ADODB Wrapper for Rubyも、プロバイダを変えるだけと思っていたら、関数を生成する部分がJetに依存しまくっていた。
その部分をそっくり、入れ替えたら動いた。

そもそも、かなり適当な状態なまま、公開したので、今度時間がある時にでも、ファイル構成を整理し直す予定。

コンピュータアーキテクチャのエッセンス読了

2010-04-02T20:22:00.000+09:00

コンピュータアーキテクチャのエッセンス

読了。

CPU、メモリ、IO、命令セット、その他諸々、網羅的に理解が深まる。

述べられている並列処理やパイプライン処理、アウトオプオーダ実行などの概念は、ハードウェアだけでなく、ソフトウェアに応用できる。
マルチコアが当たり前になりつつある現在、なおさら様々なソフトウェアへの応用があるはず。

さらには、コンピュータに限らず、効率的な仕事の進め方や生産プロセス、様々なことに応用できる。

LPDISPATCHをVARIANT型の引数に渡す

2010-03-29T19:24:00.000+09:00

MFCでExcelプログラミングをするとき、
引数の型がVARIANTのメソッドにLPDISPATCHを渡さなければならないケースがある。

文字列とか、数値だったら、
COleVariantに包めば、渡すことができる。

LPDISPATCHは、そうはいかなかった。

単純に、キャストする。
キャストしてCOleVariantで包む。
色々試して、
最後は、ソースコードを読んだ。

結果、自分でラッパクラスを作った。

class DispatchVariant : public VARIANT 
{ 
public: 
        DispatchVariant(LPDISPATCH disp) : VARIANT() { 
                this->vt = VT_DISPATCH;         
                this->pdispVal = disp; 
        } 
};

とりあえず、動いている。

C#でC/C++の関数を実行

2010-03-28T18:39:00.000+09:00

今、GUIをC#で作って、実際の処理は、C++のMFC使ってやることを考えている。
最初は、単純に、C++のコードを別プロセスとして起動することを考えた、

しかし、C#で、C/C++の関数を実行する方法が、思った以上に、簡単だったので、
C/C++側の関数を直接実行することも検討して見た。

class A {
[DllImport("some.dll")]
static extern void func();
...
}

これだけ。

しかし、処理の進行をログとして出力してC#のテキストフィールドに出力する簡単な方法が見つからなかった。

開発にあんまり時間書けたくないので、変なところではまるより、
結局、単純に、C++のコードを別プロセスとして起動することになりそう。

Volvic Fruit Kiss

2010-03-28T17:47:00.002+09:00

半分予想していたけど、

Volvic Fruit Kiss
は、レモン味のスポーツドリンクと同じ味だった・・

SQLite3 <=> Jet 4.0 Wrapper For Ruby 公開

2010-03-24T20:20:00.000+09:00

SQLite3 <=> Jet 4

で、言っていたラッパーを公開。

SQLite3 & ADODB Wrapper for Ruby
今のところ、Jet 4.0で決め打ちしているけど、provider返れば、他でもいけるはず。
必要になったら、ビューが非互換なとことか、テーブルの定義部分は、変えないといけないとか、大丈夫にした、分厚いラッパーを作るかもしれない。

パブリックドメインです。自由に使ってください。

MFCでExcel

2010-03-24T19:52:00.000+09:00

MFCでのExcelプログラミングを調査している。

ものすごく、めんどくさい。

メソッドから返ってくるのは大概Variantです。
つまり、
o.get_Range(...).func()
のような、書き方はできなくて、
キャストするか、目的の型の変数に代入するかしないと、オブジェクトにアクセスできない。

今のところの方針は、最低限の部分はMFCでプログラングして、
後は、VBAでマクロ組んで、マクロを実行ってのを考えている。

JetのViewの制限

2010-03-21T19:14:00.000+09:00

TEXTの問題は、適当な長さのCHARに置き換えることで解決したけど、

Jetのビューでは、

order byが使えない。
エラー:
VIEWSには、単純なSELECTクエリしか使用できません。

unionが使えない。
エラー:
サブクエリではUNION句を使用できません。

この辺りは諦めるしかなさそうです。

Jet 4.0 TEXT型の罠

2010-03-19T21:15:00.001+09:00

文字を格納する部分を全部TEXT型にしてハマった。

max,minなどの関数が使えない。
さらには、group byを使うとなぜか、分け解らない値になる。

SQLite3 & Jet 4.0 共通ライブラリ計画がかなり遠のいた。

体力

2010-03-15T11:55:00.000+09:00

数ヶ月前は、2コートを5周×3セットでヒイヒイ言ってました。

一ヶ月ほど前は、練習して2コートを10周×3セット走れるようになりました。
しかし、筋肉痛が一週間続きました。

数週間前は、普通に、2コートを10周×3セット走れるようになりました。

昨日は、試合に入りまくった後に、2コートを10周×3セットやりました。
気がつけば、5時間ほど運動していました。

今日は、全身筋肉痛で泣きながら書いていますが、
一時期の信じられないほどの体力低下に比べて、かなりの進歩です。

Windows 7使用感

2010-03-15T11:41:00.000+09:00

デザイン自体は、非常に良くなったと思う。

使い心地は、なんとも言えないのですが、普通に使えています。

PowerShellとかコマンドプロンプトが、ほとんど変わっていなかったのは、残念です。
PowerShellにはPowerShell ISEという開発環境が追加されました。これについては、まだなんとも言えないのですが、求めていたのに近い可能性はあります。

ネイティブで動かすと印象は変わるかもしれないのですが、VMware上では、アニメーションがチカチカしてうるさい感じです。

アニメーションは、
"コントロールパネル\コンピューターの簡単操作\コンピューターの簡単操作センター\コンピューターを見やすくします"
の、"必要のないアニメーションは無効にします"にチェックを入れることでオフにできます。

デフォルトではウィンドウの枠が太すぎる印象を受けました。
ウィンドウの設定を変更するには、
"コントロールパネル\デスクトップのカスタマイズ\個人設定\ウィンドウの色とデザイン"
の、"デザインの詳細設定..."
を開いて変更します。

正直なところ、設定がどこにあるのか非常に分かりにくのが難点でしょうか。

Windows 7 インストール

2010-03-10T22:54:00.000+09:00

Windows 7のアップグレード版をVMware上にインストール。

焦った、焦った、苦戦した。

まず、新規にインストールしようとして、失敗。
Windows XP 32bit版に、64bit版インストールしようとして、ディスクを認識しなくて失敗。

Windows 7 RC版に、インストールしてはじめて成功した。

今度、32bit版をインストールしてみる予定。

SQLite3 <=> Jet 4.0 進捗

2010-03-09T22:22:00.000+09:00

ADODBのRecordsetに合わせて、sqlite3_rubyのquery使おうとして、酷い目にあった。

finalizer付けとけば、最悪GC時にcloseされるからOKと思っていたら、そうはいかなかった。
closeし忘れているクエリーが一つでもあれば、commitできない。

メモリ使用量が気になると言えば気になるけど、配列を返すexecuteを使うことにした。

もうちょっと、動作確認したら、公開できると思う。

しかし、かなり割り切って機能を限定しないと、SQLite3とJetの細かな差が吸収できない。

なかなか、難しい。

Ruby deepcopyとdeepfreezeがほしい

2010-03-08T23:12:00.000+09:00

オブジェクトをfreezeしたはずが、内容が変わっている。

インスタンス変数の内容自体はfreezeされないから、不変オブジェクトでない限り、変更できてしまう。

てことは、インスタンス変数一個一個freezeしてもやっぱり内容が変わる可能性がある。

deepcopyもそうだけど、一筋縄ではいかない。

タッチタイピング

2010-03-07T19:01:00.002+09:00

僕の知るかぎり最高のタッチタイピング練習ソフトTypist

今まで、バージョン1.31をRosettaのサポートが切れたらどうしようと、ビクビクしながら使っていたのですが、
バージョン2.01が、とっくの昔にリリースされていたことがわかった。

ソースコードまで、入手できるので、さっそくダウンロード。

あんまり、親切じゃないけど、Windows用やUNIXで動くTypist on Terminalもありますので、お試しあれ。

最初は、しんどいかもしれないけど、一通り練習すれば、タッチタイピングがかなりうまくなります。

コースによっては、かなり長いです。
さらには、ミスるともう１回やり直しになります。
ミスりやすいように文字が配置されている、としか思えないような時も多々あります。

それでも、忍耐強くやり通せば、うまくなります。

僕は、これの英文コースを何回も繰り返し練習しています。
調子が悪いか、へんな癖が付くと、なんどやってもミスる時は、ミスります。
へんな癖が付いた時は、直るまで繰り返します。どうしても、クリアできない時は、休憩して時間を置いてやります。
すると、繰り返すごとに、タッチタイピングがうまくなっていくのが実感できます。

僕はミス０を目指してがんばっているのですが、
最初は、ミスしてもいいので、やり通すのが良いでしょう。達成感を味わってください。

ある程度繰り返して慣れてくれば、ミス０を目指すのをおすすめします。
ある程度早くタイプできるようになってくると解るのですが、
1文字ミスしたら、僕の場合気がついた時には、5,6文字は先に行っています。
戻って修正すると、かなりのタイムロスにつながります。

ミスするくらいならスピードを落とした方が結局は速くタイピングできる。

この、ソフトがミスに対するペナルティが厳しいのは、そこが理由です。

おすすめです。

○○はすべきでない

2010-03-06T07:55:00.004+09:00

「○○はすべきでない」と言われたなら、みなさんはどうしているでしょう？

単に従う。逆にやる。色々だと思うのですが、僕は、

「なぜ、すべきでないのか？」

を、考えることにしている。
「なぜ」が解ると、逆に、使いどころが解る。

「gotoを使うべきではない」
よく言われることですし、今や常識となっています。

なぜ、使ってはいけないかというと、
「プログラムの制御構造がぐちゃぐちゃになる」
からです。

ということは、逆に、
使うことで「プログラムの制御構造が解りやすくなる」
なら、使うべきと考えています。
具体的には、深いループからの脱出とか典型例でしょう。

こんなこと言っている僕は、実は結構、保守的でした。
ルールはとにかく守るもの、時間はとにかく守るものでした。

Perlの考え方よりPythonの考え方の方が好きですし、
Cのif文は、一行の場合でも、

if (...) {
 ...
}

と {} を必ず付けています。
こんな考え方では、Rubyを使いこなせてはおらず、
Rubyの使い方は、正規表現が使える使いやすい言語程度のものでしたし、
C++のテンプレート使って、コンパイル時に計算して、階乗求めるとか、無意味にテクってどうするの？でした。

今は、段々と考え方が変わってきました。

もちろん、今でも、当時からの、
ソースコードは、簡素で明瞭であるべきという考え方は変わりませんが、

C++のテンプレートは使うべき時は使うし、
Rubyのいろんなテクニックや文法もどんどん取り入れてプログラミングするようになってきました。

すると、遠い昔は、単に括弧だらけの言語だった、Lispが理解できるようになってきた。

プログラミングだけでなく、今まで解らなかった様々なものが見えるようになってきた。

さて、トップに追加されたサブタイトルの、

His story history -- My story mystery

ふと、思いついた駄洒落なのですが、
（パクったのではありません。本当です）
考えれば考えるほど、奥が深い気がしませんか？
これだけをネタに一筆書けそうです。

気に入っています。

コンピュータアーキテクチャのエッセンス

2010-03-02T19:53:00.003+09:00

コンピュータアーキテクチャのエッセンス

PLCやったことがある身としては、非常におもしろい。

PLCのプログラムの難しいところは、回路に見えるけど、ソフトウェアとして考えないといけないところ。

回路設計とソフトウェア設計は真逆の考えたが要求される。

回路はコピーした方がパフォーマンスが出るしシンプルにできる。
ソフトウェアは、できるだけ共通化した方がわかりやすいし、保守しやすい。

マイクロシーケンサに関する記述を見ると、PLCが特殊なものだという考えを見直させられる。
シーケンス制御はいたるところで使われる。

ruby a=(x)が返す値は？

2010-02-27T22:51:00.005+09:00

rubyでは、例えば、

class A
  def f= x
    @f = x 
  end

  def f
    @f
  end
end

とすると、

a = A.new
a.f = 1
a.f => 1

のように、メソッドが代入みたいに見えるようにできる。

では、

class A
  def f= x
    @f = x
    x + 2
  end

  def f
    @f
  end
end

と定義すると、

a.f = 2

は、何を返すでしょう？

a.f = 2 => 4 # ×
a.f = 2 => 2 # ○

単純に考えると、4が返るはずなのですが、
2が返ります。

これは、多分

x = a.f = 2

としたとき、の整合性をとるため。
つまり、xが4になってしまうと代入ではなくなってしまう。
~~「メソッドが代入みたいに見えるようにできる」~~
『特殊な表記のメソッド」
と考えるとハマる。

ちなみに、次のバイトコード解析すると、

class A
  def f= x
    x + 2
  end
end

a = A.new
b = a.f = 2
puts b

次のように、確かに、 'x + 2' は返り値としては無視されて、代入した値が返される。


0036 setn             2
0038 send             :f=, 1, nil, 0, <ic>
0044 pop

以下、バイトコード全体


== disasm: <RubyVM::InstructionSequence:<main>@a.rb>====================
local table (size: 3, argc: 0 [opts: 0, rest: -1, post: 0, block: -1] s1)
[ 3] a          [ 2] b          
0000 trace            1                                               (   1)
0002 putspecialobject 2
0004 putnil           
0005 defineclass      :A, <class:A>, 0
0009 pop              
0010 trace            1                                               (   7)
0012 getinlinecache   <ic>, 19
0015 getconstant      :A
0017 setinlinecache   12
0019 send             :new, 0, nil, 0, <ic>
0025 setdynamic       a, 0
0028 trace            1                                               (   9)
0030 putnil           
0031 getdynamic       a, 0
0034 putobject        2
0036 setn             2
0038 send             :f=, 1, nil, 0, <ic>
0044 pop              
0045 setdynamic       b, 0
0048 trace            1                                               (  10)
0050 putnil           
0051 getdynamic       b, 0
0054 send             :puts, 1, nil, 8, <ic>
0060 leave            
== disasm: <RubyVM::InstructionSequence:<class:A>@a.rb>=================
0000 trace            2                                               (   1)
0002 trace            1                                               (   2)
0004 putspecialobject 1
0006 putspecialobject 2
0008 putobject        :f=
0010 putiseq          f=
0012 send             :"core#define_method", 3, nil, 0, <ic>
0018 trace            4                                               (   5)
0020 leave                                                            (   2)
== disasm: <RubyVM::InstructionSequence:f=@a.rb>========================
local table (size: 2, argc: 1 [opts: 0, rest: -1, post: 0, block: -1] s1)
[ 2] x<Arg>     
0000 trace            8                                               (   2)
0002 trace            1                                               (   3)
0004 getlocal         x
0006 putobject        2
0008 opt_plus         
0009 trace            16                                              (   4)
0011 leave

2010-02-28: 一部表記を修正

rubyのメソッド定義

2010-02-27T10:19:00.003+09:00

Rubyのメソッド。

使う時は、括弧を付けずに使うことができます。これは知っていたし、よく使うのですが、

てっきり、定義するときは、変数は括弧で囲まないといけないと思い込んでいたのですが、いらないことが判明。

つまり、

def f(x)
...
end

ではなくて、

def f x
...
end

とできる。

エレガントに見えるだけでなく、')'一つ分、タイプ数が削減できます。
すぱらしい。

SQLite3 <=> Jet 4.0

2010-02-26T22:18:00.005+09:00

SQLite3データベースとJet 4.0データベースの両方で使える、Ruby用SQLライブラリを作ろうかと企んでいる。

というのも、僕個人で使うなら、SQLite3だけで、満足しているんだけど、
他人の環境で動かすこと考えると、Windows環境では、SQLite3用にソフトウェアをインストールしないといけない点がネックとなる。

そして、Rubyで雑務をできるだけこなしたい僕としては、WIN32OLEは非常にありがたい。
しかし、非常に薄いラッパなので、もろに元々のAPIの影響を受けて、Rubyとして考えると使いにくい。
ということで、もうちょっと分厚いラッパがほしい。

sqlite3-rubyベースの自作ライブラリがすでにあるので、インタフェースだけこれに合わせて切り替えることができないかと考えている。

On Lisp読了

2010-02-24T18:54:00.003+09:00

On Lispを読み終わった。
文字通り読み終わっただけで、理解するのは、これからである。

それ、読んだとは言わないと思うかもしれないけど、
単に、文字を追うだけで、読書として十分に意味がある。

On Lispを理解するに当たっては、On LIspのプログラムをSchemeで書き直すことを考えている。
これによって、Common LispとSchemeの両方の理解が深まる。

さて、最近、
ケントディヴィグ著の「プログラミング言語 SCHEME」
が、なぜ良書なのか、やっとわかってきた。

この調子で、難攻不落だったSICPを攻略する予定である。

Windowsでの開発

2010-02-21T19:44:00.003+09:00

RubyのWIN32OLEの存在を最近知った。
ExcelのQueryTableの存在を最近知った。

開発の手間がかなり減ったかもしれないのですが、今までの苦労の一部は無駄となった。

こうも後手に回ることが多いのは、そもそも、Windowsを知らないから。

それと、C/C++を使ってWindows上でプログラミングする機会が今後増えそう。

MFCとか、COMとか使うことになるのですが、こういったものの書籍って情報が古いし高い。
しかし、知らないで、わけわからないとこでハマったり、作らなくていいもの作ったりするより、よほど良い。
ということで、かなり迷ったのですが、

標準講座MFC6.0―Visual C++による効率的なWindowsプログラミング

を手に入れた。

CPS変換

2010-02-20T23:15:00.002+09:00

継続を理解するために、とりあえず、CPS変換を機械的にやってみる。


(define (! x)
  (if (< x 1)
      1
      (* x (! (- x 1)))))

まず、if文の部分を置き換える


(define (!/cc x c)
  (if (< x 1)
      (c 1)
      (c (* x (! (- x 1))))))

(! (- x 1))

の継続は、

(lambda (c2) (c (* x c2))

よって

(define (!/cc x c)
  (if (< x 1)
      (c 1)
      (!/cc (- x 1) 
            (lambda (c2) (c (* x c2))))))

fibについても、同様に、


(define (fib x)
  (if (< x 1)
      1
      (+ (fib (- x 1)) 
         (fib (- x 2)))))

(define (fib/cc x c)
  (if (< x 1)
      (c 1)
      (c (+ (fib (- x 1)
            (fib (- x 2)))))

(define (fib/cc x c)
  (if (< x 1)
      (c 1)
      (fib/cc (- x 1)
               (lambda (c2) 
                   (c (+ c2 (fib (- x 2))))))))

(define (fib/cc x c)
  (if (< x 1)
      (c 1)
      (fib/cc (- x 1)
              (lambda (c2)
                  (c (+ c2 (fib/cc (- x 2)
                                   (lambda (c3) c3))))))))

Re: Visual Studio 2008 C++ MFC Excel コンパイル通らない

2010-02-20T09:36:00.002+09:00

Visual Studio 2008 C++ MFC Excel コンパイル通らない。

自動生成されるクラスの#importをコメントアウトすると、コンパイル通った。

Visual Studio 2008 C++ MFC Excel コンパイル通らない。

2010-02-18T23:47:00.004+09:00

Visual Studio 2008 C++でExcel操作したいってことで、

http://support.microsoft.com/kb/308407/ja

を参考に、
CApplicationクラス作って、ヘッダーインクルードしただけのプログラムがコンパイルが通らない。

エラー 1 error C2371: 'FontPtr' : 再定義されています。異なる基本型です。 e:\mydocument\workspace\exceltest\exceltest\debug\excel.tlh 1219 ExcelTest

など、その他200以上のエラー。

いきなり、躓いたな。どうしよう。

On Lisp 17章到達

2010-02-17T21:20:00.005+09:00

第17章リードマクロに到達。

半分以上、読み終わったことになる。

しかし、ここからが勝負。
16章までは、今までのSchemeの知識でどうにかなったけど、リードマクロは初めて。

読み進める前に、ANSI Common Lispを読んだ方が良いかもしれない。

それにしても、昔は否定的だったんだけど、マクロとか、メタプログラミングとかに対する認識が変わってきたかもしれない。

2010-02-17 23:15 : ANSI Common Lispのリードマクロの部分、すぐに読み終わった。17章もよく見るとそんなにページ数はない。

Re: System.Data.SQLite自動生成したビューがなぜか動かない

2010-02-16T21:37:00.003+09:00

同じビューがSelectで読み込んでdataGridViewのデータソースとして設定、
AutoGenerateColumnsを有効にすると、表示できた。

System.Data.SQLiteのビューの自動生成部分になんらかのバグがあると見てよさそう。

System.Data.SQLite自動生成したビューがなぜか動かない

2010-02-15T21:56:00.004+09:00

System.Data.SQLiteで、自動生成されるDataSetのビューをDataGridViewのデータソースにして、表形式で表示しようとしているのですが、なぜか、失敗します。

そもそも、そのビューをVisual Studio 2008のデザイナで開いて編集して保存しようとすると失敗する。解析時に失敗しているっぽい。
inner join使ってるだけなのですが、'(',')'があるべきところから消えてしまっていて入力し直しても、元に戻ってエラーになり保存できない。

System.Data.SQLiteのバグかなぁ。

今後の方針：

自動生成に頼らずに、自分で、データベース開いてSelect文実行してビューを読み込んで見る。

DataGridView Memo

2010-02-14T23:14:00.002+09:00

SQLiteデータベースのGUIインタフェース作りのメモ

動的にクエリ作って、DataGridViewに表示させたい。

DataGridView : ビュー
BindingSource : コントローラ
DataSet: モデル

DataGridView.DataSource -> BindingSource.DataSource -> DataSet

tableAdapter.Fill( DataSet.テーブル )

tableAdapterに手を加えれば良さそうってところで、タイムオーバー
引き続き、調査が必要。

Mercurialを導入

2010-02-14T21:21:00.002+09:00

Mac OS XでもWindowsでも使える。
シンプル。
サーバを必要としない（分散型）。

これらのハードルの低さ３要件を満たすバージョン管理システムをと考えた結果、

両方ともインストーラが用意されている。
コマンド体系もシンプルだし、Mac OS Xではhelpが日本語。オンラインドキュメントも充実している。
言うまでもなく分散型。

ということで、
Mercurialを導入してみたのが、１ヶ月ほど前、

最初の頃より、コミットが重くなったことを省けば、特に問題らしい問題もなく使えています。

IPhone電子書籍とiPad

2010-02-13T14:54:00.003+09:00

オライリーとかから、様々な電子書籍がApp Storeで売っている。
外国語版しかないことを省けば、衝撃的な値段で。

3000~4000円が600円とか300円とか

試しに、350円の「C++ Pocket Reference」を買って試してみました。

想像以上に快適でした。
さすがに、iPhoneで通して分厚いやつを読むなら、つらいかもしれないのですが、
これを、iPhoneの画面ではなく、iPadの画面で見たら、かなり快適かもしれない。
認識を改めた次第です。

やぱいなぁ、積極的な理由が一つできてしまいました。

POWER7についてちょっとだけ

2010-02-10T21:47:00.003+09:00

8コア 32スレッド 4.1GHz 32MB 3次キャッシュ

UltraSPARC T1 は性能犠牲にして、同時に扱えるスレッド数を優先して、8コア 32スレッド
今や、同じレベル。

個人レベルでも、今や、4コア 8スレッド

近い将来、個人レベルで、1チップで2桁台のスレッドを扱えるマシンが手に入りそうな勢い。

並列
でも書きましたが、ますますロマンを掻き立てられます。

SQLite3 日時計算Memo

2010-02-09T21:16:00.002+09:00

SQLite3では、日付は文字列として格納される。
dataとかdatetimeといった型はない。

そのため、日時の計算が大変。

日付と時間のフォーマットは、厳密に、

yyyy-mm-dd hh:mm:ss

でなければ、datetime関数は日付と判断してくれない。

MAX(日付) : datetime(max(strftime('%s', 日付)), 'unixepoch')

同じ日のtime1時からtime2時までの時間hh:mm:ssの計算は、

time(datetime(strftime('%s', 'yyyy-mm-dd') + strftime('%s', 'yyyy-mm-dd ' || time2) - strftime('%s', 'yyyy-mm-dd ' || time2), 'unixepoch'))

iPhone上でプログラミング

2010-02-07T20:37:00.003+09:00

iPhoneアプリをプログラミングではなくて、
iPhone上でプログラミング。

iPhone上で動くLispとか一応あるらしいけど、ものすごく単純な方法がある。

Javascript

アイディアは、アマグラマーのすすめ - 下ごしらえ -- 404 Blog Not Foundここから得たというか、そのまんまなのですが、これを自分に合わせてカスタマイズして、iDiskとかWeb上とか、iPhoneから見れるところにhtmlを置いて開くだけで、Javascriptを書いて実行できます。

ということは、Javascript上で動く言語作れば、動く。

JSRuby 0.1
WebScheme

とか、iPhone上で動くかは別として、探せばほかにもありそう。

CotEditor用 Scheme(Gauche)シンタックス定義公開

2010-02-07T12:18:00.001+09:00

CotEdior Scheme(Gauche) Syntax Rules

2010-02-07 12:45 アウトラインの条件を少し修正

CotEditor用 Scheme(Gauche)シンタックス定義

2010-02-06T18:49:00.005+09:00

お気に入りのSmultronの開発が止まってしまったので、代わりのテキストエディタを探していた。
そこで、白羽の矢が当たったのが、CotEditor。
Editraも有力候補だったのですが、まだまだバグが散見される。

シンタックス定義周りの設定をしている時、Schemeのシンタックスカラーリングをやりたいと思い立った。
Scheme用シンタックス定義が検索で引っかかったけど、リンク切れ。

そこで、自分で定義を作ることにした。

Gaucheのレファレンスのhtmlを解析して、CotEditor用のScheme.plist作って、commandsArrayに、プロシージャ名をぶち込んだ。

その作業に、もちろん、CotEditorを使っていたのですが、数千行ほどコピーした時、動作がとたんに重くなった。
そこで、Smultronの64bitスペシャルベータ版を使って開いてみたら、普通に作業できた。

Smultornはつくづくよく出来ていると再確認。64bit版CotEditorがほしい。

Scheme(Gauche)のシンタックス定義は、もうちょっといらない部分とか取り除く作業をしたら、公開予定。

SQLite

2010-02-05T20:49:00.002+09:00

Windows用ファイルベースのRDBについて、最初は、Access(Jet) とSQL Server Compact Edtionを比較検討していた。
正直なところ、どちらも、軽量というよりも、下手に重量級でめんどくさい。

そこで、目を付けたのが、SQLite3
ファイルベースだし、DLL一個と十分軽量。コマンドラインでお手軽に試操作できる。
そして、クロスプラットフォーム。

さらには、

.NET用に、System.Data.SQLite
Ruby用に、sqlite-ruby

言うことなし。ほぼ決定です。

技巧の罠

2010-01-30T16:17:00.005+09:00

rubyでは、if文は式です。つまり、


x = if ... then
  ... 
  then_value 
else
  ...
  else_value
end

というふうに、値を返して、変数に代入したりできる。

エレガント気取りであるループの中で、これを使おうとして、こんな感じになった。


x = nil...
s.each do ..

x ||= if ... # ||=は、一度だけ代入を許すためのイディオム

  if flag
    ...
    x = nil
  end
end

変数が増えた時に気がついたのですが、全然エレガントじゃない。
そもそも関数型的な技巧なんだから、再代入がある時点で考えなおさないといけない。

普通に、以下のようにした方がシンプルになる。


x = nil...
s.each do ..
  if ...
     x = ...
  end

  if flag
    ...
  end
end

技巧は、エレガントにするための手段なのに、手段が目的化すると、逆にエレガントでなくなる。

正しい使い方は、例えば、


def f(...)
  if ...
     x = then_v
  else
     x =  else_v
  end
  g(x)
end

のように、'x = 'が２回出てくるのを


def f(...)
  x = if ...
     then_v
  else
     else_v
  end
  g(x)
end

一回で済ましたりするのに使う。

iPad

2010-01-29T12:02:00.003+09:00

iPadの一番のネックは多分、お値段。

Netbookで十分な人が多分ターゲットになる。
触ってみて、「おっ」と思うところまでは、多分持っていける。

けど、値段見てウッとなりそう。Netbookのスペックや値段と比べてしまう。
だから、なおさら、使い心地や物欲勝負になる。

僕個人はと言うと、誰かにプレゼントとかならともかく、自分が買って使うことは多分ない。

携帯端末は、iPhone, iPod touchで十分。
ノートパソコンとしては、NetbookやMacBook Airでさえ見送ったので、完全に不十分。
娯楽機器としては、PS2でさえも、ほとんどやらなくなってしまった自分としては、必要ない。

中間生成物とテスト

2010-01-24T19:40:00.002+09:00

アジャイルソフトウェア開発

読了した。

僕の開発方法は、驚くことに、おおむね、本書で肯定されている。

・コメント（ドキュメント）より、とにかく動くものを
報告書書く暇があったら、ソースコードを書く。
コメント書く暇があったら、ソースコードを書く。
UMLで細かく設計する暇があった、ソースコードを書く。
報告（中間生成物）ではなく、最終成果物（ソフトウェア）で評価しよう。

・思い切ったリファクタリング
このコード重複しているから、関数に纏めよう
そもそも、設計ややこしいから、やり直そう
評価と改善を繰り返す

一方で、リファクタリングを進めながら、よく思うことがあるけど、実践できていないことがある。

テストの自動化

動かなくなったらどうしょうという恐怖を押さえながら、
リファクタリングするんだけど、やっぱり怖いものは怖い。

テストにかかるコストを削減できたなら、より思い切ったリファクタングを頻繁にできる。

できることなら個室が欲しいとうのは、誰もが思うことなんだけど、
本書では、コミュニケーションを最重視します。
メンバーはできる限り、同じ場所に集める。反発したくなるけど、正しいことを実感している。

本書を読むに当たって、気をつけるべき点は、解を求めないこと。
解はプロジェクト毎にあるという立場で書いている。
具体的なことはあんまり書いてなくて、回りくどい。何を書いているか解らない時も多いです。
意図して、回りくどくしているんだけど、この点は、注意すべき。

体重<70kg達成

2010-01-17T16:27:00.002+09:00

体重が、60kg代になった。

目標達成である。
引き続き、減量を続けて65kgを目指す。

減量方針は、このまま維持+筋力維持のためのトレーニングを行う。

久々のC/C++プログラミングと領域破壊

2010-01-16T15:08:00.003+09:00

久々に、C/C++でプログラミングを行った。

動的にメモリ確保をする必要はほとんど必要ない内容だったけど、文字列の扱いでハマった。
文字列の「長さ」だけ文字をコピーすることによるバグ。

string型で完結するならいいんだけど、そういうわけにもいかず、
strncpy系の関数を使っていて、サイズをミスっていた。

つまり、'¥0'がコピーされない。
こうなると、確保している領域を超えてアクセスされて領域破壊が起こって、異常終了。

後は、オブジェクトのリンクとか、ヘッダーのインクルードとかで、ハマった。
つくづく、面倒くさい言語である。

とはいえ、独特の手応えのある言語で嫌いではないです。

ローテクノロジーとソフトウェア開発

2010-01-10T16:21:00.005+09:00

アジャイルソフトウェア開発

Success & Winで引用した文の出典、なのですが、

実感としては意外ではない。けど、ITシステム開発という観点からは意外なのですが、

普通の掲示板で進捗の管理をしたり、ホワイトボードで議論したり、紙での情報伝達や共有をはじめ、ローテクノロジーに焦点が当てられている。

一方で、一定期間ごとに、自動でソフトウェアがコンパイル＆テストされてエラー内容が自動的に担当者にメールで送られるなんてハイテクノロジーな例もとり上げられている。

僕個人は、なんでもかんでもハイテクハイテクっていう傾向が強いのですが、ローテクノロジーの使いどころってのは、非常に重要な位置を占めているのではないかと再認識させられた。

逆に、ハイテクノロジーの立場からは、如何にローテクノロジーの得意分野に進出するのかが鍵になると強く感じた。

カロリーメイト　ポテト味

2010-01-09T08:12:00.002+09:00

カロリーメイトのポテト味

いやな予感はしていました。
そして、的中してしまいました。

なんだか、ぱさぱさのコーンスープかなんか。

メープル味は、気に入ったのですが残念。

削減

2010-01-03T10:59:00.005+09:00

今年の目標は削減

買ったものの、読み切れていない、多数の本の削減
体重の削減
お金使いの削減

「アジャイルソフトウェア開発」を優先的に読んで、次にプログラミング言語系は、「On Lisp」、「Real World Haskell」、
システム関係は、「継続的インテグレーション入門」、「コンピュータアーキテクチャのエッセンス」、
データベース関連は、「アート・オブ・SQL」。

これだけは、読み終わってから、本を買うものとする。当分の間、本代を削減できる。

外食×、飲み物は、水かお茶、70キロ代をうろうろしているのですが、なんとか60キロ代を目指したい。
外食×なので食費も削減できる。

すでに、コンピュータに関しての大規模な投資（Mac Pro）は終わっている。
それだけでも去年消費したお金の大部分が削減できる予定。

今年の目標は、Value Engineeringで言うところのコスト(C)の削減が中心なのですが、
来年の目標は機能(F)向上を中心に目指したい。

Rubyのメソッドチェーン

2009-12-27T10:12:00.003+09:00

Ruby1.9のメソッドチェーン

使う時には、ちょっと注意が必要なようである。
まず、irbでは使えない。
次に、


a = []
  .push 1

は動くのに、


a = []
  .push 1
  .push 2

は動かない。


a = [].push 1.push 2

のように、解釈されるらしい。

つまるところ、意図どうりに解釈させるには、以下のようにしなければならない。


a = []
  .push(1)
  .push(2)

スクリプトの裏

2009-12-19T19:09:00.005+09:00

こんな作業、スクリプト書いたら一発。
マクロ書いたら一発。

と、スクリプトやらマクロを書いて、活用している人は、結構多いのではないでしょうか？

もちろん、僕も活用しているのですが、
こういった小技の裏には、改善すべき問題が隠れている。

何かを改善するために作ったのですから当然と言えば当然なのですが、
そもそも、元々の作業になんらかの欠陥があって、それを軽減するための対症療法になってしまっている場合、
深刻視しなけらばならない。

根本が解決されていないから、問題が表面化するのを遅らせているだけになっているケースがある。

改善点と欠陥をどうやって見分けるかって言うと、
欠陥のあるものって、千発がどうにかこうにか百発とか、一発ってわけにはいかないことが多い。

さて、あなたのスクリプトの裏に隠れているのは、どちらでしょう？

Success & Win

2009-12-09T22:15:00.002+09:00

Goldman(1997)
アジャイルは動的で，コンテキスト固有で，積極的に変化を受け入れる，成長指向である。猛烈な競争の嵐を乗り切るのは，効率の改善でも，コストの削減でも，ビジネスのハッチを板で密閉することでもない。成功と勝利である。それは，出現する競争のアリーナにおける成功，多くの会社が恐れる「競争の嵐」の中心にある収益，マーケットシェア，顧客の獲得である。

僕は、この文を一瞬で気に入った。

長らく、開発の方法論といったことには、実は無関心だった。
しかし、そろそろ、考えるべき時期が来たと感じている。

当然、アジャイルが正しいかもわからないし、そのまま導入できないことも多いだろうと思う。
しかし、方法論を導入する上で、決して忘れてはならないのが、
なぜ、そうするのか？

なぜ？を突き詰めていったら、コストでも効率でもなく、

勝つためなのである。

正しく、本質を突いている。

GaucheがWindows対応

2009-12-05T11:44:00.004+09:00

Gaucheがバージョン0.9になってMac OS X 10.6 Snow LeopardとWindows対応

地味に、Windows対応が嬉しいかもしれない。
仕事では、ほぼ100% Windowsを使っています。

これまで、Lisp系言語に慣れていなこと、暇がない、
さらには、Windows上で安定して使えるScheme処理系は限られていました。

しかしこれからは、Gaucheが選択肢として加わりました。ということで、
実用的な作業にSchemeを使える可能性がぐっと高まりました。

そうなると、実践を通してSchemeを学ぶことができます。

これからは、Schemeをお仕事用言語として使えるかもしれません。

maplistのScheme実装2

2009-11-28T19:09:00.002+09:00

maplistのScheme実装

の続き。前回は、不必要に複雑になってしまっていた。

まずは、単純化してリスト一つだけバージョン


(define (maplist fn x)
         (if (null? x)
             '()
             (cons (fn (list-copy x)) (maplist fn (cdr x)))))

任意個バージョン


(define (maplist fn . liss)
  (define (rec liss)
    (if (member '() liss)
        '()
        (cons (apply fn (map list-copy liss)) (rec (map cdr liss)))))
  (if (null? liss)
      '()
      (rec liss)))

リモートデスクトップ

2009-11-21T18:58:00.003+09:00

スペックが我慢ならないケースには、二通りある。

・スピードが遅すぎる
・画面が狭すぎる

スピードが遅すぎて我慢できないケースは、最近は、めっきり減ったのですが、
画面が狭すぎるというケースは頻発しています。

特に、ノートパソコンの時に顕著だし、大画面ディスプレイを接続しようとしても、余っていなければどうにもなりません。

しかし、ネットワークと大画面のパソコンが一台あれば、反応速度さえ気にしなければ、ある程度解決できます。

リモートデスクトップ

画面が小さいパソコンでも、リモートデスクトップを使って大画面のパソコンから利用すると、画面を広くできます。
ということで、VMwareとともに、大活躍。

最近は、15inch MacBook Proからリモートデスクトップを使うことを検討しています。
Mac OS X用リモートデスクトップと、WindowsのリモートデスクトップをVMware上から使うという二種類を検討したのですが、

反応速度は、ほぼ同じくらい。機能的には、Windowsのリモートデスクトップの方が上ということでVMware上から使うことにしました。

64bit版Windows

2009-11-15T22:30:00.002+09:00

64bit版Windowsについて、大きな勘違いをしていました。

てっきり、64bit版では、32bitアプリケーションが動かないと思っていたのですが、動くらしい。
ということで、確実に非互換なのは、32bitのドライバということになるようです。

これだったら、64bit版のWindows XPを手に入れておいても良かったかもしれません。
Windows 7の評判は良好のようだし、32bitと64bitが両方含まれるので、Windows 7を手に入れるというのもありかなと思えてきました。

問題は、GUI。個人的にクラシックUIが一番しっくりくるのですが、RC版を試した限りは、クラシックにしてしまうと違和感があります。

.NET シリアライズ

2009-11-13T22:36:00.002+09:00

.NETのシリアライズは便利。

基本的にアノテーションつけるだけで、すぐにシリアライズ可能になる。
しかし、罠もある。

A)シリアライズするオブジェクトのグラフが複雑だとメモリを消費する。
B)ある一定数以上（確か13.2百万個）のオブジェクトはシリアライズできない。
C)ジェネリクスを使うと、SoapFormatterは使えない。

特にAは頻発しているようで、みんな苦しんでいる。

Snow Leopard On VMware

2009-10-31T22:01:00.003+09:00

Mac OS X Serverなら仮想マシン上で、合法的に動かすことができる。

VMware Fusion 2.0.6は、Mac OS X Server 10.6に実験的にではあるが、対応している。
ならば、Windows上のVMwareで動くかもしれないと期待して、
検証用に、
VMware Fusion上の、Windowsに、VMware Playerをインストールしようとして、
仮想マシン上にインストールできないと怒られて失敗。

ならばと、VMware Workstation 7の評価版をインストールして起動しようとしたら、
ホストOS上のVMwareの設定を変えないと起動できないと怒られて失敗。

仕方が無いの、Boot Campで、Windows XPをインストールして、
VMware Workstationをインストールして、
設定画面を見るとMac OS X Server 10.6が表示されている。これは、いけるかもとかなり期待して、
Mac OS X Serverのイメージを起動してみると、
残念ながら、

Operating System Not Found

vmxの内容いじくってみたけど、だめ。

あやしげなツールをインストールすると、いけるらしいが、
あやしげな場所からダウンロードしないといけないことと、

そもそも、ここまでいくと、合法的ではなくなっている気がするので、断念。

さて、せっかく買ってしまった、Mac OS X Server Snow Leopardはどうしよう？

ちなみに、Fusion(2.0.6)上では、ほぼ正常に動きます。
キーボードがUSになってしまうんだけど、この問題は、「画面を共有する...」経由でアクセスすれば、回避できる。
ネットワークを介するとちょっと厳しいが、ホストOS上からなら、ほぼストレスなしで操作できる。

補足：
使用許諾書ちゃんと読んでみると、そもそも、Apple製コンピュータ上じゃないと、Serverといえどもだめとのこと。
VMware Workstation With Mac OS Xとかあったら、迷わず買うのですが残念です。

defunとdefine

2009-10-17T10:15:00.002+09:00

Schemeのdefineと、Common Lispのdefunには、文法の違い以上の違いがある。

defineが関数の定義以外にも使えるというのは言うに及ばず、スコープが違う。

Common Lisp:


(let ((x 1))
  (defun f (y) (+ x y)))

と、
Scheme:


(let ((x 1))
  (define (f y) (+ x y)))

では、動作が決定的に違う。
Common Lispの関数fは、外から見えるのに対して、Schemeの関数fは、外から見えない。

SchemeでCommon Lispでやってることを無理やりやると、


(define *global* #f)
(let ((x 1)) 
  (define (f y) (+ x y)) 
  (set! *global* f))

ちょっとマシな書き方すると、


(define global 
   (let ((x 1)) 
        (define (f y) (+ x y)) 
        f)

普通に、書くと


(define f (let ((x 1)) (lambda (y) (+ x y)))

maplistのScheme実装

2009-10-16T23:58:00.003+09:00

Common Lispのmaplistが、Schemeでもほしいけどない。

ないなら、作ってしまえということで、

まずは、リスト一つだけバージョン :


(define maplist
  (lambda (fn lis)
    (define (proc lis acc)
      (if (null? lis)
          (reverse acc)
          (proc (cdr lis) (cons (fn (list-copy lis)) acc))))
    (proc lis '())))

これを、拡張して、リスト任意個バージョン :


(define maplist
  (lambda (func lis . args) 
    (define (proc nl? mp ap liss acc)
      (define (rec liss acc)
        (if (nl? liss)
            (reverse acc)
            (rec (mp cdr liss) (cons (ap func (mp list-copy liss)) acc))))
      (rec liss acc))
    (if (null? args)
      (proc (lambda (lst) (null? lst))
            (lambda (fn x) (fn x)) 
            (lambda (fn mp) (fn mp)) 
            lis '())
      (proc (lambda (lst) (member '() lst))
            (lambda (fn x) (map fn x)) 
            (lambda (fn mp) (apply fn mp)) 
            (cons lis args) '()))))

lambdaの部分は、cutを使うともっとすっきりする。

ちなみに、
(member '() xxx)
の部分は、最初、
(apply or yyy)
としようとして、正常動作せずに、どうすれば良いのか迷った。
orはマクロだから、関数として、applyに渡すことができない。

次回は、reverse使わないバージョン。

MacPorts＆Leopard

2009-10-12T13:33:00.003+09:00

Snow Leopardの開発環境でビルドできなくても、Snow Leopardでバイナリは動く場合ってのは、結構多い。

そこから、ヒントを得て、Snow Leopardで、Leopardで動作していたMacPortsを動かす方法を発見。

まず、別パーティションに、Mac OS X 10.5 LeopardとDeveloper Toolsをインストール
（この段階で、パーティション一つしか作ってなくても、別パーティションを後から追加できることを発見。すばらしい）
MacPortsは、--prefixを指定（僕の場合/opt2/local）してソースからコンパイルしてLeopardの環境にインストール
Snow Leopardを起動して、レオパルド上の、opt2へのシンボリックリンクを/に作る。

つまり、
sudo ln -s Leopard_path/opt2 /opt2

後は、/opt2/local/binをPATHに追加

Leopard上で、MacPortsを使って任意のソフトをビルド＆インストール

これで、とりあえず、hugs98とswi-prologの起動を確認。

Common Lisp

2009-10-10T13:47:00.003+09:00

僕が、よくやる本の読み方なんですが、
最初から、通して読むのは、大概しんどいので、まず、面白そうなところを、つまみ食いします。
そうして、つまみ食いしている内に、食欲（熟読する力）が段々わいてきたら、改めて最初から読んで行きます。

On Lispも、このやり方で、読破できるだろうと思っていたのですが、やはり、Common Lispがわからない。

ということで、Common Lispに入門することにした。

インストールしたCommon Lispの処理系は、 sbcl(Steel Bank Common Lisp)
残念ながら、ソースコードからのコンパイルは、出来上がったバイナリが正常に起動しないので、諦めました。
Mac OS X 10.5 Leopardを、どこかに、インストールし直す必要があるかもしれない。

入門書は、同じポール・グレアム著の、「ANSI Common Lisp」。

マクロ

2009-10-08T20:44:00.003+09:00

On Lisp -- P.219

省略形：


(defmacro mvbind (&rest args)
  '(multiple-value-bind ,@args))

nameを導入：


(defmacro mvbind (&rest args)
  (let ((name 'multiple-value-bind))
    '(,name ,@args)))

テンプレート化：


'(defmacro ,short (&rest args)
  (let ((name ',long))
    '(,name ,@args)))

簡略化：


'(defmacro ,short (&rest args)
  '(,',long ,@args))

に、Lispの本質を垣間みた。

リバース

2009-10-03T15:04:00.004+09:00

On Lisp

最初は、あまりのCommon LispとSchemeの差
(mapcarって何？setqって何？そもそも、defunとか文法からして違うし、などなど)に、拒否反応を起こしかけたが、我慢して読んでいくうちになれてきた。

例とか、現状から言うと古いないようものもあるが、なかなか為になる。

手続き型の考え方では、処理が上から下に流れて行くのに対して、関数型では処理が逆流するようなイメージだったのですが、
手続き型のプログラムを関数型への直し方を見ると、まさに、ドンピシャリ。

ものすごく、わざとらしくすると、


(let ((x 1) (y 2))
  (+ x y))

は、


(+ 1 2)

でいいじゃんということ。

なるほどと思った。

まだ、最初の方しか読んでいないけど、読んでおくべき古典の一つだと思う。

継続

2009-10-03T11:09:00.004+09:00

(call/cc print) =>
#<subr continuation>
#<undef>

(call/cc (lambda (break) (break))) =>
#<undef>

(call/cc (lambda (break) (break 1))) =>
1

(call/cc (lambda (break) (break 1 2))) =>
1
2

多値が返ってくる。

プログラミングGauche
の継続の章を、なんども読み返している。

だいたい、掴めたんだけど、掴めきった気がしない。

ロボットゲーム

2009-09-30T13:12:00.002+09:00

ロボットの話題がほとんどないのもなんなので、僕が持っているロボットゲームのリストを掲載することにする。

フロントミッションオルタナティヴ
異色のシミュレーションゲーム。装備とパラメータ調整して、侵攻方向を決めたら眺めてるだけのゲーム。

フロントミッション５〜Scars of the War〜
定番のフロントミッション。普通のターンごとにロボットを移動させる普通のシミュレーションゲーム。

アーマード・コア　フョーミュラフロント
装備とパラメータ設定した後は、本当に見ているだけの異色のロボットシミュレーション。

Garnage Heart EZ
なんと、ロボットの思考ルーチンをプログラミングできる、異色中の異色のシミュレーションゲーム。戦略シミュレーションとして見るとしょぼいけど、ロボット同士の対戦は熱い。

ZEUSⅡ Carnage Heart
カルネージハートの続々編。日曜日くらいにやっと手に入れました。
とりあえず、一言だけ。こんな、お母さん、絶対嫌だ・・。

それにしても、最近のゲームってなんで、アクションとかシューティングとかRPGばっかりなんだろう。フロントミッションの続編も残念ながら、アクション系になってしまいまいした。
最近のハード使って、ばりばりのロボットシミュレーションゲーム、どこか作ってくれないだろうか？
カルネージハートと、フロントミッションオルタナティブを掛け合わせたようなイメージで。

Ruby, clangバイトコード表示メモ

2009-09-24T20:37:00.003+09:00

バイトコードの表示の仕方メモ

ruby --dump=i file.rb
ruby --dump=i -e'...'

Mac OS X 10.6 Snow Leopardでは、clangが使える。
LLVMのバイトコードのアセンブリファイルを作成するには、

clang -flto -S file.c
clang -emit-llvm

RubyとPython比較再び

2009-09-21T23:00:00.008+09:00

JavaとRuby、Pythonの速度を比較してみる -- はぐれプログラマ清純派
にちょっとまった。

Javaが、こちらで実行した結果、bubblesort_linearserchが異常に遅いので置いておくとして、
いくらなんでも、Rubyが遅すぎる。

Mac OS X 10.6.1 (2.93 GHz Intel Xeon) 上でMacPortsでビルドしたRuby1.9.1と、Python3.1 を比較してみた結果（三回計測して平均（s））：
・Ruby
simple_loop: 7.59
fivo1: 1.91
fivo2: 1.71
bubblesort_linearsearch(リスト作成、バブルソート、リニアサーチ): 0.0003, 0.165, 0.068
output_file(生成、書込み): 1.43, 2.49

・Python
simple_loop: 3.97
fivo1: 0.963
fivo2: 5.34
bubblesort_linearsearch(リスト作成、バブルソート、リニアサーチ): 0.002, 0.245, 0.0817
output_file(生成、書込み): 0.266, 3.00

となり、ほぼ互角。fivo2, bubblesort_linearsearch, output_file(書込み)に関してはRubyの方が速い。

さらに、simple_loopを、Javaに合わせて、
Ruby:


c = 0
while c < cnt
  c += 1
end

Python:


c = 0
while c < cnt:
  c += 1

とすると、
Ruby: 2.90(s)
Python: 11.8(s)
となる。
最初のPythonのループと比べても、速い。
mswin32版Rubyが遅すぎると考えた方が良さそう。

9/22:
output_file -> output_file(書込み)

SchemeとCommon Lisp、そしてHaskell

2009-09-20T18:08:00.005+09:00

Schemeは、関数型言語的な要素は確かにあるけど、関数型言語ではない。

ファーストクラスオブジェクトに対するスタンスから考えるに、
SchemeとCommon Lispは、同じLisp系ではあっても、もはや、別物という印象を受ける。

以前、HaskellとSchemeを比較したけど、この二つの言語を比較するのは、特徴が違いすぎて不適切。

SchemeはScheme

Schemeに対する何かを、やっと、掴みつつあるような感じです。

Rubyオブジェクト2

2009-09-20T10:37:00.002+09:00

privateとか、attr_accessorとか、実はメソッド

つまり、

class A
method1
method2
end

みたいにして、class Aを定義する時に、メソッドを実行することができる。
では、method1, method2は、どうやって定義するかというと、

2. Moduleのインスタンスメソッドとして定義する（ClassのスーパクラスはModule）
1. Objectのインスタンスメソッドとして定義する（ModuleのスーパクラスはObject）
などなど、

一番簡単なのは、
トップレベルで、メソッドを定義すれば良い。
つまり、べた書きで、

def func
...
end

とメソッドを定義すると、Objectのインスタンスメソッドとなる。
これが嫌な場合、トップレベルで、

def self.func
...
end
などと、特異メソッドにすれば、例えば、

class A
# このなかからfuncは、見えない
end

というように、できる。

オムニコート

2009-09-19T21:52:00.002+09:00

砂入り人工芝コートの別名

知らなかったのですが、オムニコートって世界的には、稀とのこと。

しかも、オムニコートでは、テニスの上達に限界があるらしい。
クレーコートのように、イレギュラーがあるわけでもなく、ハードコートのように、球足が速いわけでもない。

僕の中で、オムニコートは、高級なコートというイメージがあったのですが、悪い面も多々あるようです。

確かに、オムニコートでばっかり、テニスやった後に、クレーコートで最初にテニスした時は、イレギュラーバウンドに苦しんだ。

Ruby: method_missing

2009-09-19T21:00:00.004+09:00

「リクレクションとメタプログラミング」
読み終わりました。

method_missingと、const_missingが、感動もの。

それぞれ、呼び出したメソッドが定義されていない時、定数が定義されていない時に呼ばれる。

これらを使って、定数を使用するタイミングで動的に生成したり、委譲実現したりする。

これで、Rakeのソースコード読むことができる。ちょっとしたDSLを作ることもできそう。