2008-09-01から1ヶ月間の記事一覧

整数リストの短縮

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 (ヤングジャンプコミックス)

アナゴる v

v.grass アルゴリズムを工夫したらどんどん縮んで気持ちよかった。4 位だったけど。 最初に submit したのはこんなのでした。131 byte。 wwwWWWwwWwwWWWWwv # チャーチ数を 1+ wwwWWwWWWWwv # チャーチ数の掛け算 * = (lambda(n m)(lambda(f)(n (m f)))) wwW…

w3m って UTF-16 は読めないのか?

w3m

w3mmee の方は対応しているようだ。

電卓のようなもの

(もっとネタ臭を醸し出した書き出しをここに書きたいのだが、できないので保留) Forth といえば逆ポーランド記法、逆ポーランド記法といえば Forth ですが、Forth で中置記法で数式を書く事もできます。 まず、四則演算のオペレータを上書き定義します。上…

リーマン

リーマン・ブラザーズのリーマンって Lehman だったのか。Riemann だと思ってた。 Lehman に n をつけただけの Lehmann もリーマンと読んだら、日本人にはリーマン面とレーマン面の区別がつかなくなる。(不連続をつけろよデコスケ野郎)

Grass

wWw は、UENO さんのインタープリタでは無限ループだけど、ytqwerty さんのインタープリタだとスタックオーバーフローする。言語仕様としては無限ループしようがスタックオーバーフローしようが構わないのだろうか。 UENO さんのインタープリタもメモリ使用…

(%stdout)(w)file ゴルフ

PostScript では、普通、標準出力のファイルオブジェクトは (%stdout) (w) file などとして作ります。しかし、文字列はバイナリーエンコードの効果が薄いので、"%stdout" "w" の2個の文字列があるこの方法は、ゴルフ向きではありません。標準出力に何か書き…

ゴ(略)

e anarchy golf - e in C の flagitious さんのバイナリ無しで 84 byte って何なんだろう。真面目に計算してるのだろうか。 Double Parity Vertical Redundancy Check anarchy golf - Double Parity Vertical Redundancy Check。埋め込みしてない方は各行の …

買った本

のだめカンタービレ(21) (KC KISS) Da¨mons 13―「鉄の旋律」より (少年チャンピオン・コミックス) さよなら絶望先生(13) (講談社コミックス)

BF って言ったら Boy Friend じゃなくて BrainFuck だよね

誰も POST せずに終了してしまった anarchy golf - Brainfuck ですが、test2 はC で書かれたインタープリタで実行させると手元のパソコンで 33 秒かかるので、出題者の意図としては最適化をしろ、という事だったのかもしれません。 ただ、Sample input の Br…

循環少数

Anarchy Golf に新しい問題 Repeating Decimal を作りました。英語及び Sample Output の正確さについては一切保証致しません。

Anarchy Golf - ASCII Stars - PostScript

Mark Byers さんのコードは '*' を出力するとき for ループで 0.5 ずつ増加させているのですが、 「0.5 ずつ増やす」という発想が自分に無かった。 スタックの使い方がピッタリはまっている。'*' を出力する for ループに必要な初期値、増分、終了値が ' ' …