結果
問題 | No.8117 Simple Programming Language |
ユーザー |
👑 ![]() |
提出日時 | 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 |
ソースコード
$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)