結果

問題 No.2908 Strange Online Judge (Extra)
ユーザー 👑 Mizar
提出日時 2024-08-28 01:12:24
言語 Text
(cat 8.3)
結果
AC  
実行時間 1 ms / 2,000 ms
コード長 777 bytes
コンパイル時間 195 ms
コンパイル使用メモリ 6,940 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-09-27 22:35:50
合計ジャッジ時間 5,629 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 42
権限があれば一括ダウンロードができます

ソースコード

diff # 

$0=N+1        # $0,$1 := (N+1),(N/K);
$1=N/K
$2=N*N        # $2,$3 := (N*N),(K*N);
$3=K*N
while$0>$1    # while $0>$1:
  $0=$1       #   $0,$1 := $1,(($1*$1+N*N)/(2*$1+K*N));
  $4=$1*$1
  $1=2*$1
  $4=$4+$2
  $1=$1+$3
  $1=$4/$1
end           # end
ifM>1         # if M>1:
  $0=$0+1     #   $0 := $0+1;
end           # end
$2=K*$0       # $2 := K*$0+1-M;
$2=$2+1
$2=$2-M
$3=$3+1       # $3 := K*N+1-M;
$3=$3-M
while$2>0     # while $2>0:
  $1=$3       #   $1,$2,$3,$5 := ($3/$2),($3%$2),($2),(1-$5);
  $3=$2
  $2=$1%$3
  $1=$1/$3
  $5=1-$5
  if$1!=K     #   if $1!=K:
    $2=0      #     $2 := 0;
    if$1>K    #     if $1>K:
      $5=1-$5 #       $5 := 1-$5;
    end       #     end
  end         #   end
end           # end
$0=$0-$5      # return ($0-$5+N);
$0=$0+N
return$0
0