2048 Text Game in GeoGebra
2021-01-03 08:09
This GeoGebra applet implements the classic 2048 game. Using commands like Transpose, Sequence, and RandomDiscrete, it builds a 4x4 interactive board. Players move tiles via buttons, showcasing algorithmic logic and conditional functions in math software. It highlights GeoGebra's power in interactive programming and discrete modeling.
In collections
Math Games with GeoGebra
<?xml version="1.0" encoding="utf-8"?>
<geogebra format="5.0" version="5.0.620.0" app="classic" platform="w" id="bc1d6e7e-8e13-461d-98ab-78c7d568efba" xsi:noNamespaceSchemaLocation="http://www.geogebra.org/apps/xsd/ggb.xsd" xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<gui>
<window width="707" height="883" />
<perspectives>
<perspective id="tmp">
<panes>
<pane location="" divider="0.16421291053227632" orientation="0" />
</panes>
<views>
<view id="512" toolbar="0 | 1 501 5 19 , 67 | 2 15 45 18 , 7 37 | 514 3 9 , 13 44 , 47 | 16 51 | 551 550 11 , 20 22 21 23 , 55 56 57 , 12 | 69 | 510 511 , 512 513 | 533 531 , 534 532 , 522 523 , 537 536 , 535 , 538 | 521 520 | 36 , 38 49 560 | 571 30 29 570 31 33 | 17 | 540 40 41 42 , 27 28 35 , 6 , 502" visible="false" inframe="false" stylebar="false" location="1,1,1" size="500" window="100,100,600,400" />
<view id="4" toolbar="0 || 2020 , 2021 , 2022 , 66 || 2001 , 2003 , 2002 , 2004 , 2005 || 2040 , 2041 , 2042 , 2044 , 2043" visible="false" inframe="false" stylebar="true" location="0,1" size="420" window="100,100,600,400" />
<view id="8" toolbar="1001 | 1002 | 1003 || 1005 | 1004 || 1006 | 1007 | 1010 || 1008 1009 || 66 68 || 6" visible="false" inframe="false" stylebar="false" location="1,3" size="300" window="100,100,600,400" />
<view id="4097" visible="false" inframe="false" stylebar="true" location="1,1" size="390" window="105,187,1598,795" />
<view id="1" visible="true" inframe="false" stylebar="false" location="2" size="730" window="100,100,600,400" />
<view id="2" visible="false" inframe="false" stylebar="true" location="3" size="427" tab="ALGEBRA" window="81,25,517,997" />
<view id="16" visible="true" inframe="false" stylebar="false" location="0" size="145" window="762,232,925,740" />
<view id="32" visible="false" inframe="false" stylebar="true" location="1" size="150" window="50,50,500,500" />
<view id="64" toolbar="0" visible="false" inframe="false" stylebar="false" location="1" size="150" window="50,50,500,500" />
<view id="128" visible="false" inframe="false" stylebar="false" location="1" size="480" window="50,50,500,500" />
<view id="70" toolbar="0 || 2020 || 2021 || 2022" visible="false" inframe="false" stylebar="true" location="1" size="150" window="50,50,500,500" />
</views>
<toolbar show="false" items="0 39 73 62 | 1 501 67 , 5 19 , 72 75 76 | 2 15 45 , 18 65 , 7 37 | 4 3 8 9 , 13 44 , 58 , 47 | 16 51 64 , 70 | 10 34 53 11 , 24 20 22 , 21 23 | 55 56 57 , 12 | 36 46 , 38 49 50 , 71 14 68 | 30 29 54 32 31 33 | 25 17 26 60 52 61 | 40 41 42 , 27 28 35 , 6" position="1" help="false" />
<input show="false" cmd="true" top="algebra" />
<dockBar show="false" east="false" />
</perspective>
</perspectives>
<labelingStyle val="3"/>
<font size="16"/>
</gui>
<euclidianView>
<viewNumber viewNo="1"/>
<size width="707" height="730"/>
<coordSystem xZero="353.5" yZero="355.5000000000001" scale="55.00000000000001" yscale="55.00000000000003"/>
<evSettings axes="false" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="3"/>
<bgColor r="255" g="255" b="255"/>
<axesColor r="0" g="0" b="0"/>
<gridColor r="192" g="192" b="192"/>
<lineStyle axes="1" grid="0"/>
<axis id="0" show="false" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
<axis id="1" show="false" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
</euclidianView>
<euclidianView>
<viewNumber viewNo="2"/>
<size width="707" height="145"/>
<coordSystem xZero="353.5" yZero="59.00000000000001" scale="49.99999999999998" yscale="50.00000000000006"/>
<evSettings axes="false" grid="false" gridIsBold="false" pointCapturing="3" rightAngleStyle="1" checkboxSize="26" gridType="3"/>
<bgColor r="255" g="255" b="255"/>
<axesColor r="0" g="0" b="0"/>
<gridColor r="192" g="192" b="192"/>
<lineStyle axes="1" grid="0"/>
<axis id="0" show="false" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
<axis id="1" show="false" label="" unitLabel="" tickStyle="1" showNumbers="true"/>
</euclidianView>
<kernel>
<continuous val="false"/>
<usePathAndRegionParameters val="true"/>
<decimals val="2"/>
<angleUnit val="degree"/>
<algebraStyle val="0" spreadsheet="0"/>
<coordStyle val="0"/>
</kernel>
<tableview min="-2" max="2" step="1"/>
<scripting blocked="false" disabled="false"/>
<construction title="" author="" date="">
<expression label="col3" exp="{64, 32, 8, 4}"/>
<element type="list" label="col3">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="col2" exp="{16, 8, 4, 2}"/>
<element type="list" label="col2">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="row3" exp="{4, 8, 32, 8}"/>
<element type="list" label="row3">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="row2" exp="{4, 8, 4, 0}"/>
<element type="list" label="row2">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="row4" exp="{8, 16, 64, 16}"/>
<element type="list" label="row4">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="row1" exp="{2, 4, 8, 4}"/>
<element type="list" label="row1">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="A1" exp="0"/>
<element type="numeric" label="A1">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="col4" exp="{16, 8, 4, 8}"/>
<element type="list" label="col4">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="col1" exp="{8, 4, 0, 0}"/>
<element type="list" label="col1">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="A2" exp="0"/>
<element type="numeric" label="A2">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="A3" exp="0"/>
<element type="numeric" label="A3">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="A4" exp="0"/>
<element type="numeric" label="A4">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="B1" exp="0"/>
<element type="numeric" label="B1">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="B2" exp="2"/>
<element type="numeric" label="B2">
<value val="2"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="B3" exp="0"/>
<element type="numeric" label="B3">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="B4" exp="0"/>
<element type="numeric" label="B4">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="C1" exp="0"/>
<element type="numeric" label="C1">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="C2" exp="0"/>
<element type="numeric" label="C2">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="C3" exp="2"/>
<element type="numeric" label="C3">
<value val="2"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="C4" exp="0"/>
<element type="numeric" label="C4">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="D1" exp="0"/>
<element type="numeric" label="D1">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="D2" exp="0"/>
<element type="numeric" label="D2">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="D3" exp="0"/>
<element type="numeric" label="D3">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="D4" exp="0"/>
<element type="numeric" label="D4">
<value val="0"/>
<show object="false" label="true"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="0"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
<auxiliary val="true"/>
</element>
<expression label="board" exp="{{0, 0, 0, 0}, {0, 2, 0, 0}, {0, 0, 2, 0}, {0, 0, 0, 0}}"/>
<element type="list" label="board">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<animation step="1" speed="1" type="0" playing="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
<symbolic val="true" />
</element>
<element type="button" label="buttonRestart">
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<bgColor r="255" g="0" b="0" alpha="255"/>
<layer val="0"/>
<labelOffset x="501" y="30"/>
<labelMode val="3"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<auxiliary val="true"/>
<ggbscript val="board={{0,0,0,0},{0,2,0,0},{0,0,2,0},{0,0,0,0}}"/>
<font serif="false" sizeM="8" size="112" style="1"/>
<dimensions width="200" height="80" />
<caption val="Restart"/>
</element>
<element type="button" label="buttonUp">
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="1"/>
<bgColor r="255" g="255" b="0" alpha="255"/>
<layer val="0"/>
<labelOffset x="114" y="1"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<auxiliary val="true"/>
<ggbscript val="col1=CopyFreeObject(Element(Transpose(board),1))
col2=CopyFreeObject(Element(Transpose(board),2))
col3=CopyFreeObject(Element(Transpose(board),3))
col4=CopyFreeObject(Element(Transpose(board),4))

