結果

問題 No.32 貯金箱の憂鬱
コンテスト
ユーザー arito_asu
提出日時 2020-06-05 22:09:10
言語 Perl
(5.40.0)
結果
AC  
実行時間 4 ms / 5,000 ms
コード長 270 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 261 ms
コンパイル使用メモリ 6,812 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-07-23 07:55:54
合計ジャッジ時間 841 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 12
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

my $L = <STDIN>;
my $M = <STDIN>;
my $N = <STDIN>;

my $total = $L * 100 + $M * 25 + $N;

my $b = int($total / 1000);
my $mod = $total % 1000;
my $l = int($mod / 100);
$mod = $mod % 100;
my $m = int($mod / 25);
my $n = $mod % 25;

my $coins = $l + $m + $n;
print $coins;
0