2009-06-01から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 = …
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…
日記を書く.