2007-03-01から1ヶ月間の記事一覧

今日でこの日記は締め

これは相当前から考えていたこと。ただ、「締め」といっても更新はこのまま続けて(忙しくても頑張る)、このアカウントで日記をスタートさせてから今日までの約2年を、はてなダイアリーブックで書籍化するだけ。実は自分がはてなで書きつづけているのも、…

胃が痛くなりそう

リファラとか、どのユーザが誰のRSSを登録したとか、気の弱い人は見ちゃいけないと思う。ましてや「YAPC行く予定です」とか書こうとしてた矢先に見てしまったのは、自らプレッシャーをかけてるとしか思えない。 ということでこの日記は、技術系と見せかけて…

そういや今日

初めてWiiに触れてみた。使ってる途中でリモコンの電池が切れてしょんぼりだった。

最近社内で密かに心がけてること

「田中さん」と聞こえてきても絶対に振り向かないこと。

明日のネタ

2、3個あるにはあるけど、どれもマジ系だからなぁ…。 なんかこう、アホっぽく見えるような、軽いネタを探さなくては。 それとも、入社して一週間も経ってないから、あえてマジ系に振ってみるのもアリか。 (追記 3/30) 来週の月曜だった。ってことは週頭…

昨日のイライラ系エントリだけど

今日少し考え直してみたら、結局自分で自分の時間を作れないようなスケジューリングにしてるからじゃん、と気づく。 ただ、おかげで予定より早くプロトタイプが披露できそう(モチ社内向け)。だから、明日こそ少し自分の時間にも投資してみる。 不祥私24年…

KAYAC豆知識

マックは週一回まで。

こんなんじゃ駄目だ

何もしてない・できない自分に物凄く苛立つ。とにかく、なんでもいいから一歩前に出る。

サクラ(≠桜)は

やっぱ自分の性に合わないな…。

株式会社KAYACの社員になりました

就業に関する書類にサインしたので、正式に決定。今日から社員です。 →面白法人カヤック にしても、まさか本気で「ぶっこまれる」とは思わなかった…。正に「身から出た錆」「嘘から出た真」「瓢箪から駒」。 そういやこの会社って、情報公開についてどれくら…

マージソート習作

(defun divide-two (&optional (list) (f-list nil)) (if (< (length f-list) (length list)) (divide-two (cdr list) (append f-list (list (car list)))) (cons f-list list))) (defun do-simple-insert (list num) (if (not list) (setf list (list num))…

N嬢が海外留学から帰ってきたので

吉祥寺にて飲み会。 ついでに俺もぼそりと明日以降のことを伝えてみたら、アウトプット先が良かったのか悪かったのか、瞬時にメンバー全員に伝わり、ついでに祝ってもらえた。とにかく、感謝。 終わって以降しばらくは、何だか悪い冗談(Black Comedy)を見…

基数ソート習作

(defun set-array (&optional (list) (num) (array (make-array '(10) :initial-element nil))) (if (not list) array (let ((key (truncate (mod (/ (car list) (expt 10 num)) 10)))) (setf (svref array key) (append (svref array key) (list (car list)…

バケットソート習作

(defun max-elements (&optional (list) (elm 0)) (if (not list) elm (max-elements (cdr list) (if (> elm (car list)) elm (car list))))) (defun vector-to-list (&optional (array) (num 0)) (if (< num (length array)) (let ((anum (svref array num)…

ベースのピック弾きとか

K氏への私信みたいになるが。 自分の中では少なくとも、ラテンやジャズのようなジャンル的に割と古い音楽は、いくらアタックが必要といってもピックで得られるアタックとはモノが違うと考えている。だから、「その手の音楽に、ピックで得られるアタック、ひ…

シェルソート習作

(setq h 3) (defun make-new-list (&optional (list) (num) (n 0) (t-list nil)) (cond ((not (cdr list)) (if (= num n) (append t-list (list (car list))) t-list)) ((= num n) (make-new-list (cdr list) (+ num h) (1+ n) (append t-list (list (car li…

本きたー

祖母に感謝。ゲーデル、エッシャー、バッハ―あるいは不思議の環 20周年記念版posted with amazlet on 07.03.23ダグラス・R. ホフスタッター Douglas R. Hofstadter 野崎 昭弘 柳瀬 尚紀 はやし はじめ 白揚社 (2005/10)売り上げランキング: 13234おすすめ度…

山場はほぼ終了

意外とあっけなかった気がする。

単純選択ソート習作

(defun do-simple-select (&optional (list) (num nil)) (let ((tmp (car list))) (cond ((not num) (do-simple-select (cdr list) tmp)) ((not tmp) (cons nil num)) ((not (cdr list)) (if (> num tmp) (cons (list num) tmp) (cons (list tmp) num))) (t …

ふと思ったのだが

in Perl my ($a, $b) = (1, 2); みたいなことをLispでもできないのかな。 (setf '(a b) '(1 2)) なんてできちゃいそうな気もするけど(初心者というかバカ丸出し)

単純挿入ソート習作

(defun do-simple-insert (list num) (if (not list) (setf list (list num)) (if (< (car list) num) (setf (cdr list) (do-simple-insert (cdr list) num)) (setf list (cons num list)))) list) (defun simple-insert-sort (list) (let ((ret-list)) (dol…

バブルソート習作

(defun do-bubble (list) (if (cdr list) (let ((t1 (car list)) (t2 (car (cdr list)))) (if (> t1 t2) (setf (car list) t2 (car (cdr list)) t1)) (setf (cdr list) (do-bubble (cdr list))))) list) (defun bubble-sort (list) (let ((ret-list)) (dotim…

母親と出かけたのだが

話していて、ああ、ここがその差か、とやっとわかってきたように思った。

ガム食いまくり

久々に禁煙の苦痛を味わいたかったので(土屋賢二風)、三日程前から絶つことに。で、イライラ防止でガムを買ったつもりが、大体この手のものは手元にあればすぐ口に入れてしまうタイプなので(まさにガキ)、あっという間に無くなってしまった。 そんなわけ…

山は

規模が半分以下に。が、あまり気は抜けない。

酔うとちょくちょく思うのだが

フリージャズが演奏できるようになりたい。 ここで無責任に「簡単じゃん」と言ってしまえるキッズには「是非とも3年ROMれ」とか思うが。 最近思うが、フリーで一番大変なのはベースだと思う。いかにスピード感をキープしつつ、かつコード感を見せないかとい…

最近、この時間になるとかなり眠い

それほど早起きはしてないつもりなのにな。夜更しも以前ほどしてないし。 多分、睡眠が深くなれば大丈夫だと思う。

メール北

ワイン飲みたいな。 さて、残りの大きな山は…、あと1個か?

メールの返事が来た

うーん、やっぱり手厳しいことが書いてある。が、今まで手厳しいことすら言ってもらえる環境になかったし、こうした人からこんなに懇切丁寧に言ってもらえる機会はないので、大切にしなくては。

「こころ」読了

こころposted with amazlet on 07.03.17夏目 漱石 新潮社 (1952/02)売り上げランキング: 3178おすすめ度の平均: 時代は変わっても、そうは人間変わらない この100年で、人間は少しでも進歩したのだろうか 生きている間に絶対一度は読んだほうがいいAmazon.co…