結果
問題 | No.48 ロボットの操縦 |
ユーザー |
![]() |
提出日時 | 2015-04-12 19:30:47 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 6 ms / 5,000 ms |
コード長 | 418 bytes |
コンパイル時間 | 404 ms |
コンパイル使用メモリ | 7,072 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-21 18:17:44 |
合計ジャッジ時間 | 1,143 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 25 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
#!/usr/bin/perluse strict;use warnings;my $x = <>;my $y = <>;my $l = <>;my $ans = 0;if($x < 0) {$x *= -1;}if($y < 0) {$y *= -1;$ans += 2;} elsif($x != 0) {$ans++;}if($x % $l == 0) {$x = $x / $l;} else {$x = $x / $l;$x = int $x;$x++;}if($y % $l == 0) {$y = $y / $l;} else {$y = $y / $l;$y = int $y;$y++;}#print "$x, $y, $ans\n";$ans += $x + $y;print "$ans\n";exit;