Gaucheで魔方陣に挑戦その3 たぶんループも途中で諦めるようにしているので速度的にはそろそろ限界に近いはず。 コード的にはfor-each使ったので負けという感が否めない。たぶん、Scheme的にはもっと違う書き方するんだろうな。というかこの程度しか改善でき…

なんだ関数が準備されてた。 http://practical-scheme.net/gauche/man/gauche-refj_102.html#IDX2027 >>(lset-difference eq? '(1 2 3 4 5 6 7) '(2 4 6 7)) =>(1 3 5)(print (lset-difference eq? '(1 2 3 4 5 6) '(1 3 4 5))) (print (lset-difference eq?…

本日見た記事 交通インフラ建設にあてる２８０億元がすでに全額拠出されたことを明らかにした。内訳は鉄道に１５０億元、高速道路に５０億元、農村部の道路に５０億元、中西部の支線空港と西部の幹線空港に３０億元。 ２８０億元って中国ではいくらぐらいな…

emacs23だとアンチエイリアスが効くらしく、ubuntu（正確にはdebian)にはsnapshot版としてemacs23が提供されている（知らなかった）。ほんとはIPAモナーがよかったんだけどうまくいかないので取り合えずメイリオでやってみた。 emacs23をインストール $ sudo…

rubyで魔方陣をワンライナーで作ってみた驚愕の事実が…工夫したときよりも速い。てかprologとスピード同じ… $ time ruby -e '(1..9).to_a.permutation.select{|i|x=i[0]+i[1]+i[2];x==i[3]+i[4]+i[5]&&x==i[6]+i[7]+i[8]&&x==i[0]+i[3]+i[6]&&x==i[1]+i[4]+i…

rubyで魔方陣 その２Gaucheとおなじく総当たりでループを選別してまわすことをやめてみるとrubyの方が遅かった。 こりゃやっぱ自分のGaucheの使い方がダサいんだな。 (1..9).to_a.permutation(3).each{|a| (1..9).to_a.reject{|i|a.include?(i)}.permutation…