完全にランダムなエリアから重心を選ぶと計算がうまくいかなかったので、ランダムにサンプルを抽出した。 TODO：任意のkを与えられるようにする kmeans.pl use strict; use warnings; use Moo; use feature qw(say); use Switch; use Data::Dumper; use List…

http://www.kent-web.com/perl/chap3.html#chap3_7 #多次元配列 @array = ([1,2],[3,4]); #アクセス print $array[0][1];

そういうことだったのか # 配列の初期化 @array = (1,2,3); # ハッシュの初期化 %hash = (a=>1,b=>2,c=>3); # 配列のリファレンス $array_reference = [1,2,3]; # デリファレンス print $array_reference->[0] # ハッシュのリファレンス $hash_reference = {…

C言語みたいな言語だな->Perl http://gihyo.jp/dev/serial/01/perl-hackers-hub/000703