FANDOM


原始数列数、ペア数列数、バシク行列数はこちらです バシクキューブ

単項数(Monomial number)

A=9
for B=0 to 9
 for C=A to 0 step -1
  A=A+1
 next
next
print A

Mon(x)=f_1(x)

単純な反復

冪数列数(Power sequence number)

A=9:dim B[∞]
for C=0 to 9
 for D=1 to 9
  B[D]=A-D+1
 next
 for D=A to 1 step -1
  A=A+1
  if B[D]=1 then
   B[D]=0
  else
   for E=B[D]-1 to 1 step-1
    B[D]=E:D=D+1
   next
  endif
 next
next
print A

Pow(x)=f_2(x)

2進数の構造

多項数(Polynomial number)

A=9:dim B[∞]
for C=0 to 9
 for D=1 to A
  B[D]=A
 next
 for E=1 to D
  if 0<B[D] then
   if E=1 then
    B[1]=B[1]-1:A=A+1
   elseif E=2
    B[2]=B[2]-1:B[1]=A
   else
    B[E]=B[E]-1:B[E-1]=A+1
   endif
   E=0
  endif
 next
next
print A

Pol(x)=f_ω(x)

多次元空間に数を敷き詰める。ハーディ階層

アッカーマン数列数(Ackermann sequence number)

A=9:dim B[∞]
for C=0 to 9
 B[1]=A
 for D=1 to 1 step -1
  if B[D]=0 then 
   A=A+1
  elseif A=0
   B[D]=B[D]-1:A=1:D=D+1
  else
   B[D+1]=B[D]:B[D]=B[D]-1:A=A-1:D=D+2
  endif
 next
next
pritn A

As(x)=f_ω(x)

アッカーマン関数

アッカーマン行列数(Ackermann matrix number)

A=9:dim B[∞,∞]
for C=0 to 9
 for D=1 to A
  B[D,1]=A
 next
 for E=1 to 1 step -1
  for F=1 to D
   if 0<B[E,F] then
    if F=1 then
     if A=0 then
      B[E,1]=B[E,1]-1:A=A+1:E+1
     else
      for G=1 to D
       B[E+1,G]=B[E,G]
      next
       B[E,1]=B[E,1]-1:A=A-1:E=E+2
     endif
    elseif F=2
     B[E,1]=A:E=E+1
    else
     B[E,F-1]=A+1:E=E+1
    endif
   elseif F=D
    A=A+1
   endif
  next
 next
next
print A

Am(x)=f_ω^ω(x)

多次元空間に数を敷き詰めるその2。多変数アッカーマン関数

弱大一次数列数(Weakly large primitive sequence number)

A=9:dim B[∞]
for C=0 to 9
 B[2]=A
 for D=2 to 1 step -1
  A=A*A
  for E=0 to D-1
   if B[D-E]<B[D] then 
    for F=0 to A
     G=B[D]-B[D-E]
     B[D]=B[D-E-F]+G*F:D=D+1
    next
    E=D
   endif 
  next
 next
next
print A

Wlp(x)=f_ω^ω(x)

バシクキューブの例外。多重帰納

大一次数列数(Large primitive sequence number)

A=9:dim B[∞]
for C=0 to 9
 B[2]=A
 for D=2 to 1 step -1
  A=A*A
  for E=0 to D
   if B[D-E]<B[D] or B[D]=0 then F=E:E=D
  next
   G=B[D]-B[D-F]-1
   for H=1 to A*F
    B[D]=B[D-F]+G:D=D+1
   next
 next
next
print A

Lp(x)=f_φ(ω,0)

バシクキューブの例外。ヴェブレン階層もどき

弱トリオ数列数

トリオ数列数

弱バシク行列数

バシク行列数(Bashicu matrix number)

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

Bm(x)=?

バシク超行列数(Bashicu hyper matrix number)

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

Bhm(x)=?

最高傑作

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


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

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