結果

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

ソースコード

diff # 

$0=K           # $0 := K = U_2(K,-1);
$1=K*K         # $1 := K**2+2 = V_2(K,-1);
$1=$1+2
$3=100000/K
while$0<$3     # while $0<10**5/K:
  $0=$0*$1     #   $0,$1 := ($0*$1),($1*$1-2) = U_{2n}(K,-1),V_{2n}(K,-1); (where n mod 2 = 0)
  $1=$1*$1
  $1=$1-2
end            # end
$3=K*$0        # $1,$0,$2 := ($1+(K*$0))/2,$0,($1-(K*$0))/2 = U_{n+1}(K,-1),U_{n}(K,-1),U_{n-1}(K,-1); (where n mod 2 = 0)
$2=$1-$3
$2=$2/2
$1=$1+$3
$1=$1/2
$4=N/K
while$1<=$4    # while $1 <= (N/K):
  $2=$1        #   $1,$0,$2 := (($1*K+$0)*K+$1),($1*K+$0),($1);
  $3=$1*K
  $0=$3+$0
  $1=$0*K
  $1=$1+$2
end            # end
if$0<=$4       # if $0 <= (N/K):
  $2=$0        #   $1,$0,$2 := ($1*K+$0),($1),($0);
  $0=$1
  $1=$0*K
  $1=$1+$2
end            # end
if$0<=N        # if $0 <= N:
  $3=N/$0      #   $3 := N/$0+1;
  $3=$3+1
  $1=$1*$3     #   $1 := $1*$3+$0;
  $1=$1+$0
  $0=$0*$3     #   $0 := $0*$3+$2;
  $0=$0+$2
end            # end
$2=$1-$0       # $0,$2 := ($0*N),($1-$0);
$0=$0*N
ifM==0         # if M==0:
  $2=$2+K      #   $0 := $0-($2+K-1)/K;
  $2=$2-1
  $2=$2/K
  $0=$0-$2
end            # end
ifM>1          # if M>1:
  $3=M-1       #   $3 := M-1;
  $4=$2/K      #   $0 := $0+($2/K)*(M-1);
  $4=$4*$3
  $0=$0+$4
  $2=$2%K      #   $0 := $0+($2%K)*(M-1)/K;
  $2=$2*$3
  $2=$2/K
  $0=$0+$2
end            # end
$0=$0/$1       # return ($0/$1+N);
$0=$0+N
return$0
0