_ sed sort
そういえば 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)
_ うーん
csort.sed思ったより長くなった。
メインループが高速化のせいで20-30Bくらい大きくなったみたい。
(03:57)
_ sed
/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)
入力無いから sed でチャレンジできないな。
(18:50)
_ しまった忘れてた
追加予定言語
とか考えてたけどすっかり忘れてたよ！
入出力どうすんだ
(20:51)
Before...
_ shinh [> sumimさん こちらこそ遊んでいただいてありがとうございます。過度のゴルフは古くから家庭崩壊の元となっていた..]
_ konn [あーなるほどそうすればもっと早いですね……ビット演算は奥が深そうだ。 えーとそれで、多分型宣言がないと怒られるのは..]
_ shinh [例えばこんな感じでうまくいかないから悲しいなぁという。 i@u ~/test/hs> cat bits.hs im..]
_ konn [あーなるほど。確かにそれだとどの 1 だかわからないので型宣言つけてやる必要がありますね。何かHaskellは妙に頭..]
_ shinh [なんかNumまわりだけインチキしてるから頭いいとかじゃなかったでしたっけ。まぁ復帰したら色々教えてください。]