結果

問題 No.8117 Simple Programming Language
ユーザー 👑 amentorimaru
提出日時 2025-04-01 22:24:37
言語 Text
(cat 8.3)
結果
AC  
実行時間 1 ms / 1,000 ms
コード長 1,039 bytes
コンパイル時間 212 ms
コンパイル使用メモリ 8,100 KB
実行使用メモリ 7,324 KB
最終ジャッジ日時 2025-04-01 22:24:41
合計ジャッジ時間 3,288 ms
ジャッジサーバーID
(参考情報)
judge5 / judge1
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 15
権限があれば一括ダウンロードができます

ソースコード

diff #

$1=H*W
$2=($0+$1)/2
while($4<$2)
$5=$5+100+A[$4/W+1,$4%W+1]-B[$4/W+1,$4%W+1]
$4=$4+1
end
$3=100*$2
if($3==$5)
$0=$2
end
if($3!=$5)
$1=$2
end

$2=($0+$1)/2
while($6<$2)
$7=$7+100+A[$6/W+1,$6%W+1]-B[$6/W+1,$6%W+1]
$6=$6+1
end
$3=100*$2
if($3==$7)
$0=$2
end
if($3!=$7)
$1=$2
end

$2=($0+$1)/2
while($8<$2)
$9=$9+100+A[$8/W+1,$8%W+1]-B[$8/W+1,$8%W+1]
$8=$8+1
end
$3=100*$2
if($3==$9)
$0=$2
end
if($3!=$9)
$1=$2
end

$2=($0+$1)/2
while($10<$2)
$11=$11+100+A[$10/W+1,$10%W+1]-B[$10/W+1,$10%W+1]
$10=$10+1
end
$3=100*$2
if($3==$11)
$0=$2
end
if($3!=$11)
$1=$2
end

$2=($0+$1)/2
while($12<$2)
$13=$13+100+A[$12/W+1,$12%W+1]-B[$12/W+1,$12%W+1]
$12=$12+1
end
$3=100*$2
if($3==$13)
$0=$2
end
if($3!=$13)
$1=$2
end

$2=($0+$1)/2
while($14<$2)
$15=$15+100+A[$14/W+1,$14%W+1]-B[$14/W+1,$14%W+1]
$14=$14+1
end
$3=100*$2
if($3==$15)
$0=$2
end
if($3!=$15)
$1=$2
end
if($0==$1)
$1=$0+1
end
$2=($0+$1)/2
while($16<$2)
$17=$17+100+A[$16/W+1,$16%W+1]-B[$16/W+1,$16%W+1]
$16=$16+1
end
$3=100*$2
if($3==$17)
$0=$2
end
if($3!=$17)
$1=$2
end

return($0/W+1,$0%W+1)
0