結果
問題 | No.689 E869120 and Constructing Array 3 |
ユーザー |
![]() |
提出日時 | 2018-05-18 23:11:25 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 4 ms / 1,000 ms |
コード長 | 214 bytes |
コンパイル時間 | 32 ms |
コンパイル使用メモリ | 5,120 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-06-28 13:59:16 |
合計ジャッジ時間 | 1,335 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 13 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
@p=qw{ 5000 4887 4999 4902 4997 4910 4998 4925 4994 4935 4993 4938 4987 4954 4990 4959 4989 4978 4766 5207 }; $k=<>; while($k>0){ $s=int sqrt$k; push@a,@p[($i)x$s,($i+1)x$s]; $i+=2; $k-=$s*$s; } print@a."\n@a"