ToDo:
そういえば sed sort はループ展開された状態で 置いてあるんだけど、 ちゃんとループにすればすごい縮むと思う。 予想では100切る。
けどこれがめんだくさいんだなー。
まぁでもBFコンパイラ書くよりははるかにカンタンだろう。
(02:08)
i@u ~/wrk/ag> cat csort.dat | sed -f csort.sed ..///:aaaaaaaaaaaaaaaaaaaabbbbbcccddddddddddeeeeeeeeeeeeeeeeeeeeeeeeeeeefffffggggggggghhhhhhhhhhhhiiiiiiiiiiiiiiiijkklllllllllllmmmmmnnnnnnnnnnnnnnnnnnnnnnnooooooooooooooooooooooppprrrrrrrrrssssssssssssssssssttttttttttttttttttttttttttttttttuuuuuuvvvvwwwwwwyyy
テスト二つ目がタイムアウトするのであった。 sed を高速化するのとかアホだなぁ。
あと
y/ !,.\/:<Habcdefghijklmnoprstuvwy/!,.\/:<Habcdefghijklmnoprstuvwy@/
とかがあるので100切るとかは全然ありえない話だった。
うーんメインループが遅いんだとは思うんだけど、 これの最適化のしかたとかさっぱりわからない。 アリゴリズム変えないといけなさそうでそれはとてもやりたくない。 うーん。
(03:10)
/usr/share/doc/sed/examples/dc.sed を見てみよう。
# Print a number in a non-decimal output base. Uses registers a,b,c,d. # Handles fractional output bases (O<-1 or O>=1), unlike other dc's. # Converts the fraction correctly on negative output bases, unlike # UNIX dc. Also scales the fraction more accurately than UNIX dc. # s,|?p,&KSa0kd[[-]Psa0la-]Sad0>a[0P]sad0=a[A*2+]saOtd0>a1-ZSd[[[[ ]P]sclb1\ !=cSbLdlbtZ[[[-]P0lb-sb]sclb0>c1+]sclb0!<c[0P1+dld>c]scdld>cscSdLbP]q]Sb\ [t[1P1-d0<c]scd0<c]ScO_1>bO1!<cO[16]<bOX0<b[[q]sc[dSbdA>c[A]sbdA=c[B]sbd\ B=c[C]sbdC=c[D]sbdD=c[E]sbdE=c[F]sb]xscLbP]~Sd[dtdZOZ+k1O/Tdsb[.5]*[.1]O\ X^*dZkdXK-1+ktsc0kdSb-[Lbdlb*lc+tdSbO*-lb0!=aldx]dsaxLbsb]sad1!>a[[.]POX\ +sb1[SbO*dtdldx-LbO*dZlb!<a]dsax]sadXd0<asbsasaLasbLbscLcsdLdsdLdLak[]pP, b next
ううむ
(18:42)
買った。 まぁウィズつーても外伝とかの感じに近いかなぁ。 なんというか別に突き放してる感じはしない。
ダークハンター、レンジャー、バード、メディック、バード とかいう肉弾戦できない子たちで。 まぁ顔で選んだわけだけど、 そもそもRPGの肉弾戦キャラは好きじゃないので良い良い。
あとレベル10落としてスキルふりなおしって メニューあるけど、これはむしろ レベル落ちるのはメリットじゃないかなー。
(05:40)
resume_entryが無いとかなんとか。
http://bugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=374173
これぽくはあるがわからん。
http://jp.archive.ubuntu.com/ubuntu/pool/universe/z/zinc-compiler/zinc-compiler_1.0.2-6_i386.deb
おやこれか。 libc 変えろって言われるな。 勘弁してくれ
(03:43)
http://slashdot.jp/linux/article.pl?sid=07/02/07/140252
面白いなぁ。
2chのコピペブログの人とかが編集したら もちょいまとまるのではないかとか。
(03:51)
適当につけてみた。まんまパクリで、
07:14 {mircbot} shinh submits 23B of Ruby for sort characters, ranking #2 (10000pts).
って感じ。
見たい人はとりあえず irc.friend.td.nu:6667 の #mazop に(たぶん場所変える)。
(07:16)
_ Gus [clispで出力の最終行に常に改行が入るために、Hamming Numbersやeが通りません。 Hamming N..]
_ ySas [Befunge、多倍長整数がないのも、端をまたいだstring modeについても想定内でしたけど、EOFで-1が積..]
_ shinh [ご報告ありがとうございます。 clisp は全然わからないのですが、なにかオススメの解決法はありますでしょうか。な..]
_ ySas [Befungeは、可能なら再評価か、いったん全部消して再投稿を呼びかけるのが筋でしょうね。記録の上書きで対応したいと..]
_ Gus [clisp投げられるようになりました。ありがとうございました。 実はlispなんて使ったことがないのでお勧めの解法は..]
http://mono.kmc.gr.jp/~yhara/d/?date=20070205#p01
これは便利そうな。
というか Tidy で作りかけてたものに似ているという
(01:50)
迷わず /dev/stdin を読もうとする→ 読めない！ → /dev/tty →同じく読めない → かたっぱしからデバイスを読もうとする → うまいこといかん → しょうがないから CGI 書くなら環境変数読めればいいべ！ → /proc/self/environ → 読めない → どうやら fstat がファイルサイズ 0B という情報を返してるらしい → 仮に読めてもヌル文字が入った時点でアウト → D は劣った言語です！！！
(02:44)
妙に Perl の平均レベル高いと思ってたら Fonality のアレは似た内容だったのか。 参考にすんべ。
どうしよう。 一見して方針から全然違う。 何やってんねんこれつー 相変わらず Perl Golf はイカレている。
(03:59)
(defun count-buffer () (interactive) (how-many "." (point-min) (point-max))) (global-set-key "\C-q\C-c" 'count-buffer)
ゴルフ時にでも
(15:45)
(defun add-leading-space ()
(interactive)
(if mark-active
(string-rectangle (region-beginning) (region-end) " ")))
(global-set-key "\C-q " 'add-leading-space)
適当に
(15:52)
http://d.hatena.ne.jp/kurimura/20070206/1170752453
同じく混沌が好きです。 それはそうとそれだと改行が一つ増えてしまうんです
i@un ~> dmd -c quine.d const char[]x=import(__FILE__)[0..$-1];pragma(msg,x);
(18:08)
http://d.hatena.ne.jp/w_o/20070204#p4
まぁ C は幸い少し読めるので読んでみよう。
たぶんマイクの周波数解析して表示してる。 うん。見なくてもわかる情報だ。
この作りかけのソースから妄想するに、 きっとマイクで喋ると弾幕が降ってくるに違いないね。
(02:52)
って勉強したことないな。
http://www.ngm.edhs.ynu.ac.jp/negami/document/discmath/discmath.html
要はグラフとかあのへんのことらしい。
そうだったのか。
(13:10)
(13:42)
お腹一杯だけどMなので喰ってみた。
それはどうでもいいのだけど、 マクドのガラスに細い横線が入っていて、 そこは黒くなってるわけだけど、 その裏にあった大きな宣伝の液晶かなんかの部分は すごくにじんで見えた。 RGBが別々の散乱角で散乱するからーって話かいな。
(17:50)
blank.awk
│1 │shinh │2 │0.04761 │Sun Feb 04 00:16:09 JST 2007│
教えてもらった意味はまだわかってないのに＞＜
http://jarp.does.notwork.org/diary/200702a.html#200702021
なんか awk は魔法みたいで面白いなあ。 近いうちにちゃんと勉強しよう。
(00:17)
Win32 の exe をなんとかしようと何度か色々やってみてるんだけど なかなか大変みたいだ。 ulimit かかってるとダメみたいなんだよなー。 かといって ulimit 外すのもアレだしなぁ
(00:21)
ぐぐって見つけたとか。
http://programming.reddit.com/info/12qpf/comments
海外の reddit つーのはどんなもんなんだろうな。
(10:21)
irb(main):001:0> 999999999999999**99999999999999999999 (irb):1: warning: in a**b, b may be too big
これなんかはすごい気がきいてると思う。
'a'*9**9
なんつーのも、 まーそうそう無いけど、 望みの結果であるわけない と判定してくれても良さそうに思う。
いやもちろんこんなもんにイチイチ対応するのはアホなので、 もっと下のレイヤでなんか無いんかなーと。 非常識レベルを設定しといて、 非常識っぽいの見っけたら警告、とか。
0.01秒くらいかけてループ1000回くらい回ってみて、 おいおい後1億回あるよホンマに お前これ望んだ結果なんか…？ とふと聞いてくる怠惰なコンピュータ。 怠惰はプログラマの美徳の一つらしいけど、 コンピュータの美徳の一つにもなりえるような、
(13:51)
From: news_maimagl@livedoor.net Subject: 皇族が夜な夜な王様ゲーム!? "ゲイ好き"とmixiで告白 ■□ドア日新聞（07/02/03号）□■
そいうのアリなの？
(02:30)
ありがち。
まずこれ max じゃなくて min だよね！
max = l[0][1]
こういうのすごいムズいよね！
rdb['root'].unshift([pn, un, ext, cs, time, now, rank, 10000*cs/max])
だーいぶ考えて、それで間違ってたんだから情けない
しかし#codegolfみたくIRCでのリアルタイム実況欲しいな。 とりあえず#mazopあたりに流すか。
(19:18)
http://shinh.org:81/p.rb?bowling+scorer
を見てて Befunge の & って gets.to_i じゃ ダメなんじゃなかろーかと考えた。
http://www.elf-emulation.com/funge/
の実装を読むに scanf("%d") だね。
scanf("%d",&i);
scanf("%c",&c);
printf("%d %d\n", i, c);
とかすると、
1 a => 1 32 989a => 989 97 aaa => -1208487948 97
ふーむつまりこれ Ruby でやるのは
def scanint
c = STDIN.getc
r = 0
while c >= ?0 && c <= ?9
r = r * 10 + c - ?0
c = STDIN.getc
end
STDIN.ungetc(c)
r
end
とかで良さげ。
(20:30)
総合得点は公平にやるのが不可能だし 一定期間後はネタバレ推奨したいので 入れないつもりだったけど、
やるとしたら、 (10000*min/size)*(entry_count-1) とかだろうか。
http://shinh.org:81/px.rb?Dancing+Kids
全然ダメ。
やっぱ無しでいいや
(20:54)
http://shinh.org:81/p.rb?delete+blank+lines
まぁexecかな。
ただ、だとするすと exec'bash6b' で 12B のはずなんだけどな。
(01:33)
封印するか否かは悩みどころなんだよなー。
Rubyとかで使うのは面白さあると思うんだけど、 CとかでRuby呼んじゃうとかはちょっとなぁ。
あと封印する手段がめんどくさい。 execve を潰しちまうのが一番良いのかな。 ptrace で横取りするとかでいいのかな。 面倒そうだな…
(01:36)
http://www.aoky.net/articles/steve_yegge/tour_de_babel.htm
via http://alohakun.blog7.fc2.com/blog-entry-640.html#comment
via についてどうでもいいけど、 僕は gtk だという理由だけで嫌ってるものがたくさんあるという。 例えば sylpheed 。
C++のとこにむむっと思うんだけど、 仕事でやってるとこいう考えになるかなとは思う。
Perlをくじらのはらわたと言うのは面白いしな。 でもねでもね！
そのため(1, 2, (3, 4))は不思議なことに(1, 2, 3, 4)に変わってしまう。 あなたはこんな風になってほしいと思ったことはないだろう。
ある。何度となく。最近だと http://shinh.org:81/p.rb?permutater とかでも思った。
あとなんというかこれは知らなかった。
i@u ~/wrk/ag> perl -e '$x{"a"}="b"; print %x.$/'
1/8
見たことはあったけどな。 というかコンテキストというものを 理解したのは最近のことだな。
ていうかつっこみどころそんなに多いのかな。 日本うんぬんはまぁそうかな。
(03:24)
Net::HTTP の方があまりにすばらしくだめだったという話も。 まぁ open-uri はすばらしー
Net::HTTP は一度使った者は全て呪われる的な
あと HTML を each したいという話を忘れてたのを 思いだした
(03:39)
http://www.radiumsoftware.com/0702.html#070202
http://www.itmedia.co.jp/news/articles/0611/11/news010.html
真逆の話みたいに思えて面白かった
(05:32)
ファイルアクセスも open(2) を監視するだけでいい。 でもとりあえず /golf/test の下にファイルが残らないようにはした。 まぁ /tmp とかはストローク数少ないのでまだまだ問題
(09:34)
という原則からして、 Ruby は Kernel#hello をつけるべきだと思うね俺は。
def hello(h='H',c=',',w='w',e='!')
puts("#{h}ello#{c} #{w}orld#{e}")
end
まぁこんな感じで。
(09:38)
nslookup みたいな感じで、 えーと 192.0.34.166 から example.net も .com も出してくれる、 みたいなのはなんか無いんだっけか。 ちゃんと逆引き用のデータ構造作ってなかったら 線型探索しなきゃいけないからキツいのかな。
(09:49)
PerlGolfにはバイナリ文字列は50%まで、 っていう掟がある。
これは結構面白い制限なんだよね。 つーのは現行のアナゴルでは 長いのは全部zlib使っちゃうだろうから。
単純にマネて50%切るエントリーハネる 設定を追加するつーのはアリなんだけど、 それよりは記号ゴルフからめたいなという。
んで、バイナリが制限越えたエントリーは 自動的に別集計するとかでいいような、という。 ついでに記号割り合いが制限越えたエントリーも 別集計して讃える、と。
ただ Whitespace と Brainfuck は自動的に 記号ゴルフになるし Befunge もたぶんだいたいそうか。 awk と sed もそんな感じになったりとかしそう。
(18:16)
http://www.garbagecollect.jp/~usa/d/200702a.html#id20070202_P1_1
Rubyとかは `find` とか使ってこそのツールだと思うので、 欲しいなーという感はあるのですが、 C とかで main(){system("ruby -e ...")} が optimal になるととても悲しいというのが一番大きいですかねぇ。
「限界突破」前は zlib だったと思うのですが (突破後どうやってるかわからないので考えます。 IO.popen('gzip') だと思ってたのですが違うみたいだ…)、 私の現状はこんな感じです。
#!ruby -przlib $_=Zlib::Inflate.new.inflate'ばいなり〜'
-przlib $_= の方が require'zlib' puts とかより短い点、 Inflate.inflate より Inflate.new.inflate の方がたぶん良い点 (圧縮後の最後の方の何バイトか削っても大丈夫)、 なんかが工夫。
(19:43)
http://shinh.org:81/p.rb?delete+blank+lines
CR 入っちゃってるな。 ていうか echo でも気付いてたけど CRLF はどうするんが適切かなぁ。
(02:37)
http://jarp.does.notwork.org/diary/200701c.html#200701312
おお問題ありがとうございます。
w3m は元が CRLF じゃないサイトにでも CRLF で投げ込むんだなーと学びました。 出力は既に対処してあって 入力はどうすっかなーとか微妙に考えてたんですが まぁいい機会なので。
echo が意外にわからないですし短い問題もいいですね。 bash 2B なんだろなーという。 lv インストールされてなかった。
おおわかった。 こんなコマンド始めて知った。
(03:19)
Failed to fetch http://archive.ubuntu.com/ubuntu/pool/universe/g/gnu-smalltalk/gnu-smalltalk_2.1.12-0ubuntu1_i386.deb Temporary failure resolving 'archive.ubuntu.com'
一瞬ネットワーク落とさないと apt-get できないってのはうざい
まぁそうしょっちゅうあるわけでもないしいいか。
あと m4 とかもいいかな。 erlang はコマンドラインからの実行が大変。
(03:25)
http://www.nmt.ne.jp/~ysas/diary/?200701c&to=200701292#200701292
そういえば -n で動くのに -p で動かないのがよくわからないのだった。
#!perl -n @;=(1,2,3);print"$_$/"for@
ちょっと追ってみると toke.c の
if (!PL_in_eval && (PL_minus_n || PL_minus_p)) {
sv_setpv(PL_linestr,PL_minus_p
? ";}continue{print;}" : ";}");
ここだと思うんだけどな。うーん？
(06:51)
XSSって何かやっとわかったよ！ たぶん僕の書いたものとか XSS だらけだね！
まぁこのソリューションは重要ですよ。
http://d.hatena.ne.jp/shinichiro_h/20060107#1136602673
KILL SYSTEM
(20:10)
要するに、 Apache 側に mod_xssdetectingとかあればいいんじゃないのかなという。 <script> とか、あとこれは適当に空白入れるとか ブラウザのバグ含めた色んな方法で <script> 相当のことを させるっていう話らしいけど、 まーそいうのの中の典型パターンだけは潰しとく くらいのことはしてもバチはあたらなさげな。
効率とか考えてもたぶんそんなに負荷デカくないよなぁ。 setjmp のなんかをエンコードするご時世らしいし。
(21:05)
脆弱性があるサイトを Apache が一定防御したとしても、 ブラウザのバグがたくさんある以上は 一個くらいなんか残ってるだろうし、 結局攻撃者は Apache が知らなくてかつ ブラウザの未知なり非対応なバグをついた攻撃を 一個探し出すだけでいいわけだ。
んでもそのチェックに一度でもかかったら 警告メール投げるとかすれば 迅速に対策できるかな。
(21:08)
| 前 | 2024年 4月 |
次 | ||||
| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
| 1 | 2 | 3 | 4 | 5 | 6 | |
| 7 | 8 | 9 | 10 | 11 | 12 | 13 |
| 14 | 15 | 16 | 17 | 18 | 19 | 20 |
| 21 | 22 | 23 | 24 | 25 | 26 | 27 |
| 28 | 29 | 30 | ||||
全てリンクフリーです。 コード片は自由に使用していただいて構いません。 その他のものはGPL扱いであればあらゆる使用に関して文句は言いません。 なにかあれば下記メールアドレスへ。
_ konn [ぜひ Unlambda と HQ9+ も！]
_ shinh [Unlambda はまぁ入れたいところですが、アレオフィシャルな実装が Haskell で手に負えるのかなあという。..]
_ を [> 明日早起き 確かに。 今は、もう寝てしまって、明日早起きすればできる気がしてます。]