FANDOM


バシク三角行列数

A=9:dim B[∞,∞],C[∞],D[∞]
for A2=0 to 9
 for A3=1 to A
  for A4=1 to A3
   B[A3,A4]=A3-A4+1
  next
 next
 for A5=A to 1 step -1
  A=A*A
  for A6=0 to A5
   for A7=1 to A4
    if B[A5-A6,A7]<B[A5,A7]-C[A7] | B[A5,1]=1 then
     C[A7]=B[A5,A7]-B[A5-A6,A7]     
     if B[A5,A7+1]=0 | (1<A7 & B[A5,4]=0 & C[3]=1) then
      if A7=1 | A7=2 & B[A5-A6,A7+1]=0 | (1<A7 & B[A5,4]=0 & C[3]=1) | 3<A7 then
       E=A6:F=A7:A6=A5:A7=A4
      endif
     endif
    else
     A7=A4
    endif
   next
  next
  if F=2 & 0=C[3] then
   D[1]=C[1]
  elseif (F=2 | F=3) & 0<C[3]
   for A8=0 to A5
    if B[A5-A8,1]<B[A5,1] then
     D[1]=B[A5-A8,1]-B[A5-E,1]:D[2]=B[A5-A8,2]-B[A5-E,2]:A8=A5:E=E-1
    endif
   next
  elseif 3<F
   if B[A5,1]-B[A5-E,1]=1 then
    for A9=1 to F-2
     D[A9]=C[A9]+1
    next
    D[F-1]=C[F-1]:D[F]=C[F]:B[A5,F-1]=B[A5,F-1]-1:E=E+1:A5=A5+1
   else
    for A10=1 to F-1
     D[A10]=C[A10]
    next
   endif
  endif
  for A11=1 to A
   G=E
   for A12=1 to E
    for A13=E to G
     if B[A5-A13,1]<B[A5-E,1] | A12=1
      for A14=1 to A4
       B[A5,A14]=B[A5-E,A14]
       if B[A5-A13,A14]<B[A5-A13+A12,A14] & B[A5-G,A14]<B[A5-E,A14] | A12=1 then
        B[A5,A14]=B[A5,A14]+D[A14]
       endif
      next
      A5=A5+1:G=G+1:A13=G
     endif
    next 
   next
   if 3<F & 0<D[F] & B[A5-1,1]-B[A5-E,1]=1 then B[A5-1,F-1]=B[A5-1,F-1]+1
  next 
  for A15=1 to A4
   C[A15]=0:D[A15]=0
  next 
 next
next
pritn A

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


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

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

FANDOMでも見てみる

おまかせWiki