FANDOM


定義

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

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


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

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