1{?)=}&~".>")!@(</=+={"/>}*
non piegato:
1 { ? )
= } & ~ "
. > " ) ! @
( < / = + = {
" / > } * .
. . . . .
. . . .
Provalo online!
Spiegazione
Consideriamo la sequenza b(a) = a(n) - 1
e facciamo un po 'di riorganizzazione:
b(a) = a(n) - 1
= a(n-1)*(a(n-1)-1) + 1 - 1
= (b(n-1) + 1)*(b(n-1) + 1 - 1)
= (b(n-1) + 1)*b(n-1)
= b(n-1)^2 + b(n-1)
Questa sequenza è molto simile ma possiamo rimandare l'incremento fino alla fine, cosa che succede per salvare un byte in questo programma.
Quindi ecco il codice sorgente annotato:
Creato con HexagonyColorer di Timwi .
Ed ecco un diagramma di memoria (il triangolo rosso mostra la posizione iniziale e l'orientamento del puntatore di memoria):
Creato con EsotericIDE di Timwi .
Il codice inizia sul percorso grigio che avvolge l'angolo sinistro, quindi il bit lineare iniziale è il seguente:
1{?)(
1 Set edge b(1) to 1.
{ Move MP to edge N.
? Read input into edge N.
)( Increment, decrement (no-op).
Quindi il codice colpisce <
quale è un ramo e indica l'inizio (e la fine) del ciclo principale. Finché il bordo N ha un valore positivo, verrà eseguito il percorso verde. Quel percorso avvolge la griglia alcune volte, ma in realtà è del tutto lineare:
""~&}=.*}=+={....(
Non ci .
sono operazioni, quindi il codice effettivo è:
""~&}=*}=+={(
"" Move the MP to edge "copy".
~ Negate. This is to ensure that the value is negative so that &...
& ...copies the left-hand neighbour, i.e. b(i).
}= Move the MP to edge b(i)^2 and turn it around.
* Multiply the two copies of b(i) to compute b(i)^2.
}= Move the MP back to edge b(i) and turn it around.
+ Add the values in edges "copy" and b(i)^2 to compute
b(i) + b(i)^2 = b(i+1).
={ Turn the memory pointer around and move to edge N.
( Decrement.
Una volta che questo decremento riduce N
a 0
, viene eseguito il percorso rosso:
")!@
" Move MP back to edge b(i) (which now holds b(N)).
) Increment to get a(N).
! Print as integer.
@ Terminate the program.