col1=CopyFreeObject(Join[KeepIf[x!=0,col1],KeepIf[x==0,col1]])
col2=CopyFreeObject(Join[KeepIf[x!=0,col2],KeepIf[x==0,col2]])
col3=CopyFreeObject(Join[KeepIf[x!=0,col3],KeepIf[x==0,col3]])
col4=CopyFreeObject(Join[KeepIf[x!=0,col4],KeepIf[x==0,col4]])

If[col1(1)==col1(2),Execute[{"SetValue(col1,1,col1(1)+col1(2))","SetValue(col1,2,0)"}]]
If[col1(2)==col1(3),Execute[{"SetValue(col1,2,col1(2)+col1(3))","SetValue(col1,3,0)"}]]
If[col1(3)==col1(4),Execute[{"SetValue(col1,3,col1(3)+col1(4))","SetValue(col1,4,0)"}]]

If[col2(1)==col2(2),Execute[{"SetValue(col2,1,col2(1)+col2(2))","SetValue(col2,2,0)"}]]
If[col2(2)==col2(3),Execute[{"SetValue(col2,2,col2(2)+col2(3))","SetValue(col2,3,0)"}]]
If[col2(3)==col2(4),Execute[{"SetValue(col2,3,col2(3)+col2(4))","SetValue(col2,4,0)"}]]

