137は,問題の式を変形して, xについてまとめて,判別式を見る. 結局,フェルマー・ペル方程式 を解けばいい.114は少し不思議. $cnt=0 def f(m,n,last) if n == 0 $cnt+=1 elsif last == 0 f(n-1,0) m.upto(n){|k| f(n-k,k) } else f(m,n-1,0) end endとして泥…

友人に知らせてもらったPicasaアルバム. 写真は欲しいけれど, Picasaは入れたくない.RSSを読み込む練習もかねて, Rubyでアドレス一覧を表示させてみた.参考 Rubyでatom rss xml を利用する - しかじろうがプログラム作るよ！ require 'open-uri' require 'cg…

grep -e "pattern" target-filename + (1文字以上の繰り返し), ? (0か1文字), | (選択,または), () (括弧, グループ化) は拡張メタキャラクタと覚えておく. 拡張メタキャラクタを使うときは grep -E "pattern" target-filename マッチした行を表示させるとき…

Special Issue on Genetics of Speciation(free online issue)

"いくつかの"正整数kにたいして, 4^t,2^t,kが正整数で4^t = 2^t +kを満たすtが存在する.P(m)をk たとえば, 4^1 = 2^1 + 2 4^log2(3) = 9 = 3 + 6 = 2^log2(3) + 6 (2^a = c <=> log2(c) = a)より, P(5) = #{(k,t)=(2,1)}/#{(2,1)} = 1/1 P(6) = #{(k,t)=(2,1…

点O(0,0), P(x1,y1), Q(x2,y2) でつくられる三角形OPQのうち, 直角三角形の数を求める.ただし, x1,y1,x2,y2は整数で, 0 (x,y)を2桁の51進数と考えると, (x,y) = {(0,0),(0,1),...,(50,50)} -> { 0, 1, 2,...,2600 }のようにして整数と一対一対応がつけられる…

整数n に対して,1/x + 1/y = 1/nを満たす整数x,yの組を考える.1/2 + 1/3 = 1/3 + 1/2 のように, x,yを入れ替えたものも1つと数えるとすると,例えばn=4では, 1/x + 1/y = 1/4 = 1/5 + 1/20 = 1/6 + 1/12 = 1/8 + 1/8の3通りの組み合わせがある.で, [x,y]の組…

40 x 40のマスを左から右端まで行くときの最小コストを求める, 最短経路を求める問題の一種. ただし, マスは左から右か上下にしか移動できない.答えの確認はまだなので, 考えた手順のメモだけ.右から左に進めればよいから,縦の列ごとに最短経路を求めて行け…

カレントディレクトリに展開 rpm # rpm2cpio hoge.rpm | cpio -id deb # dpkg-deb -x hogehoge.deb ./

びっくり.Brainf*ckとかunlambdaとか, 難解で怪しい言語の処理系をRubyで作る本が出てた. NULLという言語を初めて知った. 同じ原理で, 文章も数字に直せるかな. 素数の数と大きさがひどいことになるけど. Rubyで作る奇妙なプログラミング言語 ~Esoteric Lang…

起動, 日本語(UTF-8)の読み込みはできた. 書き込みはSKKが必要みたい. EUC-JPやSJISは文字が化ける.The JED Editor Home Page によるとVersion 0.99-18が最新. ソースからのビルドは, うちのPuppyLinuxでdlopenが使えないため失敗.Slackware12のパッケージか…