!kiyoka.blog.2008_10

kiyoka日記。OldType、Sumibi.org、日々の出来事など。

最新10件!kiyoka.blog   過去記事一覧!kiyoka.blog.list

 このブログを書いている人: 西山 清香(kiyoka)     - twitter: @kiyoka

                           (似顔絵イラストメーカーで作りました)

kiyoka.2008_10_25[Life][SF] 世界金融危機とSF小説

昔から、SF小説では政治や経済は人類には手に余る問題なのでコンピュータに任せてしまおうという思考実験が行われる。

うまくいくか、いかないかの結論は作家の好みによって様々に分かれるけど、今回のサブプライムローンから始まった金融危機を見ていると、やっぱり人類の頭脳では扱い切れない問題なんじゃないかと思う。

今は無理だけど、将来はコンピュータに任せてしまう(もしくはかなりの部分サポートしてもらう)方がいいのではないかな。

久々に、そういう小説を読んでみたくなった。

コンピュータが『人類は滅ぶしかない』という結論を出してしまうパターンと、コンピュータと人類がうまく共存している様を絶妙に描写しているパターンの両方読んでみたい。

どんな小説があるか探してみようと思う。

多分これを現実逃避というんだろうけど、個人にできることはあまり無いと思う。

この時期にそういうSFを読むのも一興だろう。

他にも、日経平均ETFを買って値上がりを待って楽しむという方法もあるが、長期間低迷したらそれもしんどいので今回はパスしよう。

comment please => kiyoka.2008_10_25

kiyoka.2008_10_24[Life][育児] 睡眠時間

育児をしていると、睡眠時間が少なくなる。

今やっと赤ちゃんが寝た。毎日5時間位しか寝れないのは正直キツイ。

そのせいで、昼間はあまり深い思考ができてない気がする。

いつになったら落ちつくのだろう...

shiro
3年経っても落ち着きません… 休めるチャンス (親が来てしばらく子供の相手をしてくれてるとか) が少しでもあったら肉体的・精神的に休みを取るのがよろしいです。

kiyoka
3年経ってもですか... 私の友達連中も、3年経ってもあまり変わず休めないと言ってました。 一番助かるのは、家事を手伝ってくれるとかよりも子供の相手をしてくれることですよねぇ。 育児をやって初めてそれがわかりました。

comment please => kiyoka.2008_10_24

kiyoka.2008_10_17[音楽] 私が初めて買ったCD

最近音楽DVDを買いあさっているけど、思えば好みは変わってないなーと気が付いた。

高校生の時、初めて買ったCDは多分これ。いまだに聴いている。

   Nothing Like the Sun: Sting

もう20年弱も経っているのか。その後もStingのファンで有り続けている。

他にもこんなCDを買ったなぁ。

   Porcelain: Julia Fordham

   Love Deluxe: Sade

うわー、どれも今でも聞いているCDだ。

音楽の好みってあんまり変わっていかないものなんだね。

そういえば、Jazzが好きになった最初のキッカケもStingだった。

またそのうちJazzの話も書きます。

comment please => kiyoka.2008_10_17

kiyoka.2008_10_16[オープンソース] オープンソースソフトウェアの布教活動もライブが基本？

ミュージシャンの活動とOSSの布教活動の共通点に気がついた。

OSSを黙々と作っても、なかなか使ってもらえない。

その前にまず認知されるまでが大変。そこでライブの必要性が出てくる。

ミュージシャンがライブで新曲を披露するのと同じ。

OSS開発者もLightning Talk等のチャンスを使ってプレゼンする必要があるし、効果は非常に大きい。

実際に私も、Lightning Talk等をやった直後に実際にユーザが増えるということが過去に何度もあった。

この本に同様の事が書いてある。OSSでは無いが顧客とISVのギャップを埋めるという部分だ。

この本では、小さなISVは雑誌に広告を出すより展示会に出展すべきという話が書いてあるので参考になる。

   Eric Sink on the Business of Software 革新的ソフトウェア企業の作り方

インターネットの時代になって、情報が洪水の様に人々に押し寄せる様になった。

要するに、昔よりも人々のアテンションを得ることが難しくなっているということだと思う。

ライブはそのアテンションを得る一番有力な手段だと思う。

最近、Lightning Talkやってないなーと自戒を込めて。

comment please => kiyoka.2008_10_16

kiyoka.2008_10_15[OldType][tDiary] tDiaryのデータをOldTypeに変換した(4)

2007年分の記事もOldTypeに登録完了。これで全てのブログ記事をOldTypeに移行できた。

