2008-01-01から1年間の記事一覧

買った本

キングダム 12 (ヤングジャンプコミックス) アンフィニッシュト (文春文庫) サクラテツ対話篇 藤崎竜作品集 2 (藤崎竜作品集) (集英社文庫(コミック版)) バッカーノ!―The Rolling Bootlegs (電撃文庫) 狼と香辛料 (4) (電撃文庫)

買った本

タフの方舟1 禍つ星 ハヤカワ文庫SF 魔人探偵脳噛ネウロ 19 (ジャンプコミックス)

読み始めた本

精霊の守り人 (新潮文庫)

買った本

バガボンド(29)(モーニングKC) 蟲師(10) (アフタヌーンKC) BLEACH 36 (ジャンプコミックス)

anarchy golf - bubble sort

なるほど、PostScript ゴルフで moveto で数値保存、rmoveto で加減算、currentpoint で数値の取り出しをするというテクニックは、こういう問題のような場合に使うといいのか。(参照 ySas さんの解)

元ネタ「ある場合分け - 安寿土牢 - ファック文芸部」

自然法則はある 科学者が夢想するような理想的な自然法則が実在する 自然法則はあるが…… Version A 科学知識の有無に関わらず 万人を救う 万人に対して関心がない 万人に対して酷い(熱力学第二法則を憎む!!) Version B 科学知識の有無に関しては一旦忘れて …

続・w3m で現在見ているページをはてなブックマークする Local CGI

id:yshl:20050810:1123666828 の続きである。*1 はてなブックマークの仕様が変わったので、Local CGI を変更した。 #!/usr/bin/perl $name="yshl"; $str = $ENV{"W3M_URL"}; $str =~ s/(\W)/'%'.unpack("H2",$1)/eg; $url = "http://b.hatena.ne.jp/$name/ad…

買った本

ヒステリック・サバイバー (宝島社文庫) タイタニア2 暴風篇 (講談社文庫) ハチワンダイバー 9 (ヤングジャンプコミックス) さよなら絶望先生(14) (講談社コミックス)

Lazy K についての個人的なまとめ

