2048: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 8,905: | Line 8,905: | ||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>SetOptions[InputNotebook[],NotebookEventActions->{ |
<lang Mathematica>SetOptions[InputNotebook[],NotebookEventActions->{ |
||
"LeftArrowKeyDown":>(stat=Coalesce[stat];AddNew[]), |
"LeftArrowKeyDown":>(stat=Coalesce[stat];AddNew[]), |