結果
問題 |
No.32 貯金箱の憂鬱
|
ユーザー |
![]() |
提出日時 | 2018-11-28 15:44:00 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 896 bytes |
コンパイル時間 | 200 ms |
コンパイル使用メモリ | 5,888 KB |
実行使用メモリ | 6,016 KB |
最終ジャッジ日時 | 2024-06-26 22:55:27 |
合計ジャッジ時間 | 693 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 3 WA * 9 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use strict; use warnings; use feature qw/say/; # https://yukicoder.me/problems/5 # my $input = "1000 # 1000 # 1000 # "; my $input = <>; chomp $input; my $hash_ref; ( $hash_ref->{100}, $hash_ref->{25}, $hash_ref->{1} ) = split /\n/, $input; chomp( $hash_ref->{100}, $hash_ref->{25}, $hash_ref->{1} ); if ( $hash_ref->{1} >= 25 ) { my $move_up = int( $hash_ref->{1} / 25 ); $hash_ref->{25} += $move_up; $hash_ref->{1} -= $move_up * 25; } if ( $hash_ref->{25} >= 4 ) { my $move_up = int( $hash_ref->{25} / 4 ); $hash_ref->{100} += $move_up; $hash_ref->{25} -= $move_up * 4; } if ( $hash_ref->{100} >= 10 ) { my $move_up = int( $hash_ref->{100} / 10 ); $hash_ref->{100} = $hash_ref->{100} - $move_up * 10; } # say $hash_ref->{1}; # say $hash_ref->{25}; # say $hash_ref->{100}; my $sum = 0; for my $n ( 1, 25, 100 ) { $sum += $hash_ref->{$n}; } say $sum;