Lazy K は関数だけでできている どの関数も関数 1 個を引数にとって、関数 1 個を返す関数 関数 x を y を引数にして呼ぶのを xy と書く unlambda 記法だと `xy xy して得られた関数を z を引数にして呼ぶのは (xy)z だが、演算の優先順位的に括弧は省略でき…

カーネルを再構築するきっかけは何ですか

Maeve をビルドしようとした Gauche-0.8.14 が必要と書いてあったがインストールしているバージョンが 0.8.13 だった Gauche-0.8.14 をビルドしようとしたら、エラーになった nekoie - Gauche-0.8.14のインストールではまったを見てビルドできた Meave をビ…

買った本

Short Coding ~職人達の技法~

anarchy golf - Ranking __REVENGE__ の C と PostScript

公開後に何バイト縮んでんだ。出直してくる。

チャーチ数ゴルフ

anarchy golf - Church Numerals in ski の C。346 バイトもあるし、死ぬほど遅い(test 2 が 1 分くらいかかる)ので出直してくる。 char*p,*q,*r,*u,s[2]['~~~'];x;n;m; f(){for(n=0;~n&&*u;u++)*u-96?n--:n++;} main(){ for(;gets(s[x]);printf("%d\n",m)…

はてなブックマークの概要欄の編集機能が無くなったら

2 年以上も編集しつづけてきた http://b.hatena.ne.jp/entry/1699749 はどうなるの?

anarchy golf の DOS

anarchy golf - Nothing が org 0100h mov cx, 9 _loop1: mov ah, 1h int 21h loop _loop1 int 20h でいけたのに、anarchy golf - echo は org 0100h mov cx, 15 _loop1: mov ah, 1h int 21h loop _loop1 int 20h とすると、改行以降のアルファベットがおか…

Quine

2008-11-02 について Forth とか PostScript とかでの事情 文字列をプログラム中に書くような形式で表示 一度目に読んだときは、 PostScript の == みたいに、文字列をプログラム中に書くような形式で表示してくれる関数/命令/機能がある、というパターンが…

買った本

ジェシカが駆け抜けた七年間について (角川文庫) 炎に絵を 陳舜臣推理小説ベストセレクション (陳舜臣推理小説ベストセレクション) (集英社文庫) 結界師 22 (少年サンデーコミックス) おおきく振りかぶって(11) (アフタヌーンKC)

偽文士日碌は w3m だと読みやすいですね

w3m 視点だと、2006〜7年頃のたけくまメモの方が読みにくかったですよ。当時のたけくまメモは著書とオススメ本のリストが本文の前にあったので、大量にスクロールを強いられ、w3m 使いには面倒でした。今は本文の後ろにリストがあるので、すぐに記事が読めて…

受け付けるメディアタイプ (accept_media) に application/x-httpd-php を加えてない w3m でニコニコ動画の各動画の URL (http://www.nicovideo.jp/watch/sm???????) に行くと 406 Not Acceptable になる件について。

w3m

w3m じゃそもそもニコニコ動画見れないという事は置いておくとして、2006年7月4日のどさにっきで DIS られているような設定になってるのだろうか。

ということで、print-as-golf

コンビネータ算法スタイルの Lazy K のソース*1を手でゴルフ用に整形*2するのが面倒くさくなったので、print-as-golf を書いてみたよ。これが最短だという保証はないけどね。 使う時は lazier.scm の print-as-cc や print-as-unlambda と同じ様に (print-as…

anarchy golf Monster group 回答公開

モンスター群の位数 808017424794512875886459904961710757005754368000000000 を出力する問題です。 多倍長整数と冪乗演算子がある言語向きの問題なので、Ruby でもやってみたら 34 byte で 4 位でした。ちなみに 8 種類もできました。 p 1440**9*637**3*0x…

定型句「すでに常識ですが、そ」を使うと、文が敬体に決まってしまう。

文章の常体/敬体の統一を気にする人にしか意味がない話ではある。

Ghostscript のバージョン依存性

いろいろなオブジェクトを文字列に変換する命令 cvs や、数を n 進数で表した文字列に変換する命令 cvrs を使うときには文字列を格納するバッファを用意してやらなきゃいけない事はすでに常識ですが、そのバッファが足りなかった場合の振る舞いは Ghostscrip…

買った本

エンバーミング-THE ANOTHER TALE OF FRANKENSTEIN- 1 (ジャンプコミックス) 黒竜潭異聞 (祥伝社文庫) 蛇王再臨 アルスラーン戦記13 (カッパ・ノベルス)

謎の21バイト

epatel さんの anarchy golf - hello world in C と anarchy golf - Fibonacci Numbers in C の 21byte って何なんだろう。 exec がらみかと思ったけど、Fibonacci の方は exec denied なんだよな。

こんな表作るより先に print-as-golf を作るべきではないだろうか

ごめん、また Lazy K の話なんだ。 チャーチ数にはやたらと (S(KS)K) が出てくるので、(S(KS)K) を纏めると短くなることが多い。ということで、 (S(KS)K) を後ろにつけるとチャーチ数になる式。0、1、4、16、64 など prelude.scm、prelude-numbers.scm のま…

買った本

柳生陰陽剣 (新潮文庫) 「柳生雨月抄」改題だそうで 柳生薔薇剣 (朝日文庫) HUNTER X HUNTER26 (ジャンプコミックス) BLEACH 35 (ジャンプコミックス) 魔人探偵脳噛ネウロ 18 (ジャンプコミックス)

サイドブレーキ

最近は足踏み式のサイドブレーキがあるので、パーキングブレーキと呼ぶらしい。 「運転手が突然意識を失ったときに、助手席からサイドブレーキをかけて停止する」という技が、足踏み式のパーキングブレーキの場合使えないのが気になる。

整数リストの短縮

Scheme どう書く?的 - higepon blog を PostScript で [1 3 4 5 6 12 13 15] [exch{ 1 index type /arraytype eq{ dup 1 sub 2 index 1 get eq{ 2 copy 1 exch put pop }if }{ 2 copy 1 sub eq{ 2 array astore }if }ifelse }forall] == % => [1 [3 6] [12 …

買った本

タイタニア1 疾風篇 (講談社文庫) キングダム 11 (ヤングジャンプコミックス)