【Perl】ハッシュで計算結果のキャッシュを作る

use strict;
use warnings;

# キャッシュ用のハッシュを用意
my %cache;

# 時間がかかる関数のシミュレーション
sub time_consuming_function {
    my $n = $_[0];   # 引数１
    
    # キャッシュをチェック
    if (exists $cache{$n}) {
        print "キャッシュから: ";
        return $cache{$n}; # キャッシュされた値を返す
    }
    
    # 重い計算をシミュレート（ここでは単純に2乗を計算）
    my $result = $n ** 2;
    sleep(1); # 時間がかかる処理をシミュレート
    
    # 結果をキャッシュに保存
    $cache{$n} = $result;
    
    return $result;
}

# 関数をテスト
for my $i (1, 2, 3, 1, 2, 3) {
    my $start_time = time;
    my $result = time_consuming_function($i);
    my $end_time = time;
    my $duration = $end_time - $start_time;
    print "$i の2乗は $result です (計算時間: $duration 秒)\n";
}