過去の日記 kiyoka日記はいつ閉じてもいい状態になった。

実際に過去記事を一件一件、目で確認して手なおししていくと、量の多さに驚く。(今日までで 493エントリもある)

毎日コツコツ続けるとすごい量になるんだなあと実感した。

Rubyのまつもとさんの『1日1ハックが目標』が達成できたら本当にかなりのことができるんだろうなと思う。時間的にできないけど。

それができる環境にある人は、その時間を大切に使ってください。

comment please => kiyoka.2008_10_15

kiyoka.2008_10_12[OldType][tDiary] tDiaryのデータをOldTypeに変換した(3)

変換したもののうち2006年分の記事をOldTypeに登録完了。残すは2007年分が未登録。

!kiyoka.blog.listの表示形式も変更して月刊の過去ログにもたどれる様にした。

やっぱりサムネイルのおかげで全体的にかっこよく見える気がする。

デザイン力がない場合はサムネイルに頼るのが楽なのだ。

comment please => kiyoka.2008_10_12

kiyoka.2008_10_11[言語][本] 革新的ソフトウェア企業の作り方

   Eric Sink on the Business of Software 革新的ソフトウェア企業の作り方

この本ではソフトウェア会社といっても、請負とかコンサルタント業とかSI業者は除外されるので注意。

なので、日本国内ではほぼ該当企業なしかも。

とはいうものの、趣味でオープンソースソフトウェアを作っている人にもいろいろ勉強になる所はある。(OSSをやっている本人も決してビジネスには成らないと思っているハズなので)

特に、マーケティングの章はOSSの人にも役に立つと思う。

勿論オープンソースの話は、オープンソースでソフトウェアビジネスをするのはかなり難しいという意味合いでしか出てこないが、自分で立ちあげたオープンソースプロジェクトの社会での立ち位置を再認識できるとおもう。("会社での"ではないことに注意)

ところで、オープンソースの周辺でビジネスをしている人は実際どうやっているんだろ。

私はオープンソースをメインにした企業(一般的にはオープンソース企業と呼ばれる)で働いた事ないので分からないが、それぞれの企業で何らかの工夫がもりこまれているんだろうなぁ。

一度、オープンソース企業を経営している人に秘密を聞いてみたい。

comment please => kiyoka.2008_10_11

kiyoka.2008_10_09[Life][本][育児] 話題の携帯小説『あたし彼女』を読む

赤ちゃんを抱っこしているあいだ、携帯くらいしか持てないので。

結構体重が重たくなってきたので、抱っこ紐して本を読むことが難しくなってきた。

というわけで、『あたし彼女』を読んだ。

そう、を取ったやつ。

ストーリーとしては、昔からあるスタイルで驚く点は無いけど、文体が携帯向けになるとまた違った感じを受ける。

私の世代では純文学スタイルの文体が普通だったけど携帯世代にはこちらの方がリアルに感じるのかも。

ていうか、

赤ちゃんおもいっつーの。

もう

マヂ

無理

だし

泣いてる

意味わかんないし

まあ、なんとなくわかるけど

あたし父親？

みたいな

shiro
ねえ もうそろそろ 寝ておくれよ とうさん 疲れたよ みたいな

kiyoka
shiroさんコメントありがとうございます。 shiroさんもお疲れですか。 とうさんは大変ですね。

comment please => kiyoka.2008_10_09

kiyoka.2008_10_07[OldType][tDiary] tDiaryのデータをOldTypeに変換した(2)

変換したもののうち2004年から2005年までの分の記事をOldTypeに登録した。

!kiyoka.blog.listからたどれるよ。Sumibi.orgの開発記とかが懐かしい。

意外と自分が書いた書評が役に立つことがわかった。

ほげほげお
tDailyといえば、作者様が私のソフトに触れてくれて感動した覚えがあります。 http://sho.tdiary.net/20071204.html 私もフリーソフト作者のはしくれですが、全然違う分野なんですよね。 同じ仕事をしていた時期が懐かしすぎます。

kiyoka
Craving Explorerですね。 Windowsアプリかぁ。 すみません、うちにMicrosoft製品が一つもないので動かせてないんですが... それにしても、ロゴかっこいいです。操作性も良さそう。 Windowsがあれば一度使ってみたいです。

comment please => kiyoka.2008_10_07

kiyoka.2008_10_06[OldType][tDiary] tDiaryのデータをOldTypeに変換した

 to 

kiyoka日記にあるtDiaryの過去データをツールを作って変換した。

ツールはshellスクリプトとGaucheで作成。

いまは、少しづつ変換後のコンテンツを微調整している所。

