Revision as of 20:15, 5 December 2021 (view source) Mr Dalien (talk \| contribs) mNo edit summary ← Older edit		Revision as of 23:33, 6 December 2021 (view source) Mr Dalien (talk \| contribs) m (→‎{{header\|Amazing Hopper}}) Newer edit →
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

2048 (view source)