anything-grep は合わなかったので、anything-git-grep を作ってみました. 入力の度にgit grepする. magit,anything,d:id:mechairoi:20101120:1290245166が必要.(とりこんでいただいたのでanything最新版だと不要) anythingは複数sourceとか, 遅延とかがとて…

anything.el で source が (processp candidates)のときmultilineにならない気がしたので.. --- a/.emacs.d/auto-install/anything.el +++ b/.emacs.d/auto-install/anything.el @@ -2265,7 +2265,12 @@ the real value in a text property." (split-string …

emacs23.1.1 gitのmasterのvimpulse (vimpulse-define-key 'emacs-lisp-mode 'vi-state "\ e" 'eval-last-sexp) (vimpulse-define-key 'emacs-lisp-mode 'visual-state "\ e" 'eval-region) とかしたいが動かなかったのでnilになるとこを消してみたら動いた.…

0...n-1からなるk桁の順列 do { reverse(perm+k, perm+n); } while(next_permutation(perm, perm+n);

全自動ブックマーク棚卸しが想像以上に有意義な件 - てっく煮ブログとを合体させてみた. → Pipes: はてブ絶対復習 使い方は全自動棚卸しとほとんど同じで, 絶対復習したいページをサブアカにブクマしてRSSリーダーとかで復習.利点は 棚卸しと同じようにRSSの…

gaucheでreplを使おうと思って色々試してたんだけど、 replを開いたときのモジュールがどう決まるのかよくわからん。 特に問題ないんだけど気になる。 (select-module user) (print (current-module)) (read-eval-print-loop) (print) (print "-------------…

ゼミでやったので, 今更だけど最大フローを実装してみる. O(n^2m)になってるはずだけど長い.. #!/usr/bin/env perl use strict; use warnings; #use Carp::Assert; use Data::Dumper; package Edge; sub new { my ($class, $source, $target, $weight) = @_;…

アドバイスを頂いたので他のプラグインを見つつちょっと修正. Gauche interfaceを教えて貰ったのでコンパイル. Vim scriptが楽しく書けそうなので使ってみます. 感謝.

use warnings; use strict; my $ans=0; for(1..10000) { $ans++ if (f($_) % 2 == 1); } print $ans; sub f { my $N = shift; return rec($N, 1, - int(sqrt($N)), 1, {}); } sub rec { no warnings 'recursion'; my ($N, $k, $l, $m, $ht) = @_; my $n_m = …

gauche_scratch.vim 初vimscript! *scratch*みたくバッファ上で式を評価します.vimのコンパイルオプションに+pyhtonが必要. Linuxでしか試してないです. 使い方 gauche_scratch.vimとgauche_scratch.pyを http://github.com/mechairoi/gauche_scratch/tree/m…

借りてきたラクダ本に力をわけてもらった. まだ1章だけど. リストコンテキストはちょっと楽しい. #!/usr/bin/env perl use strict; use warnings; my (%count, %min); for(my $i=1;;$i++) { my $cube = $i**3; my $key = join '', sort $cube =~ /./go; $min…

HaskellのMonadをJavaScriptで実装するとしたら - ラシウラ を参考にほとんど写経. #!/usr/bin/env perl use strict; use warnings; sub parse { my ($parser, $input) = @_; return $parser->({ result => [], source => $input, index => 0, }); } sub bin…

こんなに嬉しいとは思わなかった.

Perlの練習ということで #!/usr/bin/perl use strict; use warnings; my @paths; $paths[$_] = [] for(0..99); push(@{$paths[target($_)]}, [{8 => 1}, [source($_), target($_)]]) for (polygonals(8)); for(3..7) { my @prev = @paths; $paths[$_] = [] f…

日記を書く.