2048: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,524: / Line 1,524: @@
 .locals
 Moving Right Down(tmpTab)
+   {tmpTab} compact,ht=0,cpy(ht), length,{4}sub,sizet=0,mov(sizet)
-   for(j=4,{j}gthan(1),--j)
+   clear(tmpTab),{sizet}zerosarray(tmpTab)
-      cnt=0
+   {ht,tmpTab}array(CONCAT)
-      while( [j]get(tmpTab),not )
-          for(k=j,{k}gthan(1),--k)
-             [{k}minus(1)]get(tmpTab), [k]put(tmpTab)
-          next
-          [1]{0}put(tmpTab)
-          ++cnt
-          if ( {cnt}gthan(4) )
-             break
-          end if
-      wend
-   next
    {tmpTab}
 back
 Moving Left Up(tmpTab)
+   {tmpTab} compact,clear(tmpTab),cpy(tmpTab), length,{4}sub,sizet=0,mov(sizet)
-   for(j=1,{j}lthan(4),++j)  // cada posicion
+   {sizet}zero?,not,do{ ht=0,{sizet}zerosarray(ht)
-      cnt=0
+   {ht,tmpTab}array(CONCAT) }
-      while( [j]get(tmpTab),not )
-          for(k=j,{k}lthan(4),++k)
-             [{k}plus(1)]get(tmpTab), [k]put(tmpTab)
-          next
-          [4]{0}put(tmpTab)
-          ++cnt
-          if ( {cnt}gthan(4) )
-             break
-          endif
-      wend
-   next
    {tmpTab}
 back