#102955 (Perl) No.392 2分木をたどれ

• 問題: No.392 2分木をたどれ
• ユーザー: tails
• 提出日時: 2016-07-12 00:37:29
• 言語: Perl (5.26.3)
• 結果: AC
• 実行時間: 12 ms / 2,000 ms
• コード長: 86 bytes
• コンパイル時間: 27 ms
• 使用メモリ: 5,420 KB
• 最終ジャッジ日時: 2022-12-08 16:42:57
• 合計ジャッジ時間: 807 ms
• ジャッジサーバーID （参考情報）: judge12 / judge14

入力	結果	実行時間; 使用メモリ
testcase_00	AC	2 ms; 4,900 KB
testcase_01	AC	12 ms; 5,420 KB
testcase_02	AC	12 ms; 5,232 KB

コンパイルメッセージ

Main.pl syntax OK

ソースコード

<>;
for(<>){
	$c=$/;
	++$_;
	while($_>1){
		$c=($_&1?R:L).$c;
		$_>>=1;
	}
	print$c;
}