If[col3(1)==col3(2),Execute[{"SetValue(col3,1,col3(1)+col3(2))","SetValue(col3,2,0)"}]]
If[col3(2)==col3(3),Execute[{"SetValue(col3,2,col3(2)+col3(3))","SetValue(col3,3,0)"}]]
If[col3(3)==col3(4),Execute[{"SetValue(col3,3,col3(3)+col3(4))","SetValue(col3,4,0)"}]]

If[col4(1)==col4(2),Execute[{"SetValue(col4,1,col4(1)+col4(2))","SetValue(col4,2,0)"}]]
If[col4(2)==col4(3),Execute[{"SetValue(col4,2,col4(2)+col4(3))","SetValue(col4,3,0)"}]]
If[col4(3)==col4(4),Execute[{"SetValue(col4,3,col4(3)+col4(4))","SetValue(col4,4,0)"}]]

col1=CopyFreeObject(Join[KeepIf[x!=0,col1],KeepIf[x==0,col1]])
col2=CopyFreeObject(Join[KeepIf[x!=0,col2],KeepIf[x==0,col2]])
col3=CopyFreeObject(Join[KeepIf[x!=0,col3],KeepIf[x==0,col3]])
col4=CopyFreeObject(Join[KeepIf[x!=0,col4],KeepIf[x==0,col4]])


If[board!=boardUp,Execute({exeCol})]
If[board!=boardUp,Execute[{"SetValue(board,boardUp)"}]]

SelectObjects( )"/>
<ggbscript onUpdate="
"/>
<font serif="false" sizeM="8" size="112" style="0"/>
<file name="geogebra/gui/images/go-up.png"/>
<dimensions width="600" height="160" />
<startPoint x="-5.45" y="6.9" z="1"/>
</element>
<element type="button" label="buttonDown">
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="1"/>
<bgColor r="153" g="255" b="153" alpha="255"/>
<layer val="0"/>
<labelOffset x="83" y="569"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<auxiliary val="true"/>
<ggbscript val="col1=Reverse[CopyFreeObject(Element(Transpose(board),1))]
col2=Reverse[CopyFreeObject(Element(Transpose(board),2))]
col3=Reverse[CopyFreeObject(Element(Transpose(board),3))]
col4=Reverse[CopyFreeObject(Element(Transpose(board),4))]

