結果

問題 No.774 tatyamと素数大富豪
ユーザー tailstails
提出日時 2018-12-22 00:45:26
言語 Perl
(5.38.2)
結果
TLE  
実行時間 -
コード長 306 bytes
コンパイル時間 251 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 112,692 KB
最終ジャッジ日時 2024-09-25 09:48:56
合計ジャッジ時間 9,994 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 TLE -
testcase_01 AC 11 ms
6,272 KB
testcase_02 AC 11 ms
6,016 KB
testcase_03 AC 32 ms
7,808 KB
testcase_04 AC 12 ms
6,016 KB
testcase_05 AC 10 ms
6,016 KB
testcase_06 WA -
testcase_07 AC 11 ms
6,272 KB
testcase_08 AC 11 ms
6,016 KB
testcase_09 AC 237 ms
10,496 KB
testcase_10 WA -
testcase_11 WA -
testcase_12 AC 1,848 ms
95,256 KB
testcase_13 AC 1,108 ms
55,168 KB
testcase_14 AC 48 ms
8,704 KB
testcase_15 WA -
testcase_16 AC 51 ms
6,912 KB
testcase_17 AC 11 ms
6,144 KB
testcase_18 WA -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "t" may clash with future reserved word at Main.pl line 2.
Unquoted string "t" may clash with future reserved word at Main.pl line 8.
Unquoted string "p" may clash with future reserved word at Main.pl line 21.
Name "main::h" used only once: possible typo at Main.pl line 6.
Main.pl syntax OK

ソースコード

diff # 

$n=<>;@a=glob<>;
open(t,">/tmp/t");

sub f{
	my($x,$u)=@_;
	if(!$h{$x}++){
		if(!$u){
			print t $x,$/;
		}else{
			for$i(0..$n-1){
				if($u&1<<$i){
					my$y=$a[$i];
					f($x.$y,$u^1<<$i);
				}
			}
		}
	}
}
f('',(1<<$n)-1);

open(p,"sort -nr /tmp/t|factor|");
($r)=(grep(!/\d /,<p>),-1);
print $r+0;
0