例えば、tDiaryに登録した画像データまでは変換しないので、そのあたりは手作業になる。

過去記事は 324件 もあった。こんなに書いてたんだなあ。

変換が終わったら、この膨大な記事から本の書評だけ抜きだしたり色々面白いことができそう。

ちなみに、これがスクリプト。

ちょっと長いけど、御勘弁。(このソースコードはCodeReposに上げてます)

[ tdiary2oldtype.sh ]

#!/bin/zsh

cat tdiary_data/**/*.td2 | iconv -f euc-jp -t utf8 > td2.txt

cat tdiary_data/**/*.tdc | iconv -f euc-jp -t utf8 > tdc.txt

gosh ./convertToSexp.scm d < td2.txt > td2.scm

gosh ./convertToSexp.scm c < tdc.txt > tdc.scm

mkdir -p out

gosh ./convertToOT.scm ${USER} td2.scm tdc.scm

一旦、tDiaryの形式からS式のファイル(alist)に変換するのがミソ。

  tDiaryのデータ

Date: 20070902

Title: 

Last-Modified: 1188819527

Visible: true

Format: tDiary

[プログラミング] Schemeのlambdaがようやく分かってきた

 <%=a "なんでもλ|http://practical-scheme.net/docs/lambda-j.html" %>を前に何度も読んだけど、自分のモノになってなかったようです。

 最近、named letと継続渡しオンパレードなWiLiKiのパーサをいじることで、ようやく全部同じだという感覚が掴めました。

 何なんでしょう。こういう質の高いチュートリアルを読んでも掴めなかった感覚が実際に自分でやってみると掴めるというのは。

 なんでも経験ですね。

 誰か『なんでも経験』ていう文章書いて下さいませ。

.

  変換後のS式

