?'+)=:!@/*"*'6/{=+'+}/{
ลองออนไลน์!
คำอธิบาย
กางออก:
? ' + )
= : ! @ /
* " * ' 6 /
{ = + ' + } /
{ . . . . .
. . . . .
. . . .
นี่เป็นเพียงโปรแกรมเชิงเส้นที่/
ใช้สำหรับการเปลี่ยนเส้นทางบางอย่าง รหัสเชิงเส้นคือ:
?'+){=+'+}*"*'6{=:!@
ซึ่งคำนวณn (n + 1) (2n + 1) / 6 มันใช้ขอบหน่วยความจำต่อไปนี้:
จุดที่หน่วยความจำ (MP) เริ่มต้นที่ขอบป้ายnชี้ไปทางทิศเหนือ
? Read input into edge labelled 'n'.
' Move MP backwards onto edge labelled 'n+1'.
+ Copy 'n' into 'n+1'.
) Increment the value (so that it actually stores the value n+1).
{= Move MP forwards onto edge labelled 'temp' and turn around to face
edges 'n' and 'n+1'.
+ Add 'n' and 'n+1' into edge 'temp', so that it stores the value 2n+1.
' Move MP backwards onto edge labelled '2n+1'.
+ Copy the value 2n+1 into this edge.
} Move MP forwards onto 'temp' again.
* Multiply 'n' and 'n+1' into edge 'temp', so that it stores the value
n(n+1).
" Move MP backwards onto edge labelled 'product'.
* Multiply 'temp' and '2n+1' into edge 'product', so that it stores the
value n(n+1)(2n+1).
' Move MP backwards onto edge labelled '6'.
6 Store an actual 6 there.
{= Move MP forwards onto edge labelled 'result' and turn around, so that
the MP faces edges 'product' and '6'.
: Divide 'product' by '6' into 'result', so that it stores the value
n(n+1)(2n+1)/6, i.e. the actual result.
! Print the result.
@ Terminate the program.
ในทางทฤษฎีอาจเป็นไปได้ที่จะปรับโปรแกรมนี้ให้มีความยาวด้านข้าง 3 เนื่องจาก/
ไม่จำเป็นสำหรับการคำนวณ:
สามารถนำกลับมาใช้ใหม่เพื่อยุติโปรแกรมและ'"=+*{
อาจนำมาใช้ซ้ำได้เช่นกัน คำสั่งต่ำกว่า 19 (สูงสุดสำหรับความยาวด้าน 3) ฉันสงสัยว่ามันเป็นไปได้ที่จะหาวิธีแก้ปัญหาด้วยมือแม้ว่าจะมีอยู่จริง
f(1) == 1 * 1 (1)
f(24) == 70 * 70 (4900)