2009-07-08から1日間の記事一覧
ゼミでやったので, 今更だけど最大フローを実装してみる. 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) = @_;…
ゼミでやったので, 今更だけど最大フローを実装してみる. 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) = @_;…