あぁ無情 刹那 オリジナルシュー作ってるってのはDSiWareだったのか。 というわけでDLして2時間ほど遊んでみた。うん、心地良いなーこれ。細江さんのBGMも凄く良い。RandomはABAゲー好きな人に良さそう。Noiz2saのexみたいな最初から弾だらけ敵だらけモード…

anarchy golf - Goldbach partition 匠の仕事にたんぽぽを乗せるお仕事。#n=の理解が間違っていたので if(every'p #1=`(,p,(- n p)))nconc #1# ↓ if(every'p`#1=(,p,(- n p)))nconc`#1# の変形はエラーになるだろなーとか思ってた。このリーダーマクロを再定…

#1 (defun (setf <access-fn>) ...) - 日々ごちゃごちゃと考える defunはclosette付属のnewcl.lispの定義をそのまま使って、あとxyzzyにないtypecase, ecase, print-unreadable-object等を適当に書き、んでstd-instanceの定義のprint-functionで引っか…

ルッツとフリップの判別がたまに怪しいという程度のフィギュアスケートファンですが、OPの時点で再現度の異常な高さにフイタ どの要素取っても加点が入ってるレベル。何だこれ…どれだけ頑張ったんだろう。 構成もMMDだからって無茶させず、ごくまっとうなSP…

平安堂で、上田市が舞台のうんぬんかんぬんのポップ見てコミック版1巻を買ってきた。 読み終えて、すぐさま千石劇場へ行ってみてきた。よかった。小さいころ母方の実家へ行った時によく花合わせをやったもんだけど、こいこいは大人になるまで知らなかったな。…

