Perl キューとスタック

メモ

スタックまたはキューへの登録はどちらも push で行う。shift で最前方 pop で最後方から取得する。

スタック

# 配列宣言
my @values = ();

# スタックに登録する
push @values, 1;
push @values, 2;

# スタックがなくなるまで繰り返し
while (scalar(@values) > 0) {
    my $value = pop(@values);
    print "$value \n";
}

1;

キュー

# 配列宣言
my @values = ();

# キューに登録する
push @values, 1;
push @values, 2;

# キューがなくなるまで繰り返し
while (scalar(@values) > 0) {
    my $value = shift(@values);
    print "$value \n";
}

1;

  • 最終更新:2013-10-06 03:35:51

このWIKIを編集するにはパスワード入力が必要です

認証パスワード