結果

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

ソースコード

diff #

$2 = H * W
while($1 < $2)
  $3 = ($1 / W) + 1
  $4 = ($1 % W) + 1
  $5 = (A[$3,$4] - B[$3,$4])*(A[$3,$4] - B[$3,$4])+1
  $6 = $5 / ($5 * $5)
  $5 = 1 - $6
  $7 = $7 + ($3 * $5)
  $8 = $8 + ($4 * $5)
  $1 = $1 + 1
end
return($7,$8)
0