Google グループ Wanna play golf? (defn filter-collecting [predicate collector & lists] (lazy-seq (loop [lists lists out []] (if (empty? (first lists)) (reverse out) (let [heads (map first lists)] (if (apply predicate heads) (recur (map res…

http://gist.github.com/66945 途中だけど気になったので比較Windows XP SP3 (Core2 1.86 GHz) Evaluation took: 8.578 seconds of real time 8.546875 seconds of total run time (8.437500 user, 0.109375 system) [ Run times consist of 0.205 seconds G…

shiroさんの発表見てて思いだしたAO Benchをちょっと改修。10秒切れた。 コンパイル時のnoteを見るにまだ最適化できてない箇所がわんさかあるのでもうちょっと頑張る。あとweb4r、サクっと動かせたは良いがレスポンスが異常に遅い時があるので忘れないうちに…

祝 Let Over Lambda 邦訳出版! - 'T - cadr groupを見て9日のうちに予約完了したはずなのだけど今日になって配送予定日未確定通知がorz

【初音ミク】無限の闇―echo of the past【オリジナル 】 ‐ ニコニコ動画:GINZA 絵師:9999って何者？と思ったらCLAMPだったのか。是非今後ともこの人脈を無駄に使って行って頂きたい。いや有効活用してもらっても良いんだけど前例がなぁ… パズルモードだけじ…

youz/xlisp-mode · GitHubid:knenetさん作のxlisp-modeを自分好みに修正&若干機能追加。 clojure1.0やarc3がリリースされた事だし、xyzzyでももう少し遊びやすくしておこうという事で。あとこんな時にも。追加機能まとめ *xlisp-mode-map* … 若干SLIME風 *xl…

Clojure本の発送は再来週とな

googleのロゴがテトリスになってたけど色がWorld仕様でもSEGA系でもない。TTCに怒られるぞ。 How Tetris conquered the world, block by block | Technology | The Guardian 左がHenk氏か。TGM-K(仮)通してくれたのむ。TGM3というかWorld-Shiraseやりたいん…

anarchy golf - Gray code (let ((n (read)) (x 3) (l '(0 1))) (dotimes (i (1- n)) (setq l (append l (mapcar #'(lambda (a) (logxor x a)) l)) x (* x 2))) (dolist (c l) (format t "~V,'0B~%" n c))) といった方法も思いついたんだけど短く書けない。 …

第32回たまたま帰ってきたCL勉強会@Chaton8時だョ!全員集合 ネタ募集 - 'T - cadr group唯一取ったプログラミングというか計算機っぽい講義の課題でエセチューリングマシンをjsで書いた事は覚えてるんだけど、講義の内容は遥か記憶の彼方…とりあえずググって…

とりあえず整理だけ。変数名をc[ad]+rにしたのもいけなかったな… (defun nalist-to-plist (alist) (do* ((result (car alist)) (a alist next) (next #1=(cdr a) #1#)) ((null a) result) (let ((1st (car a)) (2nd a) (3rd (cadr a))) (setf (car 2nd) (cdr…

寝る前にやってみようと思ったのに1時間かかった件 o...rz １０分でコーディング x 2 〜リストの破壊的操作篇〜 - 'T - cadr group最初(loop for 〜 on 〜 …)使って書き始めてはまった。 (defun nalist-to-plist (alist) (do* ((result (car alist)) (a alis…

4面で足切りとか厳しいなあとか思ったらホントに4面で終わりなのか。 新しい試みの最初の作品で男坂エンドとかCAVEチャレンジャーすぎる。例によって追加だか解禁だかあるんだろうけど大丈夫なのかなこれ。システム面は前作よりシンプルになってる? と思った…

http://ameblo.jp/programming/entry-10001212615.html via 15 分のもやってみた - kozima の日記 - cadr group データが扱える人を探せ！ - 象徴ヶ淵LINQのチュートリアル問題みたいな。 今度はsplitの書き直し含めて時間以内になんとか。 def(String.split…

http://ameblo.jp/programming/entry-10001721422.html via トランプを配る - 日々ごちゃごちゃと考える 10分でカード配りな！ - 象徴ヶ淵 「１０分でコーディング」やってみた - kozima の日記 - cadr group 「１０分でコーディング」を１３分で - 'T - cad…

http://practical-scheme.net/chaton/ (via さようならありがとうLingr、こんにちは破壊力ばつ牛ﾝChaton - 'T - cadr group)仕事はぇー。ところでsymbolicwebはどこ行ったんだろう。 ここは更新されてるみたいだけど。

anarchy golf - hexagon 2nd fixed atom5個分で書けてしまうCL最強ですね (format t"~{ ~*~#@{ ~}~:*~#@*__~#@{/ \\__~}~#@*~* ~}~:*~{/ \\~#@*~#@{__/ \\~}~:*~#@*~#@{__/ \\~} ~:*\\__/~#@*~#@{ \\__/~}~:*~#@*~#@{ \\__/~} ~}~:*~{~*~^~:*~#@* ~#@{ ~}~#@…

Day of the Triffords from Andrew Sorensen on Vimeoフルスクリーン推奨。おもすれー

comp.lang.lispからエイプリルーフールネタ Google グループ http://www.lrde.epita.fr/~didier/software/smilisp.php :o(が開き括弧 :-)が閉じ括弧に。同梱のsmilisp.elを使ってsmilisp-bufferすると smileyっての知らなんだ。 で、スレより Sorry, but I d…

Clojure - java_interopを見ててxyzzyリファレンスにあったoleのマクロを思いだす。10年前なのかこれ。 で、Clojureの..がちょっと便利そうなので書いてみる。 (defmacro $ (obj field &rest args) `(ole-method ,obj ',field ,@args)) (defmacro $$ (obj &r…

via Big Sky :: Growl For Windowsがリリースされてアイコンが表示出来る様になった。 とりあえず表示するだけ。 ソース -> http://gist.github.com/83546 改行コードのいじり方がよくわからん…おかげで複数行メッセージが送れない。 できた (growl "multili…

まんがとかラノベとかラノベとかラノベとか。どろぼうの名人サイドストーリー いたいけな主人 (ガガガ文庫)作者: 中里十出版社/メーカー: 小学館発売日: 2009/03/19メディア: 文庫購入: 11人 クリック: 40回この商品を含むブログ (35件) を見る百合ラノベ。…

http://blog.bugyo.tk/lyrical/2009/03/cl-4.htmlのコメントの続き。SBCLのソース(code/seq.lisp)をチラっと見てみたら、もしかしてvectorと指定した方が速い?と思って追試してみた。 ほぼ同じ内容のコード(ansiclのテキスト使った)をリピート回数2万回で型…

前回の追記に書いたmydefをメソッド定義にも使えるように微修正。 mac(mydef)^(name, func): _ret := "return_" + if (name.parent == Messenger): (name.receiver.to_s() + "_" + name.message.to_s()) else: name.to_s() _body := Block.new([`(?_ret.inte…

SQL で素数 - Life Goes On ON句の中で色々除外してやらないと全部結びついちゃいます。 SELECT group_concat(N1.num) AS prime FROM nums N1 LEFT OUTER JOIN nums N2 ON N2.num > 1 AND N1.num / 2 >= N2.num AND N1.num % N2.num = 0 WHERE N1.num > 1 AN…