[TI Basic] 2048

Disp [E],S
Prompt A
[E]→[F]

If A=2
Then
For(X,1,4)
If [E](1,X)=[E](2,X) and [E](3,X)=[E](4,X) and [E](4,X)≠0
Then
2[E](4,X)→[E](4,X)
2[E](2,X)→[E](3,X)
[E](4,X)+S→S
[E](3,X)+S→S
0→[E](1,X)
0→[E](2,X)
Else
0→C
For(Y,-4,-2)
Lbl E
If [E](-Y,X)≠0 and [E](-Y,X)=[E](-Y-1,X) and C=0
Then
[E](-Y,X)2→[E](-Y,X)
[E](-Y,X)+S→S
0→[E](-Y-1,X)
-4→Y
1→C
End
If [E](-Y,X)=0 and [E](-Y-1,X)≠0
Then
[E](-Y-1,X)→[E](-Y,X)
0→[E](-Y-1,X)
-4→Y
Goto E
End
End
End
End
End

If A=8 or A=5
Then
For(X,1,4)
If [E](1,X)=[E](2,X) and [E](3,X)=[E](4,X) and [E](1,X)≠0
Then
2[E](1,X)→[E](1,X)
2[E](3,X)→[E](2,X)
[E](1,X)+S→S
[E](2,X)+S→S
0→[E](3,X)
0→[E](4,X)
Else
0→C
For(Y,1,3)
Lbl F
If [E](Y,X)≠0 and [E](Y,X)=[E](Y+1,X) and C=0
Then
[E](Y,X)2→[E](Y,X)
[E](Y,X)+S→S
0→[E](Y+1,X)
1→Y
1→C
End
If [E](Y,X)=0 and [E](Y+1,X)≠0
Then
[E](Y+1,X)→[E](Y,X)
0→[E](Y+1,X)
1→Y
Goto F
End
End
End
End
End

If A=6 or A=3
Then
For(Y,1,4)
If [E](Y,1)=[E](Y,2) and [E](Y,3)=[E](Y,4) and [E](Y,4)≠0
Then
2[E](Y,4)→[E](Y,4)
2[E](Y,2)→[E](Y,3)
[E](Y,4)+S→S
[E](Y,3)+S→S
0→[E](Y,1)
0→[E](Y,2)
Else
0→C
For(X,-4,-2)
Lbl G
If [E](Y,-X)≠0 and [E](Y,-X)=[E](Y,-X-1) and C=0
Then
[E](Y,-X)2→[E](Y,-X)
[E](Y,-X)+S→S
0→[E](Y,-X-1)
-4→X
1→C
End
If [E](Y,-X)=0 and [E](Y,-X-1)≠0
Then
[E](Y,-X-1)→[E](Y,-X)
0→[E](Y,-X-1)
-4→X
Goto G
End
End
End
End
End

If A=4 or A=1
Then
For(Y,1,4)
If [E](Y,1)=[E](Y,2) and [E](Y,3)=[E](Y,4) and [E](Y,1)≠0
Then
2[E](Y,1)→[E](Y,1)
2[E](Y,3)→[E](Y,2)
[E](Y,1)+S→S
[E](Y,2)+S→S
0→[E](Y,3)
0→[E](Y,4)
Else
0→C
For(X,1,3)
Lbl H
If [E](Y,X)≠0 and [E](Y,X)=[E](Y,X+1) and C=0
Then
[E](Y,X)2→[E](Y,X)
[E](Y,X)+S→S
0→[E](Y,X+1)
1→X
1→C
End
If [E](Y,X)=0 and [E](Y,X+1)≠0
Then
[E](Y,X+1)→[E](Y,X)
0→[E](Y,X+1)
1→X
Goto H
End
End
End
End
End

0→K
If [E]≠[F] or S=0
Then
While K=0
randInt(1,4)→Y
randint(1,4)→X
If [E](Y,X)=0
Then
randInt(1,8)→L
If L=1
Then
4→[E](Y,X)
Else
2→[E](Y,X)
End
1→K
End
End
End

prgmKAPPA