メメメモモ

プログラミング、筋トレ、ゲーム、etc

2010-04-13から1日間の記事一覧

バブルソート

バブルソートを行なうプログラムをperlで書いてみました。 use strict; use warnings; { my @a = (8,4,3,9,7,6,5,2,1); print "===================\n"; print join(',',sort(@a)) . "\n"; } sub bubble_sort { my @a = @_; my $a_length = @a; for (my $i =…