結果
問題 |
No.98 円を描こう
|
ユーザー |
![]() |
提出日時 | 2015-06-18 10:23:13 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 7 ms / 5,000 ms |
コード長 | 265 bytes |
コンパイル時間 | 43 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-07-07 03:37:19 |
合計ジャッジ時間 | 668 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 6 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use strict; use warnings; my ($xp, $yp) = split / /, <>; my $ans; my $r = sqrt($xp*$xp + $yp*$yp); if($r == int $r) { $ans = 2*(int $r) + 1; } else { $ans = 2*((int $r) + 1); } for(my $i = $ans / 2; $i > $r; $i -= 0.5) { $ans = $i * 2; } print "$ans\n"; exit;