FANDOM


定義

A=99:dim B[∞],C[∞,∞]
for D=0 to 99
 for E=1 to A
  C[2,E]=1
 next
 for F=2 to 1 step -1
  A=pow(A,A)
  for G=0 to F
   for H=1 to E
    if C[F-G,H]<C[F,H]-B[H] | C[F,1]=0 then
     B[H]=C[F,H]-C[F-G,H]
     if C[F,H+1]=0 then 
      if I=0 then I=G
      if C[F,H]=1 | 1<C[F,1]-C[F-I,1] then
       B[H]=0:H=E:G=F
      elseif B[H]<G-I | C[F,H]=B[H]
       for J=1 to E
        B[J]=C[F-I,J]-C[F-G+1,J]
        if B[J]<0 then B[J]=0
        if C[F,H]<G-I+1 & H<=J then
         for K=I to I+C[F,H]-2
          if 0<C[F-K,J] then C[F-K,J]=C[F-K,J]-1
         next
        endif
       next
       H=E:I=G-1:G=F
      endif
     endif
    else
     H=E
    endif
   next
  next
  for L=1 to A
   M=I
   for N=1 to I
    for O=I to M
     if C[F-O,1]<C[F-I,1] | N=1 then
      for P=1 to E
       C[F,P]=C[F-I,P]
       if C[F-O,P]<C[F-O+I,P] & C[F-M,P]<C[F-I,P] | N=1 then C[F,P]=C[F,P]+B[P]
      next
      F=F+1:M=M+1:O=M
     endif
    next
   next
  next
  I=0
  for Q=1 to E
   B[Q]=0
  next
 next
next
print A

広告ブロッカーが検出されました。


広告収入で運営されている無料サイトWikiaでは、このたび広告ブロッカーをご利用の方向けの変更が加わりました。

広告ブロッカーが改変されている場合、Wikiaにアクセスしていただくことができなくなっています。カスタム広告ブロッカーを解除してご利用ください。