結果

問題 No.32 貯金箱の憂鬱
コンテスト
ユーザー sironekotoro
提出日時 2018-11-28 16:07:33
言語 Perl
(5.42.0)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
WA  
実行時間 -
コード長 442 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 128 ms
コンパイル使用メモリ 6,272 KB
実行使用メモリ 6,144 KB
最終ジャッジ日時 2026-03-13 21:09:45
合計ジャッジ時間 789 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 3 WA * 9
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

use strict;
use warnings;

# https://yukicoder.me/problems/5

my $input = <>;

chomp $input;

my @array = split /\n/, $input;
chomp( @array );
my $sum = $array[0] * 100 + $array[1] * 25 + $array[2];

my $coins = $sum % 1000;

my $coin_100 = int( $coins / 100 );
my $coin_25  = int( ( $coins - $coin_100 * 100 ) / 25 );
my $coin_1   = int( ( $coins - ( $coin_100 * 100 ) - ( $coin_25 * 25 ) ) );

print $coin_100 + $coin_25 + $coin_1 , "\n";
0