col1=CopyFreeObject(Join[KeepIf[x!=0,col1],KeepIf[x==0,col1]])
col2=CopyFreeObject(Join[KeepIf[x!=0,col2],KeepIf[x==0,col2]])
col3=CopyFreeObject(Join[KeepIf[x!=0,col3],KeepIf[x==0,col3]])
col4=CopyFreeObject(Join[KeepIf[x!=0,col4],KeepIf[x==0,col4]])

If[col1(1)==col1(2),Execute[{"SetValue(col1,1,col1(1)+col1(2))","SetValue(col1,2,0)"}]]
If[col1(2)==col1(3),Execute[{"SetValue(col1,2,col1(2)+col1(3))","SetValue(col1,3,0)"}]]
If[col1(3)==col1(4),Execute[{"SetValue(col1,3,col1(3)+col1(4))","SetValue(col1,4,0)"}]]

If[col2(1)==col2(2),Execute[{"SetValue(col2,1,col2(1)+col2(2))","SetValue(col2,2,0)"}]]
If[col2(2)==col2(3),Execute[{"SetValue(col2,2,col2(2)+col2(3))","SetValue(col2,3,0)"}]]
If[col2(3)==col2(4),Execute[{"SetValue(col2,3,col2(3)+col2(4))","SetValue(col2,4,0)"}]]

If[col3(1)==col3(2),Execute[{"SetValue(col3,1,col3(1)+col3(2))","SetValue(col3,2,0)"}]]
If[col3(2)==col3(3),Execute[{"SetValue(col3,2,col3(2)+col3(3))","SetValue(col3,3,0)"}]]
If[col3(3)==col3(4),Execute[{"SetValue(col3,3,col3(3)+col3(4))","SetValue(col3,4,0)"}]]

If[col4(1)==col4(2),Execute[{"SetValue(col4,1,col4(1)+col4(2))","SetValue(col4,2,0)"}]]
If[col4(2)==col4(3),Execute[{"SetValue(col4,2,col4(2)+col4(3))","SetValue(col4,3,0)"}]]
If[col4(3)==col4(4),Execute[{"SetValue(col4,3,col4(3)+col4(4))","SetValue(col4,4,0)"}]]

col1=CopyFreeObject(Join[KeepIf[x!=0,col1],KeepIf[x==0,col1]])
col2=CopyFreeObject(Join[KeepIf[x!=0,col2],KeepIf[x==0,col2]])
col3=CopyFreeObject(Join[KeepIf[x!=0,col3],KeepIf[x==0,col3]])
col4=CopyFreeObject(Join[KeepIf[x!=0,col4],KeepIf[x==0,col4]])


If[board!=boardDown,Execute({exeCol})]
If[board!=boardDown,Execute[{"SetValue(board,boardDown)"}]]


SelectObjects( )"/>
<font serif="false" sizeM="8" size="112" style="0"/>
<file name="geogebra/gui/images/go-down.png"/>
<dimensions width="600" height="160" />
<startPoint x="-5.45" y="-4" z="1"/>
</element>
<element type="button" label="buttonRight">
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="1"/>
<bgColor r="255" g="51" b="102" alpha="255"/>
<layer val="0"/>
<labelOffset x="583" y="-11"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<auxiliary val="true"/>
<ggbscript val="row1=Reverse[CopyFreeObject(Element(board,1))]
row2=Reverse[CopyFreeObject(Element(board,2))]
row3=Reverse[CopyFreeObject(Element(board,3))]
row4=Reverse[CopyFreeObject(Element(board,4))]

