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