2048: Difference between revisions

28 bytes added ,  2 years ago
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[]),
1,111

edits