<p fontName="Arial">Game 2048</p>

4fcf3cc3-4854-40a5-8215-627f003a5342 34 4 5 false false 0 decimal

&[DATE] &[TIME] - &[FILENAME]

text Up Down Left Right Hold 51 mat :

Grid u v f u v 031 mat : G f 040444 CreateMesh : G 1 col G 2 col augment 31 line :

Grid 0001111000010212110102031312020304141303020100101121201011122221111213232212131424231312111020213130202122323121222333322223243433232221203031414030313242413132334342323334444333323130922 mat :

M0 GameAdd2 M M0 : ZP M 0 Find : val 2210 random 8 > (* + : M ZP ZP length random 1 + el el val : M M eval : 51 line :

M x Find Z 0 : r 0 : 12 mat k 116 range M k el x ≡ Z r r 1 + : el k : 0 if for Z 31 line :

M a b GameMove M M transpose : Source elem is a, end elem is b a 1 < (a 16 > (+ b 1 < (+ b 16 > (+ (0 > Out of bounds M a el 0 ≡ Source elem is empty M b el 0 ≡ Destination empty, move one step M b el M a el : M a el 0 : 12 mat 21 line M a el M b el ≡ Destination not empty, equal values: add M b el 2 M a el (* : M a el 0 : 12 mat 21 line Nothing if if if if M transpose 41 line :

GameI 481216371115261014159132610143711151314151691011125678123456789101112412 mat :

GameΔ 1 - 2 - 3 - 1234 - 8 - 12 - 481243 mat :

GameClr red tomato orangered orange darkorange salmon gold fuchsia coral red stack :

Game ~M sum (0 > ~N 0 > ~N ~N 1 + : ~N 1 : ~Mo ~M : 12 mat if ~M 44 matrix : ~M ~M GameAdd2 : ~M ~M GameAdd2 : ~Mo ~M : ~N 1 : 15 mat if msg text m el : m 5 < (~Target ~M max > (~M 0 Find 0 ≠ (& (& I GameI m row : Δ GameΔ m row : ~Mo ~M : 13 mat j 14 range ~M ~M I j el I j el Δ 1 el + GameMove : ~M ~M I j el Δ 1 el + I j el Δ 2 el + GameMove : ~M ~M I j el Δ 2 el + I j el Δ 3 el + GameMove : ~M ~M I j el Δ 1 el + I j el Δ 2 el + GameMove : ~M ~M I j el I j el Δ 1 el + GameMove : 51 line for j 58 range ~M ~M I j el I j el Δ 1 el + GameMove : ~M ~M I j el Δ 1 el + I j el Δ 2 el + GameMove : ~M ~M I j el I j el Δ 1 el + GameMove : 31 line for j 912 range ~M ~M I j el I j el Δ 1 el + GameMove : for ~Mo ~M ≡ msg msg Invalid Moove concat : ~Mo ~M : ~M ~M GameAdd2 : 21 line if 51 line 0 if ~Target ~M max ≤ msg You Win! : ~M 0 Find 0 ≡ msg You Lost! : 0 if if Π 0.5 4.5 msg 12 blue 15 mat : r 14 range c 14 range ~M r c el 0 ≡ 0 clr GameClr ~M r c el 2 log trunc el : Π Π c 0.8 - 4.7 r - ~M r c el num2str 20 clr augment stack eval : 21 line if for for ~M ~Mo Π 13 mat 71 line :

~N 0 :

~M 000000000000000044 mat :

Starting matrix.

"Up"
"Down"
"Left"
"Right"
"Hold"

Moove ~M ~Mo Π 13 mat Game : ~N ~N m 5 < (+ : 21 line 0

Grid Π 2 1 sys 1 1 line

Score ~M sum 4

~Target 28^:

~M 000200000000000244 mat

Start new game in Hold and pressing F9. Slice the numbers clicking on the directions. Use hold before moove twice in the same direction. When matching numbers meet they combine in the sum. To win reach the Tarrget value, You loose if there are not empty values in the matrix. You can start from a saved game pasting it matrix as the starting matrix.

Alvaro