2009-06-21から1日間の記事一覧
アドバイスを頂いたので他のプラグインを見つつちょっと修正. 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 = …