row1=CopyFreeObject(Join[KeepIf[x!=0,row1],KeepIf[x==0,row1]])
row2=CopyFreeObject(Join[KeepIf[x!=0,row2],KeepIf[x==0,row2]])
row3=CopyFreeObject(Join[KeepIf[x!=0,row3],KeepIf[x==0,row3]])
row4=CopyFreeObject(Join[KeepIf[x!=0,row4],KeepIf[x==0,row4]])

If[row1(1)==row1(2),Execute[{"SetValue(row1,1,row1(1)+row1(2))","SetValue(row1,2,0)"}]]
If[row1(2)==row1(3),Execute[{"SetValue(row1,2,row1(2)+row1(3))","SetValue(row1,3,0)"}]]
If[row1(3)==row1(4),Execute[{"SetValue(row1,3,row1(3)+row1(4))","SetValue(row1,4,0)"}]]

If[row2(1)==row2(2),Execute[{"SetValue(row2,1,row2(1)+row2(2))","SetValue(row2,2,0)"}]]
If[row2(2)==row2(3),Execute[{"SetValue(row2,2,row2(2)+row2(3))","SetValue(row2,3,0)"}]]
If[row2(3)==row2(4),Execute[{"SetValue(row2,3,row2(3)+row2(4))","SetValue(row2,4,0)"}]]

If[row3(1)==row3(2),Execute[{"SetValue(row3,1,row3(1)+row3(2))","SetValue(row3,2,0)"}]]
If[row3(2)==row3(3),Execute[{"SetValue(row3,2,row3(2)+row3(3))","SetValue(row3,3,0)"}]]
If[row3(3)==row3(4),Execute[{"SetValue(row3,3,row3(3)+row3(4))","SetValue(row3,4,0)"}]]

If[row4(1)==row4(2),Execute[{"SetValue(row4,1,row4(1)+row4(2))","SetValue(row4,2,0)"}]]
If[row4(2)==row4(3),Execute[{"SetValue(row4,2,row4(2)+row4(3))","SetValue(row4,3,0)"}]]
If[row4(3)==row4(4),Execute[{"SetValue(row4,3,row4(3)+row4(4))","SetValue(row4,4,0)"}]]

row1=CopyFreeObject(Join[KeepIf[x!=0,row1],KeepIf[x==0,row1]])
row2=CopyFreeObject(Join[KeepIf[x!=0,row2],KeepIf[x==0,row2]])
row3=CopyFreeObject(Join[KeepIf[x!=0,row3],KeepIf[x==0,row3]])
row4=CopyFreeObject(Join[KeepIf[x!=0,row4],KeepIf[x==0,row4]])

If[board!=boardRight,Execute({exeRow})]
If[board!=boardRight,Execute[{"SetValue(board,boardRight)"}]]

SelectObjects( )"/>
<font serif="false" sizeM="8" size="112" style="0"/>
<file name="geogebra/gui/images/go-next.png"/>
<dimensions width="150" height="800" />
<startPoint x="4" y="7.3" z="1"/>
</element>
<element type="button" label="buttonLeft">
<show object="true" label="true"/>
<objColor r="0" g="0" b="0" alpha="1"/>
<bgColor r="0" g="255" b="255" alpha="255"/>
<layer val="0"/>
<labelOffset x="6" y="-11"/>
<labelMode val="3"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<auxiliary val="true"/>
<ggbscript val="row1=CopyFreeObject(Element(board,1))
row2=CopyFreeObject(Element(board,2))
row3=CopyFreeObject(Element(board,3))
row4=CopyFreeObject(Element(board,4))

row1=CopyFreeObject(Join[KeepIf[x!=0,row1],KeepIf[x==0,row1]])
row2=CopyFreeObject(Join[KeepIf[x!=0,row2],KeepIf[x==0,row2]])
row3=CopyFreeObject(Join[KeepIf[x!=0,row3],KeepIf[x==0,row3]])
row4=CopyFreeObject(Join[KeepIf[x!=0,row4],KeepIf[x==0,row4]])

