提出 #2500891

ソースコード 拡げる

my $a=get.Int;$_=0;$_++ while $_*$_ <=$a;say ($_-1)*($_-1);

提出情報

提出日時
問題 B - Exponential
ユーザ omniheal
言語 Perl6 (rakudo-star 2016.01)
得点 0
コード長 59 Byte
結果 WA
実行時間 803 ms
メモリ 63744 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 0 / 200
結果
AC × 3
AC × 6
WA × 3
セット名 テストケース
Sample 0_000.txt, 0_001.txt, 0_002.txt
All 0_000.txt, 0_001.txt, 0_002.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt
ケース名 結果 実行時間 メモリ
0_000.txt AC 803 ms 63744 KiB
0_001.txt AC 137 ms 48764 KiB
0_002.txt AC 137 ms 49532 KiB
1_003.txt AC 137 ms 49660 KiB
1_004.txt WA 137 ms 50688 KiB
1_005.txt AC 138 ms 50044 KiB
1_006.txt WA 135 ms 49280 KiB
1_007.txt WA 137 ms 50048 KiB
1_008.txt AC 136 ms 49788 KiB