( "20070902"

  (Date: . "20070902")

  (Title: . "")

  (Last-Modified: . "1188819527")

  (Visible: . "true")

  (Format: . "tDiary")

  ( "[プログラミング] Schemeのlambdaがようやく分かってきた

<%=a 'なんでもλ|http://practical-scheme.net/docs/lambda-j.html' %>を前に何度も読んだけど、自分のモノになってなかったようです。

最近、named letと継続渡しオンパレードなWiLiKiのパーサをいじることで、ようやく全部同じだという感覚が掴めました。

何なんでしょう。こういう質の高いチュートリアルを読んでも掴めなかった感覚が実際に自分でやってみると掴めるというのは。

なんでも経験ですね。

誰か『なんでも経験』ていう文章書いて下さいませ。" )

  .

  .

  )

[convertToSexp.scm]

#!/usr/local/bin/gosh

(use srfi-1)

(use srfi-13)

(define (load-td2 port)

  (let (

        (body  '())

        (str-list (port->string-list port)))

    (define (reset-body!)

      (let1 ret (reverse body)

            (set! body '())

            (if (null? ret)

                ""

                (string-append "    ( \""

                               (string-join ret "\n")

                               "\" )"))))

    (define (push-body! str)

      (push! body str))

    (filter-map

     (lambda (str)

       (cond

        ((#/^TDIARY+/ str)

         #f)

        ((#/^[a-zA-Z-]+: / str)

         (let1 pair (string-split str #/[ ]+/)

               (string-append

                (if (#/^Date: / str)

                    (format "( \"~a\" " (cadr pair))

                    "")

                (format "(~a . \"~a\")" (car pair) (cadr pair)))))

        ((= 0 (string-length str))

         (reset-body!))

        ((#/^[.]$/ str)

         (string-append (reset-body!)

                        " )"))

        (else

         (let1 str (string-trim

                    (regexp-replace-all #/[\"]/ str "'"))

               (push-body! str)

               #f))))

     str-list)))

(define (main argv)

  (print "(")

  (for-each print

            (load-td2

             (current-input-port)))

  (print ")"))

[convertToOT.scm]

#!/usr/local/bin/gosh

(use srfi-1)

(use util.list)

(use rfc.uri)

;;

;; "20081231" => "2008_12_31"

;;

(define (convert-date date)

  (let ((y (substring date 0 4))

        (m (substring date 4 6))

        (d (substring date 6 8)))

    (string-append y "_" m "_" d)))

;;

;; "<%=a 'link|str' %>          =>  [[link|str]]

;; "<%=isbn_image 'id' %>       =>  ##(amazon id)

;;

(define (convert-command str)

  (let* ((str

          (regexp-replace-all #/<a[ ]+href='([^']+)'>([^<]+)<\/a>/ str

                              (lambda (m)

                                (string-append "[["

                                               (rxmatch-substring m 1)

                                               "|"

                                               (rxmatch-substring m 2)

                                               "]]"))))

         (str

          (regexp-replace-all #/<%=[ ]?a[ ]+'([^|]+)[|]([^']+)'[ ]+%>/ str

                              (lambda (m)

                                (string-append "[["

                                               (rxmatch-substring m 2)

                                               "|"

                                               (rxmatch-substring m 1)

                                               "]]"))))

         (str

          (regexp-replace-all #/<%=[ ]?isbn_image[ ]+'([^']+)'[ ]+%>/ str

                              (lambda (m)

                                (string-append "##(amazon " (rxmatch-substring m 1) ")")))))

    str))

(define (output-oldtype-file username date entry-data)

  (define (display-diary entry port)

    (for-each

     (lambda (lst)

       (when (string? (car lst))

         (begin

           (display (convert-command (car lst)) port)

           (newline port)

           (newline port))))

     entry))

  (define (display-comment entry port)

    (let1 name (assq-ref entry 'Name:)

          (for-each

           (lambda (x)

             (let1 str (car x)

                   (when (string? str)

                     (when (not (#/http:\/\// str))

                       (begin

                         (display  (format "##(comment-data ~a ~a)"

                                           (uri-encode-string name)

                                           (uri-encode-string str))

                                   port)

                         (newline port))))))

           entry)))

  (call-with-output-file (format "./out/~a.~a.ot" username (convert-date date))

    (lambda (port)

      port

      (begin

        (for-each

         (lambda (entry) ;; entry is a diary or a comment.

           (cond

            ((assq-ref entry 'Title:)

             ;; diary

             (display-diary entry port))

            ;; comment

            (else

             (display-comment entry port))))

         entry-data)

        (display "##(comment)" port)

        (newline port)))))

(define (save-oldtype-data username diary-data comment-data)

  (let1 h (make-hash-table 'string=?)

        ;; make hash data ( key is string of date , value is alist of diary or comment)

        (for-each

         (lambda (pair)

           (hash-table-push! h (car pair) (cdr pair)))

         (append

          diary-data

          comment-data

          ))

        (hash-table-for-each

         h

         (lambda (k v)

           (output-oldtype-file username k (reverse v))))))

(define (main argv)

  (let ((username       (cadr argv))         

        (diary-file     (caddr argv))

        (comment-file   (cadddr argv)))

    (let ((diary-data

           (call-with-input-file diary-file read))

          (comment-data

           (call-with-input-file comment-file read)))

      (save-oldtype-data

       username

       diary-data

       comment-data))))

comment please => kiyoka.2008_10_06

kiyoka.2008_10_05[Life][食] チキンチリ

チキンチリを例の宅配スーパーで注文して作った。(過去記事:kiyoka.2008_09_21[Life][食] 宅配スーパーが便利すぎる件)

今回もうまくできた。

でも実際に食べようとすると、赤ちゃんが泣きだして大急ぎで食べる。

味わって食べるれるのは当分なさそうだ。

もっとゆっくり食べたい。

comment please => kiyoka.2008_10_05

kiyoka.2008_10_03[言語][プログラミング] 並列処理のプログラミングの未来は純粋関数型言語にある？

ゲームの世界でも、CPUのクロック数は頭打ちになりメニーコアの方向に行く。

処理速度を向上させる為には、沢山のCPUコアをいかに有効に活用するか(並列化)しかない。

最後には純粋関数型になるだろうととのこと。

 ゲームプログラミング界の巨人、Tim Sweeneyが「未来のゲーム開発テクノロジー」を語る

 Sweeney氏は純粋関数型言語のもつ並列処理安全性に着目しており、将来的に

 ゲームプログラミングはそういった処理系に移行していくべきだとした。

 Sweeney氏はそのひな形として言語“Haskell”を挙げているが、ゲームなどの

 新情報を開発のメインストリームたり得る言語はまだ登場しておらず、将来に

 期待しているという。

私も概ね同意する。スレッドプログラミングの複雑さは最後には人間の限界を超えると思う。(もう超えている？)

特に、画像処理やレイトレーシングなどの処理は副作用なしで記述しやすいプログラムの代表格だと思うので近いうちに関数型言語が主流になるんじゃないかと思う。

comment please => kiyoka.2008_10_03

kiyoka.2008_10_02[OldType] ブログの記事リストに画像のサムネイルを付けた

OldType 0.3.4 リリース。

記事中で使われている本の背表紙やYouTubeのサムネイルを出すようにした。