If[row1(1)==row1(2),Execute[{"SetValue(row1,1,row1(1)+row1(2))","SetValue(row1,2,0)"}]]
If[row1(2)==row1(3),Execute[{"SetValue(row1,2,row1(2)+row1(3))","SetValue(row1,3,0)"}]]
If[row1(3)==row1(4),Execute[{"SetValue(row1,3,row1(3)+row1(4))","SetValue(row1,4,0)"}]]

If[row2(1)==row2(2),Execute[{"SetValue(row2,1,row2(1)+row2(2))","SetValue(row2,2,0)"}]]
If[row2(2)==row2(3),Execute[{"SetValue(row2,2,row2(2)+row2(3))","SetValue(row2,3,0)"}]]
If[row2(3)==row2(4),Execute[{"SetValue(row2,3,row2(3)+row2(4))","SetValue(row2,4,0)"}]]

If[row3(1)==row3(2),Execute[{"SetValue(row3,1,row3(1)+row3(2))","SetValue(row3,2,0)"}]]
If[row3(2)==row3(3),Execute[{"SetValue(row3,2,row3(2)+row3(3))","SetValue(row3,3,0)"}]]
If[row3(3)==row3(4),Execute[{"SetValue(row3,3,row3(3)+row3(4))","SetValue(row3,4,0)"}]]

If[row4(1)==row4(2),Execute[{"SetValue(row4,1,row4(1)+row4(2))","SetValue(row4,2,0)"}]]
If[row4(2)==row4(3),Execute[{"SetValue(row4,2,row4(2)+row4(3))","SetValue(row4,3,0)"}]]
If[row4(3)==row4(4),Execute[{"SetValue(row4,3,row4(3)+row4(4))","SetValue(row4,4,0)"}]]

row1=CopyFreeObject(Join[KeepIf[x!=0,row1],KeepIf[x==0,row1]])
row2=CopyFreeObject(Join[KeepIf[x!=0,row2],KeepIf[x==0,row2]])
row3=CopyFreeObject(Join[KeepIf[x!=0,row3],KeepIf[x==0,row3]])
row4=CopyFreeObject(Join[KeepIf[x!=0,row4],KeepIf[x==0,row4]])

If[board!=boardLeft,Execute({exeRow})]
If[board!=boardLeft,Execute[{"SetValue(board,boardLeft)"}]]

