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

買った本

バガボンド(31)(モーニングKC) HELLSING 1 (ヤングキングコミックス) ムダヅモ無き改革 (近代麻雀コミックス)

-3進数

anarchy golf の問題を作りました。anarchy golf - Negatenary です。 以上。 追記 : タイトルに r が抜けてますね。正しくは Negaternery。 追記 : 上の訂正はまだ間違っていて、本当は Negaternary です。

選挙や投票に関する問題の中のいくつかは、何かを実数にしてしまえば解決するのではないかという気がしてならない。

「A 候補にだいたい同意するけど、ある部分だけ意見が違っていて、そちらは B 候補と意見が同じである」という場合に、A 候補に 0.8 票、B 候補に 0.2 票のように割り振りたい、という意見を電波で受信したので、投票時には 1 票を任意の実数に分割して投票…

Smiley Triangle 61 byte

anarchy golf - Smileys Triangle ですが、Nyhx さんのコードを参考にしたら、C で 61 byte のコードができました。なるほど strcat ですか。ichirin2501 さんのコードにもう少し手を加えれば 61 byte になります。 それまでの私の記録は 66 byte でしたが、…

買った本

ハチワンダイバー 12 (ヤングジャンプコミックス) 敵は海賊・短篇版 (ハヤカワ文庫JA) ドグラ・マグラ (上) (角川文庫) ドグラ・マグラ(下) (角川文庫) さよなら絶望先生(17) (講談社コミックス)

Fortran で Quine

Fortran 95 で Quine を書いてみました。 character*45 s/45h(18hcharacter*45 s/45ha,1h//13hprint s,s;end)/ print s,s;end Fortran にはホレリス定数H型編集記述子というのがありまして、これは正の整数 n の後に h を書くとそれに続く n 文字が文字列に…

Ruby 1.9 で anarchy golf の caddy

caddy も動かなくなったので。 Ruby 1.9 対応をしていただきました。 each_line は、ぐぐって見つけたのをコピペしただけなので、お気になさらないでください。動けばいいという精神のもと、実行時に NoMethodError にならないようにしただけで、テストなど…

Ruby 1.9 で migemo

うっかり Ruby を 1.9 にバージョンアップしたら migemo が動かなくなったので、修正してみた。正しいかどうかは知らん。 追記 : またうっかり Ruby を 1.9.1-p430 にバージョンアップしてしまい、migemo が動かなくなったので再修正した。 Github に登録し…

買った本

魔人探偵脳噛ネウロ 23 (ジャンプコミックス) エンバーミング-THE ANOTHER TALE OF FRANKENSTEIN- 3 (ジャンプコミックス) のだめカンタービレ(22) (KC KISS) BLEACH 40

移植性の高い Hello world

C でも Fortran でも Forth でも同じような事ができるので、移植性が高いことは明白。エンディアン? 何それ美味しいの? C #include<stdio.h> int main() { int a[]={1819043144, 1998597231, 1684828783, 33}; puts((char*)a); return 0; } Fortran dimension n(4) da</stdio.h>…

Migemo の Ruby-1.9 対応って誰もやってないの?

ラングトンの蟻

わくわくパズルランド (岩波ジュニア新書) の「一歩進んで曲がる」や XScreenSaver の Ant は「ラングトンの蟻」と呼ばれるものだという事を おそらくはそれさえも平凡な日々: JavaScriptでラングトンの蟻 で知った記念で、PostScript でラングトンの蟻を書…

どう書く.org

以前書いたローレンツアトラクタをどう書く.org に投稿してみた。 参考ページに以前書いたときの URL を書いておいたのだけど、ページタイトルを空欄にしてしまい、リンクがたどりにくい物になってしまった。

買った本

天岩屋戸の研究 (講談社文庫) 宋の太祖 趙匡胤 (講談社文庫) 耽美なわしら〈2〉 (ハヤカワ文庫JA) 超弦領域 年刊日本SF傑作選 (創元SF文庫)

バグ

anarchy golf - Decompose integer into sum of squares の sample output が間違っている件ですが、こんなプログラムで sample output を再現できました。 #include<stdio.h> int numbers[301], indice[301], length[301], sum[301]; void show(int index){ if(index</stdio.h>…

Forth の大して最悪でもない Hello world

http://blog.cnu.jp/2009/07/08/hello-world-2/、“最悪のHello World”を Squeak Smalltalk で - Smalltalkのtは小文字です、「最悪なHello World」に挑戦2 - 'T - cadr group、「最悪なHello World」に挑戦 - 'T - cadr group など各所で話題の最悪な Hello …

買った本

邪馬台洞の研究 (講談社文庫) きつねのはなし (新潮文庫) 百億の昼と千億の夜 (ハヤカワ文庫 JA (6))

何このstatistics

statistics からすると anarchy golf - Short Pi の *yuko* さんの答えは main(){puts("3.14159265358979");} とは違うのだが、一体どんなコードなんだろう。

買った本

エンバーミング-THE ANOTHER TALE OF FRANKENSTEIN- 2 (ジャンプコミックス) 魔人探偵脳噛ネウロ 22 (ジャンプコミックス) ピューと吹く!ジャガー 17 (ジャンプコミックス) 柳生非情剣SAMON (BUNCH COMICS)

今日の悩み相談

Q. 博多通りもんと聞くと妖怪の方の通り者を思い浮かべてしまうのですが、どうすればいいのでしょうか。

数学的な意味で連続な殺人

ふと不連続殺人事件の背表紙を見て思いついたのだが、ObjectO さんか debedebe さんが書いていそう。

anarchy golf の問題を作った

円周率を小数点以下 14 桁まで表示する問題です。コンセプトは「Gforth に有利な問題」です。

goodict.cgi

w3m

ここしばらく、w3m から goo辞書をお手軽に利用する Local CGI である goodict.cgi が使えなくなっていたので、改造して使えるようにしてみた。 #!/usr/bin/perl # ~/.w3m/urimethodmap に追加する設定 # e: file:/cgi-bin/goodict.cgi?%s # w: file:/cgi-bi…

買った本

おおきく振りかぶって(12) (アフタヌーンKC)

買った本

キングダム 14 (ヤングジャンプコミックス) 結界師 25 (少年サンデーコミックス)

買った本

文庫版 邪魅の雫 (講談社文庫)

Gray code履歴

どうも、51b です。anarchy golf - Gray codeが回答公開になったので、履歴を公開します。 hinoe さんがトップだったので、main 再帰だろうと推測して main 再帰にしてみた。あと、2 進数を表示するのにループを書くのが面倒だったので、8 進数を使うことに…

3

Combinator Birds や prelude.scm のコメントに載っている SSK(S(K(SS(S(SSK))))K)の場合、 Yx=fxfと仮定する。すると、 fxf=x(fxf) =x(Sf(Kf)x) =x(SSKfx) =S(Kx)(S(SSK)(Kx))f =SS(S(SSK))(Kx)f =S(K(SS(S(SSK))))Kxfとなって、 f=S(K(SS(S(SSK))))Kとすれ…

Y コンビネータの作り方

Lazy K プログラマたる者、Y コンビネータの一つも自力で作れるようになりたいものである、ということで作り方を考えてみた。 みんな大好き Y コンビネータは、 Yx=x(Yx)であるという所から出発する。 1 Y が複数のコンビネータの組み合わせからできていると…