結果

問題 No.331 CodeRunnerでやれ
ユーザー tailstails
提出日時 2015-12-28 16:35:45
言語 Perl
(5.38.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 801 bytes
コンパイル時間 34 ms
コンパイル使用メモリ 6,820 KB
最終ジャッジ日時 2024-11-14 19:31:40
合計ジャッジ時間 385 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Can't use global $_ in "my" at Main.pl line 16, near "my$_"
Main.pl had compilation errors.

ソースコード

diff # 

$o={0,[R0,{0,[RRRL1R3LRLRLRRLRLLRLRRRLRLR1L1RLRL],1,[FR2RLR12R4RLRLRL2LRLRRLR1L2LLRLRLRRRLRL],2,[F1L0,{2,[FLRRLLRLR6RRLRLLRLRLRRLRRL2LRR6LRLLRLLRLRLRRR6L],4,[F2R7L12R7LRL]}],5,[F1LL1R]}],1,[FLLRRRRLR1LRL3LRLLRR2LLR],2,[R0,{0,[LLLLLLL],1,[LL],2,[LRRLLLRRLR],3,[B8R],4,[FLRRLR],8,[FLRR]}],3,[L1L7RL3R],4,[FRL7LLR2R3L2RLLRRLL2RRL],14,[FRRRRRRRRLLLLLLLLR],16,[FL8L]};

sub dist{<>+0}
sub move {$|=print"@_\n";dist}

$t=dist;
while($o){
	while($t>99){
		$t=move F;
	}
	exit if $t=~M;
	$o=$o->{$t};
	$_=$o->[0];
	$o=$o->[1];
	while(s/(.)(\d*)//){
		my$_=$1;
		my$s=$2;
		$t=move$_ if/R/||/L/;
		$_=/B/?B:F;
		while($s eq ''?$t>0:$s--){
			$t=move$_;
		}
	}
}
{
	print"R\n";
	do{
		$d+=print"L\n"while<><++$|||$m[$y=($x+30**($d&=3))%901]^($m[$x]=$d^4)^2&&$m[$y];
		$x=$y;
		$d-=print"F\nR\n";
	}until<>=~M;
}
0