SelectObjects( )"/>
<font serif="false" sizeM="8" size="112" style="0"/>
<file name="geogebra/gui/images/go-previous.png"/>
<dimensions width="150" height="800" />
<startPoint x="-6.7" y="7.3" z="1"/>
</element>
<command name="Transpose">
<input a0="{col1, col2, col3, col4}"/>
<output a0="boardUp"/>
</command>
<element type="list" label="boardUp">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<command name="Transpose">
<input a0="{Reverse[col1], Reverse[col2], Reverse[col3], Reverse[col4]}"/>
<output a0="boardDown"/>
</command>
<element type="list" label="boardDown">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="boardLeft" exp="{row1, row2, row3, row4}" />
<element type="list" label="boardLeft">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="boardRight" exp="{Reverse[row1], Reverse[row2], Reverse[row3], Reverse[row4]}" />
<element type="list" label="boardRight">
<objColor r="0" g="100" b="0" alpha="0.10000000149011612"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="score" exp="(CountIf[x ≟ 4, Flatten[board]] * 4) + ((CountIf[x ≟ 8, Flatten[board]] * 8) * 2) + ((CountIf[x ≟ 16, Flatten[board]] * 16) * 3) + ((CountIf[x ≟ 32, Flatten[board]] * 32) * 4) + ((CountIf[x ≟ 64, Flatten[board]] * 64) * 5) + ((CountIf[x ≟ 128, Flatten[board]] * 128) * 6) + ((CountIf[x ≟ 256, Flatten[board]] * 256) * 7) + ((CountIf[x ≟ 512, Flatten[board]] * 512) * 8) + ((CountIf[x ≟ 1024, Flatten[board]] * 1024) * 9) + ((CountIf[x ≟ 2048, Flatten[board]] * 2048) * 10) + ((CountIf[x ≟ 4096, Flatten[board]] * 4096) * 11) + ((CountIf[x ≟ 8192, Flatten[board]] * 8192) * 12)" />
<element type="numeric" label="score">
<value val="0"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
</element>
<command name="LaTeX">
<input a0="score" a1="true" a2="true"/>
<output a0="textScore"/>
</command>
<element type="text" label="textScore">
<show object="true" label="false" ev="11"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<isLaTeX val="true"/>
<font serif="false" sizeM="3" size="32" style="1"/>
<startPoint x="-7.100000000000006" y="0.28000000000000536" z="1"/>
</element>
<command name="RandomDiscrete">
<input a0="{1, 2, 3, 4}" a1="{CountIf[x ≟ 0, col1], CountIf[x ≟ 0, col2], CountIf[x ≟ 0, col3], CountIf[x ≟ 0, col4]}"/>
<output a0="rCol"/>
</command>
<element type="numeric" label="rCol">
<value val="1"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
</element>
<command name="RandomDiscrete">
<input a0="{1, 2, 3, 4}" a1="{CountIf[x ≟ 0, row1], CountIf[x ≟ 0, row2], CountIf[x ≟ 0, row3], CountIf[x ≟ 0, row4]}"/>
<output a0="rRow"/>
</command>
<element type="numeric" label="rRow">
<value val="2"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
</element>
<command name="Sequence">
<input a0="Sequence[Polygon[{(m, n), (m + 2, n), (m + 2, n + 2), (m, n + 2)}], n, -4, 2, 2]" a1="m" a2="-4" a3="2" a4="2"/>
<output a0="polyGrid"/>
</command>
<element type="list" label="polyGrid">
<show object="true" label="false" ev="4"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<selectionAllowed val="false"/>
<lineStyle thickness="5" type="0" typeHidden="1"/>
<pointSize val="5"/>
<pointStyle val="0"/>
<angleStyle val="0"/>
</element>
<expression label="text11" exp=""" + (board(1, 1)) + """ />
<element type="text" label="text11">
<show object="true" label="false" ev="8"/>
<condition showObject="board(1, 1) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="-3.5" y="2.8" z="1"/>
</element>
<expression label="text12" exp=""" + (board(1, 2)) + """ />
<element type="text" label="text12">
<show object="true" label="false" ev="40"/>
<condition showObject="board(1, 2) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="-1.5" y="2.8" z="1"/>
</element>
<expression label="text13" exp=""" + (board(1, 3)) + """ />
<element type="text" label="text13">
<show object="true" label="false" ev="40"/>
<condition showObject="board(1, 3) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="0.5" y="2.8" z="1"/>
</element>
<expression label="text14" exp=""" + (board(1, 4)) + """ />
<element type="text" label="text14">
<show object="true" label="false" ev="40"/>
<condition showObject="board(1, 4) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="2.5" y="2.8" z="1"/>
</element>
<expression label="text21" exp=""" + (board(2, 1)) + """ />
<element type="text" label="text21">
<show object="true" label="false" ev="40"/>
<condition showObject="board(2, 1) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="-3.5" y="0.8" z="1"/>
</element>
<expression label="text22" exp=""" + (board(2, 2)) + """ />
<element type="text" label="text22">
<show object="true" label="false" ev="40"/>
<condition showObject="board(2, 2) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="-1.5" y="0.8" z="1"/>
</element>
<expression label="text23" exp=""" + (board(2, 3)) + """ />
<element type="text" label="text23">
<show object="true" label="false" ev="40"/>
<condition showObject="board(2, 3) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="0.5" y="0.8" z="1"/>
</element>
<expression label="text24" exp=""" + (board(2, 4)) + """ />
<element type="text" label="text24">
<show object="true" label="false" ev="40"/>
<condition showObject="board(2, 4) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="2.5" y="0.8" z="1"/>
</element>
<expression label="text31" exp=""" + (board(3, 1)) + """ />
<element type="text" label="text31">
<show object="true" label="false" ev="40"/>
<condition showObject="board(3, 1) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="-3.5" y="-1.2" z="1"/>
</element>
<expression label="text32" exp=""" + (board(3, 2)) + """ />
<element type="text" label="text32">
<show object="true" label="false" ev="40"/>
<condition showObject="board(3, 2) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="-1.5" y="-1.2" z="1"/>
</element>
<expression label="text33" exp=""" + (board(3, 3)) + """ />
<element type="text" label="text33">
<show object="true" label="false" ev="40"/>
<condition showObject="board(3, 3) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="0.5" y="-1.2" z="1"/>
</element>
<expression label="text34" exp=""" + (board(3, 4)) + """ />
<element type="text" label="text34">
<show object="true" label="false" ev="40"/>
<condition showObject="board(3, 4) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="2.5" y="-1.2" z="1"/>
</element>
<expression label="text41" exp=""" + (board(4, 1)) + """ />
<element type="text" label="text41">
<show object="true" label="false" ev="8"/>
<condition showObject="board(4, 1) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="-3.5" y="-3.2" z="1"/>
</element>
<expression label="text42" exp=""" + (board(4, 2)) + """ />
<element type="text" label="text42">
<show object="true" label="false" ev="40"/>
<condition showObject="board(4, 2) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="-1.5" y="-3.2" z="1"/>
</element>
<expression label="text43" exp=""" + (board(4, 3)) + """ />
<element type="text" label="text43">
<show object="true" label="false" ev="40"/>
<condition showObject="board(4, 3) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="0.5" y="-3.2" z="1"/>
</element>
<expression label="text44" exp=""" + (board(4, 4)) + """ />
<element type="text" label="text44">
<show object="true" label="false" ev="40"/>
<condition showObject="board(4, 4) ≠ 0"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<tooltipMode val="2"/>
<fixed val="true"/>
<selectionAllowed val="false"/>
<font serif="false" sizeM="2" size="16" style="0"/>
<startPoint x="2.5" y="-3.2" z="1"/>
</element>
<element type="numeric" label="difficulty">
<value val="2"/>
<show object="true" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="5"/>
<labelOffset x="-80" y="2"/>
<labelMode val="3"/>
<slider min="1" max="3" absoluteScreenLocation="true" width="60" x="460" y="98" fixed="false" horizontal="false" showAlgebra="true"/>
<pointSize val="10"/>
<lineStyle thickness="20" type="0" typeHidden="1"/>
<animation step="1" speed="1" type="0" playing="false"/>
<ggbscript onUpdate="SetCaption(difficulty,If[difficulty==1,"Easy",difficulty==2,"Medium",difficulty==3,"Hard"])
SetValue[di,If[difficulty==1,0,difficulty==2,0.25,difficulty==3,0.5]]"/>
<caption val="Medium"/>
</element>
<element type="numeric" label="di">
<value val="0.25"/>
<show object="false" label="true" ev="3"/>
<objColor r="0" g="0" b="0" alpha="0.10000000149011612"/>
<layer val="5"/>
<labelMode val="1"/>
<animation speed="1" type="0" playing="false"/>
</element>
<expression label="exeCol" exp=""SetValue(col" + rCol + ",5-Random(1,CountIf(x==0,col" + rCol + ")),RandomDiscrete({2,4},{1-" + di + "," + di + "}))"" />
<element type="text" label="exeCol">
<show object="false" label="false" ev="8"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<startPoint x="-0.04999999999999982" y="-0.1409090909090911" z="1"/>
</element>
<expression label="exeRow" exp=""SetValue(row" + rRow + " ,5-Random(1,CountIf(x==0,row" + rRow + " )),RandomDiscrete({2,4},{1-" + di + "," + di + "}))"" />
<element type="text" label="exeRow">
<show object="false" label="false" ev="8"/>
<objColor r="0" g="0" b="0" alpha="0"/>
<layer val="5"/>
<labelMode val="0"/>
<startPoint x="-0.04999999999999982" y="-0.1045454545454545" z="1"/>
</element>
</construction>
</geogebra>