K.Sasada's Home Page

カレー食って酒飲んでラーメン食って．

食い過ぎ．

ひょんなことから知った匿名チャットというものを初めて使った． こういう文化があるんだねえ． いろんな人がいて面白かったなぁ（わかりやすい詐欺の人とか居た）．

会話がある程度続いたのは（自称）女性だった気がする（自称ってのは別に，ネカマと断定しているわけではなく，確認をしようがないのでこう書いている）．こちらが，男だと表明しておくと，すぐに切っていく人が多いのが，出会い系として使おうとする匿名チャットの面白いところだと思った．奇声を（文字で）上げる人もいたな．

面白い議論が出来た人もいた．勉強になった． 匿名でここまで議論できるとは． 実は全部嘘でしたー（role play でしたー），とか言われたら，それはそれで面白い．

（というか，勉強になった，というところで，一応裏を取る必要があるか）

こういうところで出会いを見つけるひともいるのかなぁ．

しかし，セッションごとに（相手が変わるごとに）role を変える play をしている人は，そのログを俯瞰してみたらとても楽しそうだという気がして，運営側はそういうことが出来そうだなぁ，という気がして，作ってみたい気がしてきた．いや，法令的に中見て良いのか？

しかし，ログが流出したら恥ずかしいな（我ながら，大人げない発言もあった）．それを元に脅迫するとかあったりするんだろうか．あったら嫌だなあ．

そういえば日本Rubyの会理事をクビになったので（去年），そろそろ次の職を探さないといけない．

kinaba さんが，sort のオーダーの話をしていたので http://www.kmonos.net/wlog/127.html#_1939120901，そういえば調べたこと無かったなぁ，と思って実際にやってみた．比較の回数を数えてみる．n 個の順位のつく配列を用意し，permutation をとって全部探索．酷い．

n = 13 でやったけど，うまいこと n log2(n) 以下で収まっているのがわかる．

$c = 0
class C
  INDEX = [0]
  attr_reader :index
  def initialize
    @index = INDEX[0]+=1
  end

  def <=> (o)
    $c += 1
    @index <=> o.index
  end
end

h = Hash.new{0}
max = 13
ary = Array.new(max){C.new}
ary.permutation{|a|
  $c = 0
  a.sort
  h[$c] += 1
}
p h

n = 13
n log2(n) = 48.105716335834195
[[28, 2128896],
 [29, 31100928],
 [30, 184490496],
 [31, 584755200],
 [32, 1091673600],
 [33, 1266225152],
 [34, 1001228288],
 [35, 676659200],
 [36, 471719936],
 [37, 323702784],
 [38, 230085632],
 [39, 160239616],
 [40, 94690304],
 [41, 48435200],
 [42, 29960192],
 [43, 16875520],
 [44, 7512064],
 [45, 3342336],
 [46, 1540096],
 [47, 524288],
 [48, 131072]]

何時間かかったんだろう．時間はかっとけばよかった．まったくもって計算資源の無駄遣いではあった．

グラフ化してみた．この形とか，もう散々研究されてるんだろうなぁ． http://www.atdot.net/fp_store/f.p0pr9m/file.graph.png