ตัวเลขจะอยู่ในรูปแบบพื้นฐาน -B ทำให้ Goodstein ง่ายขึ้นหากมันถูกเขียนเป็น

b + b + ... + b + c,   0 < c ≤ b

ลำดับ Goodstein แบบย่อของตัวเลขเริ่มต้นด้วยการเขียนหมายเลขในแบบฟอร์ม -1 แบบง่าย Goodstein จากนั้นแทนที่ 1 ทั้งหมดด้วย 2 และลบออก 1 เขียนผลการค้นหาในแบบฟอร์ม Goodstein แบบย่อ 2 จากนั้นแทนที่ทั้ง 2 ด้วย 3 และลบ 1 เป็นต้นจนกว่าคุณจะถึง 0

โปรแกรมของคุณคือรับค่าอินพุทและเอาท์พุทจำนวนเต็มบวก / พิมพ์ลำดับ Goodstein และยุติ โปรแกรมของคุณควรจัดการกับตัวเลขน้อยกว่า 100 แม้ว่ามันอาจจะไม่ยุติในระยะเวลาที่เหมาะสม

ตัวอย่างเช่นเมื่อได้รับ 3 เป็นอินพุตโปรแกรมของคุณควรเอาต์พุต (ด้านขวาเป็นเพียงคำอธิบาย)

1 + 1 + 1                | 3 = 1 + 1 + 1
2 + 2 + 1                | Change 1's to 2's, then subtract 1. (2 + 2 + 2 - 1 = 2 + 2 + 1)
3 + 3                    | 3 + 3 + 1 - 1 = 3 + 3
4 + 3                    | 4 + 4 - 1 = 4 + 3
5 + 2                    | 5 + 3 - 1 = 5 + 2
6 + 1                    | 6 + 2 - 1 = 6 + 1
7                        | 7 + 1 - 1 = 7
7                        | 8 - 1 = 7
6                        | Numbers are now lower than the base, so just keep subtracting 1.
5                        |
4                        |
3                        |
2                        |
1                        |
0                        | End

การเว้นวรรคนั้นไม่สำคัญ

เกณฑ์การชนะ:

นี่คือรหัสกอล์ฟ รหัสที่สั้นที่สุดชนะ

05AB1E , 19 ไบต์

Å1[D'+ý,N>D>:`Ž<)0K

อาจถูกจัดใหม่เป็น >Å1[ND>:`Ž<)0KD'+ý,

ลองออนไลน์!

คำอธิบาย

Å1                    # push a list of 1's the length of the input
  [                   # start a loop
   D                  # duplicate the current list
    '+ý,              # join on "+" and print
        N>D>:         # replace <current_iteration>+1 with <current_iteration>+2
             `        # flatten the list to the stack
              Ž       # break loop if the stack is empty
               <      # decrement the top number
                )     # wrap the stack in a list
                 0K   # remove zeroes

Python 2, 77 74 ไบต์

-3 ไบต์ด้วยLynn

n=input();b=1
while n:print"+".join(n/b*[`b`]+[`n%b`][:n%b]);n+=n/b-1;b+=1

ลองออนไลน์!

วิ่งได้อย่างง่ายดายถึง n = 100 (แม้ว่าเอาต์พุตจะยาวเกินไปสำหรับการแสดง tio อย่างสมบูรณ์)

Pyth , 29 ไบต์

WQ=hZj\++*]Z/QZ<]J%QZJ=+Qt/QZ

ลองที่นี่!

Mathematica, 123 ไบต์

(s=1~Table~#;i=1;While[s!={},Print@StringRiffle[ToString/@s,"+"];s=s/.i->i+1;s=Join[Most@s,{Last@s}-1]~DeleteCases~0;i++])&

ลองออนไลน์!

Python 3, 155 ไบต์

n=int(input());l=[1]*(n+1);i=0
while l:
    l=[t+1 if t==i else t for t in l];l[-1]-=1;l=l[:-1] if l[-1]==0 else l;print("+".join(list(map(str,l))));i+=1

สามารถทำการฟอร์แมตใหม่ได้

n = int(input())
l = [0]*(n+1)
i = 0
while l:
    l = [t+1 if t==i else t for t in l]
    if l[-1] == 0:
        l = l[:-1]
    print("+".join(list(map(str,l))))
    i += 1

Javascript ES6, 121 ตัวอักษร

for(q=1,s=Array(+prompt()).fill(1).join`+`;s!=0;s=s.split(q).join(++q).replace(/\d+$/,x=>x-1).replace(/\+0$/,''))alert(s)

alert=s=>document.write(s+'\n')
document.write("<pre>")

for(q=1,s=Array(+prompt()).fill(1).join`+`;s!=0;s=s.split(q).join(++q).replace(/\d+$/,x=>x-1).replace(/\+0$/,''))alert(s)

Perl 5 , 71 ไบต์

$,='+';for(@a=(++$")x<>;@a;--$a[-1]||pop@a){say@a;$_+=$_==$"for@a;$"++}

ลองออนไลน์!