こんな感じ。 マクロを使いたくなる年頃。 あまり意味はないところが将来見たら恥ずかしいんだろな。 (defmacro string-times(n str) `(apply #'concatenate (cons 'string (make-list ,n :initial-element ,str)))) (defun pyramid(n) (dotimes (var n) (fo…

どう書く.orgのお題を眺めていたら、音声合性でhello worldなんてお題が。 そんなのできんのか？？、とのぞいてみたらfestivalっていうのがあるらしい。おもしろそうなので入れてみる・・・。 色々やったけど、結局はドキュメント通りでよさそう。 やっぱ最…

久しぶりにどう書く.orgの続き。 僕が先に進よりお題が先に追加されてて永遠に追い付けないような気がしてきた。GUI表示ってどうやればいいの？というところからわからないので、「Common lisp GUI」で検索。 一番最初に見付かった日本語サイトにLTKって書い…

訳あって数時間時間をつぶさなくてはならなくなったので、 ・なるべくすぐ始まって ・チケットが売り切れていない という条件を満たしたのがこの映画。 CMでタイトルは見ていたけど、普通ならまぁまず観に行かない映画。で感想。 さっぱり恐くない。ホラーだ…

seriesで遅延評価されているか確認。 なんだかまたhaskellさわってみたくなってきた・・・。 前よりはわかること増えてるんじゃないかって思えるし。 ; SLIME 2006-11-26 CL-USER> ;;seriesで遅延評価の確認 ; No value CL-USER> (require :series) ("SB-CLT…

読了。 自分で購入することはまずない部類の本。 嫁さんが暇つぶしにと買ってきた。 それほど本を読みきらない彼女が読み終わったので、会話のタネになるだろう、との目論見もあって読んでみた。 しかし、僕ならいくら暇でもこの本は買わないなぁ。 以下はヤ…

色々うまくできんかったので八つ当たり。0.括弧。色々な意味で使われてて、使われ方にも統一がないんじゃないか？ (c d">*1 と (a b c d) と書くときがあっていちいち覚えていられない。 前置は別にいいと思う。僕は。 1.日本語の情報が少ない。 文法解説は…

map-fnを#Mってかけそうな雰囲気なのにダメ・・・。 no dispatch function defined for #\Mだって。なんか勘違いしているのだろうか？？？

series入れてみた。 リファレンスどっかにないかなぁ。 ; SLIME 2006-11-26 CL-USER> (require :asdf) NIL CL-USER> (require :asdf-install) ("ASDF-INSTALL") CL-USER> (asdf-install:install :series) Install where? 1) System-wide install: System in …

2005年 韓国 面白かった。演出過剰気味かもしれないけど、それでいいと思う。 チャン・ドンゴンがかっこいい。 「あそこで待ってっていったじゃないか」のセリフに泣きそうになってしまった。 リアルな話ではないけど、なんつーかちゃんと見れる。 終盤つな…

オーストラリアに旅行に行ってました。 機内で読む本を持っていこうと探しにいったんだけど、 ・バカンスなんだろうから殺伐とした本は読みたくない ・プログラミング関連の本もちょっと・・・（といいつつOcamlの本を買っちゃったけど） と考えて適当に選ん…

あまり感想がない。身も蓋もないといえば身も蓋もないことが書いてあった。 はてなが今後どうなっていくのかは僕も気になる。 最近元気がないようにも思えるし。

いまさらだけど読んでみた。 感想が特にない。 あちら側の世界にわくわくするでもなく、文句をいいたくなるわけでもなく。 個人的な感覚でいえば、随分と前に「世界とつながっているんだ」とwebに興奮した時から、あまりwebは進化していないように思う。 blo…

つぎは税込み価格への修正 ・・・lispの正規表現ライブラリしらん。 ・・・lispでの回答を先に見てしまった。まぁいいや。 cl-ppcreというのがあるのか。あとは調べて頑張る。 cl-ppcreのリファレンスは↓ここ http://weitz.de/cl-ppcre/ おお。結構便利だ。 …

(princ "hello world") っと。

ちょっとはやっとかないと。 selectはmapだと思ってたらlambda式が呼ばれない。 あれー・・・。 ・・・遅延評価されんのか。 面白いといえば面白い。しかしなぁ・・・。 CにOOPにして、テンプレートも入れて・・・、「はっくはたのしいけどそれでいいのか？…

mapcarとmapcしか使ったことなかった。 CL-USER> (maplist #'(lambda (a) (pprint a) (reverse a)) '(1 2 3)) (1 2 3) (2 3) (3) ((3 2 1) (3 2) (3)) CL-USER> (mapcon #'(lambda (a) (pprint a) (reverse a)) '(1 2 3)) (1 2 3) (2 3) (3) (3 2 1 3 2 3) h…

もう眠いからポインタだけ 文字ーバイト sb-ext:string-to-octetsバイトー文字 sb-ext:octets-to-string unsigned-bytehttp://lispuser.net/commonlisp/japanese.html

コインを減らす払い方。できたつもり。 ずいぶん書き直したなぁ。これであってんのかなぁ。 まぁいいか。 ;;コインを減らす払い方 c (defmacro make-coins(yen1 yen5 yen10 yen50 yen100 yen500) `'((1 ,yen1) (5 ,yen5) (10 ,yen10) (50 ,yen50) (100 ,yen1…

アニー見てきました。 夏休み少し前くらい？になると、毎年アニーのオーディションから追っかけた宣伝番組やるじゃないですか。 あれ見て、いつかいきたいなぁと思ってたので。 で、見た感想は「やっぱミュージカルはすごいなぁ」だった。 何がすごいって、…

コインを減らす払い方 難しい。単純にロジックどう書けばいいかわからんぞ。 ひょっとして俺ってものすごいバカなのかも？（ショック）とりあえず、今書いたところまでのせとく。 関数を作るマクロを初めて書いた。 おもしろーい。 ;;コインを減らす払い方 (…

例外処理はいいかげん。 なんだか汚いソースだなぁ・・・。 ;;n人中m人が当選するくじ (defun make-targets(n) (let ((arr (make-array n))) (reduce #'(lambda (ar i) (if (null ar) (list "0") (append ar (list (princ-to-string (length ar)))))) arr :i…

VLフォントからKonatuフォントに乗り換え。 いい感じ。 http://www.masuseki.com/rnote.php?u=be/konatu.htm

どう書く.orgのお題をやってみる。 まずは「指定されたフォルダ以下のゴミ掃除」なんだけど、いきなりディレクトリの一覧のしかたがわからん。 調べる・・・。 directoryでとれるみたい。・・・pathnameの使いかたがよくわからんぞ。 googleに聞いてみてもあ…

見るのは２回目。 テレビでやってたのを録画したやつをもう１回みた。 ２回見ても飽きなかった。いい映画の条件だ。 せつねぇなぁ。

読了。何度目かの通読。 すでに何度か読んでいるのに徹夜・・・。 眠れなかったからだらだらと読んでいたのが真相なんだけど、朝の７時まで読みつづけたのはどうかしている。 もちろん面白い（っていうとちょっと違うけど）せいもある。 ラストの流れが秀逸。

読了。 突然ヒマになったので、適当に買ってきた。 まぁそこそこ。あえて読むほどのことはない。 不倫を書きたかったのかなぁ。僕は不倫も浮気もしたことがない。これから先もしない、かどうかは分からないけど。 僕の奥さんは平日は家にいない。 大抵は東京…

C#3.0 aggregate=reduce,fold select=map

スパイダーマンも３見ちゃったことだし、ワクワクしながら次回作を待てる映画になってくれないかなぁ・・・、という期待を込めて見てきました。 トランスフォームはよかった。帰り道、車を見るたびに変形するんじゃないかって思うくらい。 真っ昼間にロボッ…

データ ・データから状態を分離する ・日付（この日から有効とか）をどう扱う？ ・ユニークIDを必ず振る画面の制御について ・モードの管理 どんなモードがあるか？ 各モードの関係 排他的なのか包括的なのか ・モードとコントロールの関係 Enabled、Visible…