Data commit
This commit is contained in:
Ingy döt Net
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
236
Task/2048/Amazing-Hopper/2048-1.hopper
Normal file
236
Task/2048/Amazing-Hopper/2048-1.hopper
Normal file
|
|
@ -0,0 +1,236 @@
|
|||
#context-free select Position of aleatory tail
|
||||
#context-free show Table
|
||||
#context-free chek Winner or Game Over
|
||||
#context-free print Table structure
|
||||
#proto MovingRightDown(_X_)
|
||||
#proto MovingLeftUp(_X_)
|
||||
#proto checkPointLeftUp(_X_)
|
||||
#proto checkPointRightDown(_X_)
|
||||
#proto checkMoveRightDown(_X_)
|
||||
#proto checkMoveLeftUp(_X_)
|
||||
#define KUP 5
|
||||
#define KDOWN 24
|
||||
#define KLEFT 19
|
||||
#define KRIGHT 4
|
||||
#define KESCAPE 27
|
||||
#define MOVEHORZ 1
|
||||
#define MOVEVERT 0
|
||||
#define equaltables(_X_,_Y_) _I_=1,\
|
||||
__LOOP_ROW__:,\
|
||||
_J_=1,\
|
||||
__LOOP_COL__:,\
|
||||
[_I_,_J_]get(_X_),get(_Y_),neq? do{{0},jmp(__OUT__LOOP__)},\
|
||||
++_J_,{4,_J_}jle(__LOOP_COL__),\
|
||||
++_I_,{4,_I_}jle(__LOOP_ROW__),\
|
||||
{1},__OUT__LOOP__:,clear mark
|
||||
#include <hopper.h>
|
||||
|
||||
main:
|
||||
.ctrl c
|
||||
contador de movimientos=0
|
||||
score=0
|
||||
table=0,{4,4}zeros array(table) // create table
|
||||
oldTable=0, show Structure=1
|
||||
/* define initial positions */
|
||||
{""}tok sep
|
||||
select Position of aleatory tail
|
||||
select Position of aleatory tail
|
||||
home
|
||||
hide cursor
|
||||
show Table
|
||||
c=0, go=1,swFin=1
|
||||
|
||||
/* game! */
|
||||
__PLAY_GAME__:
|
||||
|
||||
if key pressed?
|
||||
lastkey(c)
|
||||
oldTable = table
|
||||
switch(c)
|
||||
case(KRIGHT) :: do{ _check Move Right Down(MOVEHORZ), exit }
|
||||
case(KDOWN) :: do{ _check Move Right Down(MOVEVERT), exit }
|
||||
case(KLEFT) :: do{ _check Move Left Up(MOVEHORZ), exit }
|
||||
case(KUP) :: do{ _check Move Left Up(MOVEVERT), exit }
|
||||
case(KESCAPE):: do{ go=0,swFin=0 }
|
||||
end switch
|
||||
kbfree
|
||||
chek Winner or Game Over
|
||||
{go}do{
|
||||
if ( not( equal tables(oldTable, table) ) )
|
||||
select Position of aleatory tail
|
||||
++contador de movimientos
|
||||
end if
|
||||
show Table
|
||||
}
|
||||
end if
|
||||
{go},jt(__PLAY_GAME__)
|
||||
|
||||
if ( {swFin} )
|
||||
{" \LG","YOU WIN!!!\OFF"}
|
||||
else
|
||||
{" \LR","GAME OVER\OFF"}
|
||||
end if
|
||||
println
|
||||
show cursor
|
||||
exit(0)
|
||||
|
||||
.locals
|
||||
Moving Right Down(tmpTab)
|
||||
{tmpTab} compact,ht=0,cpy(ht), length,{4}sub,sizet=0,mov(sizet)
|
||||
clear(tmpTab),{sizet}zerosarray(tmpTab)
|
||||
{ht,tmpTab}array(CONCAT)
|
||||
{tmpTab}
|
||||
back
|
||||
Moving Left Up(tmpTab)
|
||||
{tmpTab} compact,clear(tmpTab),cpy(tmpTab), length,{4}sub,sizet=0,mov(sizet)
|
||||
{sizet}zero?,not,do{ ht=0,{sizet}zerosarray(ht)
|
||||
{ht,tmpTab}array(CONCAT) }
|
||||
{tmpTab}
|
||||
back
|
||||
check Point Right Down(tmpTab)
|
||||
v1=0,v2=0,tScore=0,totScore=0
|
||||
for(k=4,{k}gthan(1),--k)
|
||||
[k]get(tmpTab),mov(v1)
|
||||
[{k}minus(1)]get(tmpTab),mov(v2)
|
||||
if( {v1} eqto (v2) )
|
||||
{v1,v2}add,cpy(tScore),[k]put(tmpTab),[{k}minus(1)]{0}put(tmpTab)
|
||||
{tScore}plus(totScore),mov(totScore)
|
||||
end if
|
||||
next
|
||||
{tmpTab,totScore}
|
||||
back
|
||||
check Move Right Down (_DIRECTION_)
|
||||
tmpTab=0
|
||||
for(i=1,{i}lethan(4),++i)
|
||||
if ( {_DIRECTION_} ) // rows or cols??
|
||||
[i,1:4] // rows!
|
||||
else
|
||||
[1:4,i] // cols!
|
||||
end if
|
||||
get(table), mov(tmpTab)
|
||||
|
||||
if( {tmpTab}stats(SUMMATORY) ) // exist numbers in the row??
|
||||
clear mark
|
||||
_Moving Right Down(tmpTab),mov(tmpTab) // move its!
|
||||
clear mark
|
||||
_check Point Right Down(tmpTab),plus(score),mov(score) // check score...
|
||||
mov(tmpTab)
|
||||
_Moving Right Down(tmpTab),mov(tmpTab) // move remanents!
|
||||
if( {_DIRECTION_} )
|
||||
[i,1:4]
|
||||
else
|
||||
[1:4,i]
|
||||
end if
|
||||
{tmpTab}, put(table)
|
||||
end if
|
||||
next
|
||||
clear mark.
|
||||
back
|
||||
|
||||
check Point Left Up(tmpTab)
|
||||
v1=0,v2=0,tScore=0,totScore=0
|
||||
for(k=1,{k}lthan(4),++k)
|
||||
[k]get(tmpTab),mov(v1)
|
||||
[{k}plus(1)]get(tmpTab),mov(v2)
|
||||
if( {v1} eqto (v2) )
|
||||
{v1,v2}add,cpy(tScore),[k]put(tmpTab),[{k}plus(1)]{0}put(tmpTab)
|
||||
{tScore}plus(totScore),mov(totScore)
|
||||
end if
|
||||
next
|
||||
{tmpTab,totScore}
|
||||
back
|
||||
|
||||
check Move Left Up(_DIRECTION_)
|
||||
tmpTab=0
|
||||
for(i=1,{i}lethan(4),++i)
|
||||
if( {_DIRECTION_} )
|
||||
[i,1:4]
|
||||
else
|
||||
[1:4,i]
|
||||
end if
|
||||
get(table),mov(tmpTab)
|
||||
if( {tmpTab}stats(SUMMATORY) ) // exist numbers in the row??
|
||||
clear mark
|
||||
_Moving Left Up(tmpTab),mov(tmpTab) // move its!
|
||||
clear mark
|
||||
_check Point Left Up(tmpTab),plus(score),mov(score) // check score...
|
||||
mov(tmpTab)
|
||||
_Moving Left Up(tmpTab),mov(tmpTab) // move remanents!
|
||||
if( {_DIRECTION_} )
|
||||
[i,1:4]
|
||||
else
|
||||
[1:4,i]
|
||||
end if
|
||||
{tmpTab},put(table)
|
||||
end if
|
||||
next
|
||||
clear mark.
|
||||
back
|
||||
|
||||
chek Winner or Game Over:
|
||||
{table}gthan(0),xtonum,stats(SUMMATORY),{16} eq? do{{0}mov(go),{0}mov(swFin),back} // You loose!
|
||||
{0}reshape(table),{2048,table}array(SCAN){0} neq? do{{0}mov(go),back} // you Win!
|
||||
{4,4}reshape(table)
|
||||
back
|
||||
|
||||
select Position of aleatory tail:
|
||||
prec(-1)
|
||||
__NO_VALID_POS__:
|
||||
{10}rand, mulby(10),ceil,module(5),x=0,cpy(x),zero?,do{x=1}
|
||||
{10}rand, mulby(10),ceil,module(5),y=0,cpy(y),zero?,do{y=1}
|
||||
[x,y]get(table),jnz(__NO_VALID_POS__)
|
||||
newTail=2
|
||||
{1}rand,gthan(0.9), do{ newTail=4 }
|
||||
{newTail},put(table), clear mark.
|
||||
prec(0)
|
||||
back
|
||||
|
||||
show Table:
|
||||
tmpTable=0
|
||||
{" ",6,table}xtostr,padcenter,mov(tmpTable)
|
||||
// prepare colours of tiles
|
||||
{"\BGLGR\BK \OFF"," 0 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGLGR\BK 2 \OFF"," 2 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGLGR\B 4 \OFF"," 4 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGLGR\B 8 \OFF"," 8 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGR\W 16 \OFF"," 16 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGY\BK 32 \OFF"," 32 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGB\W 64 \OFF"," 64 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGLM\BK 128 \OFF"," 128 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGG\W 256 \OFF"," 256 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGB\W 512 \OFF"," 512 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGR\W 1024 \OFF"," 1024 ",tmpTable} transform, mov(tmpTable)
|
||||
{"\BGBK\W\ENF 2048 \OFF"," 2048 ",tmpTable} transform, mov(tmpTable)
|
||||
|
||||
// and PRINT!!
|
||||
{show Structure} do{ print Table structure,{0} mov(show Structure) }
|
||||
|
||||
clear mark
|
||||
scrx=2
|
||||
for (i=1, {i}lethan(4),++i)
|
||||
{2,scrx}goxy,[1,i]get(tmpTable),print
|
||||
{4,scrx}goxy,[2,i]get(tmpTable),print
|
||||
{6,scrx}goxy,[3,i]get(tmpTable),print
|
||||
{8,scrx}goxy,[4,i]get(tmpTable),print
|
||||
clear mark
|
||||
scrx += 7
|
||||
next
|
||||
|
||||
{"\BGB\W\ENF","\n\n\t 2 0 4 8 \OFF\n\n"}
|
||||
{"Movimiento # ",contador de movimientos,", \INVSCORE=",score,"\OFF\n"}//,tmpTable}
|
||||
println
|
||||
|
||||
back
|
||||
|
||||
print Table structure:
|
||||
{"┌──────┬──────┬──────┬──────┐\n"},strtoutf8,
|
||||
{"│ 2048 │ 2048 │ 2048 │ 2048 │\n"},strtoutf8,
|
||||
{"├──────┼──────┼──────┼──────┤\n"},strtoutf8,
|
||||
{"│ 2048 │ 2048 │ 2048 │ 2048 │\n"},strtoutf8,
|
||||
{"├──────┼──────┼──────┼──────┤\n"},strtoutf8,
|
||||
{"│ 2048 │ 2048 │ 2048 │ 2048 │\n"},strtoutf8,
|
||||
{"├──────┼──────┼──────┼──────┤\n"},strtoutf8,
|
||||
{"│ 2048 │ 2048 │ 2048 │ 2048 │\n"},strtoutf8,
|
||||
{"└──────┴──────┴──────┴──────┘"},strtoutf8,
|
||||
println
|
||||
back
|
||||
287
Task/2048/Amazing-Hopper/2048-2.hopper
Normal file
287
Task/2048/Amazing-Hopper/2048-2.hopper
Normal file
|
|
@ -0,0 +1,287 @@
|
|||
// Definicion de "contextos"
|
||||
#context-free select Position of aleatory tail
|
||||
set Decimal (-1)
|
||||
tSIZE=0,
|
||||
Let( tSIZE := var(SIZE) Plus (1) )
|
||||
__NO_VALID_POS__:
|
||||
x=0, y=0
|
||||
When( Is Zero? ( Ceil( Rand(10) Mul by(10) ) Module (tSIZE) » (x) )){ x = 1 }
|
||||
When( Is Zero? ( Ceil( Rand(10) Mul by(10) ) Module (tSIZE) » (y) )){ y = 1 }
|
||||
At Interval [x,y], Get (table), Goto If Not Zero(__NO_VALID_POS__)
|
||||
newTail=2
|
||||
When ( Rand(1) Is Gt (0.9) ) { newTail=4 }
|
||||
Take( newTail ), and SPut(table).
|
||||
set Decimal(0)
|
||||
Return\\
|
||||
|
||||
#context-free check Winner or Game Over
|
||||
When ( Summatory ( Val( var(table) Is Gt (0) ) ), Is Eq? ( var(SIZE) Mulby(SIZE) ) ) {
|
||||
MStore( 0, go, swFin ), and Back // You loose!
|
||||
}
|
||||
ReDim( table, 0 ) // convierte en vector
|
||||
When( Scan(1, 2048, table ) Is Not Eq? (0) ){
|
||||
ReDim( table, SIZE, SIZE ), Let ( go:=0 ) and Back // You Win!
|
||||
}
|
||||
ReDim( table, SIZE, SIZE )
|
||||
Return\\
|
||||
|
||||
#context-free show Table
|
||||
tmpTable=0
|
||||
Let ( tmpTable := CPad$(" ", 6, Str$(table)) )
|
||||
Let ( tmpTable := Tran$("\BGLGR\BK \OFF"," 0 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGLGR\BK 2 \OFF"," 2 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGLGR\B 4 \OFF"," 4 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGLGR\B 8 \OFF"," 8 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGR\W 16 \OFF"," 16 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGY\BK 32 \OFF"," 32 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGB\W 64 \OFF"," 64 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGLM\BK 128 \OFF"," 128 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGG\W 256 \OFF"," 256 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGB\W 512 \OFF"," 512 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGR\W 1024 \OFF"," 1024 ", tmpTable) )
|
||||
Let ( tmpTable := Tran$("\BGBK\W\ENF 2048 \OFF"," 2048 ", tmpTable) )
|
||||
When( show Structure ) { print Table structure, and Let ( show Structure := 0 ) }
|
||||
Clear Mark
|
||||
scrx=2
|
||||
For (i=1, var(i) Is Le (SIZE), ++i)
|
||||
Locate in Column (scrx)
|
||||
Locate in Row (2), At Interval [1,i], Print( Get (tmpTable) )
|
||||
Locate in Row (4), At Interval [2,i], Print( Get (tmpTable) )
|
||||
Locate in Row (6), At Interval [3,i], Print( Get (tmpTable) )
|
||||
Locate in Row (8), At Interval [4,i], Print( Get (tmpTable) )
|
||||
When( var(SIZE) Is Ge? (5) ) {Locate in Row (10), At Interval [5,i], Print( Get (tmpTable) )}
|
||||
When( var(SIZE) Is Ge? (6) ) {Locate in Row (12), At Interval [6,i], Print( Get (tmpTable) )}
|
||||
scrx += 7
|
||||
Next
|
||||
Clear Mark
|
||||
Take( "\BGB\W\ENF","\n\n\t 2 0 4 8 \OFF\n\n",\
|
||||
"Movimiento # ",contador de movimientos,", \INVSCORE=",score,"\OFF\n" )
|
||||
and Print It
|
||||
Return\\
|
||||
|
||||
#context-free print Table structure
|
||||
Locate (1,1)
|
||||
If ( var(SIZE) Is Eq? (4) )
|
||||
Str2Utf8$("┌──────┬──────┬──────┬──────┐\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("└──────┴──────┴──────┴──────┘")
|
||||
Else If( var(SIZE) Is Eq? (5) )
|
||||
Str2Utf8$("┌──────┬──────┬──────┬──────┬──────┐\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("└──────┴──────┴──────┴──────┴──────┘")
|
||||
Else If( var(SIZE) Is Eq? (6) )
|
||||
Str2Utf8$("┌──────┬──────┬──────┬──────┬──────┬──────┐\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("├──────┼──────┼──────┼──────┼──────┼──────┤\n")
|
||||
Str2Utf8$("│ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │ 2048 │\n")
|
||||
Str2Utf8$("└──────┴──────┴──────┴──────┴──────┴──────┘")
|
||||
End If
|
||||
now Print It
|
||||
Return\\
|
||||
|
||||
// definicion de prototipos:
|
||||
#proto MovingRightDown(_X_)
|
||||
#proto MovingLeftUp(_X_)
|
||||
#proto checkPointLeftUp(_X_)
|
||||
#proto checkPointRightDown(_X_)
|
||||
#proto checkMoveRightDown(_X_)
|
||||
#proto checkMoveLeftUp(_X_)
|
||||
|
||||
// definiciones varias:
|
||||
#define KUP 5
|
||||
#define KDOWN 24
|
||||
#define KLEFT 19
|
||||
#define KRIGHT 4
|
||||
#define KESCAPE 27
|
||||
#define MOVEHORZ 1
|
||||
#define MOVEVERT 0
|
||||
|
||||
// archivo de inclusión de macros H-BASIC:
|
||||
#include <hbasic.h>
|
||||
|
||||
Begin
|
||||
Option Ctrl+C
|
||||
Option Stack 16
|
||||
|
||||
contador de movimientos=0
|
||||
score=0, SIZE=4
|
||||
When( ArgCount, Is Eq? (2) ){ get ArgNumber(2,SIZE) }
|
||||
|
||||
If ( var(SIZE) Is Not Between?(4,includ,6,includ) )
|
||||
Print("Usage: hopper 2048.bas [4(default)-6]\n")
|
||||
Stop
|
||||
End If
|
||||
|
||||
Dim (SIZE,SIZE) for Zeros Array (table)
|
||||
|
||||
oldTable=0, show Structure=1
|
||||
/* define initial positions */
|
||||
Token Sep("")
|
||||
select Position of aleatory tail
|
||||
select Position of aleatory tail
|
||||
Cls
|
||||
Hide Cursor
|
||||
show Table
|
||||
c=0, go=1,swFin=1
|
||||
|
||||
/* game! */
|
||||
While ( go )
|
||||
Let ( c:=GetCh )
|
||||
oldTable = table
|
||||
Switch(c)
|
||||
Case(KRIGHT) { _check Move Right Down(MOVEHORZ), Exit }
|
||||
Case(KDOWN) { _check Move Right Down(MOVEVERT), Exit }
|
||||
Case(KLEFT) { _check Move Left Up(MOVEHORZ), Exit }
|
||||
Case(KUP) { _check Move Left Up(MOVEVERT), Exit }
|
||||
Case(KESCAPE){ go=0, swFin=0 }
|
||||
End Switch
|
||||
|
||||
check Winner or Game Over
|
||||
When( go ){
|
||||
If ( are Not EqArray? (oldTable, table) ) //( not( equal tables(oldTable, table) ) )
|
||||
select Position of aleatory tail
|
||||
++contador de movimientos
|
||||
End If
|
||||
show Table
|
||||
}
|
||||
Wend
|
||||
|
||||
If ( swFin )
|
||||
show Table
|
||||
Print(" \LG","YOU WIN!!!\OFF")
|
||||
Else
|
||||
Print(" \LR","GAME OVER\OFF")
|
||||
End If
|
||||
Put a Newl
|
||||
Show Cursor
|
||||
End
|
||||
|
||||
Subrutines
|
||||
|
||||
Moving Right Down(tmpTab)
|
||||
ht=0, sizet=0
|
||||
Let( sizet := var(SIZE) Minus ( Length( Compact(tmpTab), Copy to (ht) ) ) )
|
||||
If ( Is Not Zero?(sizet) )
|
||||
Clear(tmpTab)
|
||||
Dim (sizet) for Zeros Array (tmpTab)
|
||||
Concat( ht,tmpTab )
|
||||
End If
|
||||
Return (tmpTab)
|
||||
|
||||
Moving Left Up(tmpTab)
|
||||
sizet=0
|
||||
Compact( tmpTab ),Clear(tmpTab) and Copy to (tmpTab); get Length It, Subtracted from (SIZE); then Move to (sizet)
|
||||
//When( Is Not Zero?(sizet) ){
|
||||
When( var(sizet) Is Not Zero? ){
|
||||
ht=0
|
||||
Dim (sizet) for Zeros Array (ht)
|
||||
Concat( ht, tmpTab )
|
||||
}
|
||||
Return (tmpTab)
|
||||
|
||||
check Point Right Down(tmpTab)
|
||||
v1=0,v2=0,tScore=0,totScore=0
|
||||
For(k=SIZE, var(k) Is Gt (1), --k)
|
||||
Set Interval [k] and Get (tmpTab); then Move to (v1)
|
||||
Set Interval [ var(k) Minus(1)], Get(tmpTab), and Move to (v2)
|
||||
If( var(v1) Is Eq? (v2) )
|
||||
Add(v1,v2), Copy to(tScore);
|
||||
At Interval [k] Put(tmpTab)
|
||||
At Interval [ var(k) Minus(1) ], now Take(0); then Put (tmpTab)
|
||||
Let( totScore := var(tScore) Plus (totScore) )
|
||||
End If
|
||||
Next
|
||||
Take(tmpTab,totScore) and Return
|
||||
|
||||
check Move Right Down (_DIRECTION_)
|
||||
tmpTab=0
|
||||
For(i=1, while var(i) Is Le (SIZE), ++i)
|
||||
If ( _DIRECTION_ ) // rows or cols??
|
||||
Set Interval [i,1:SIZE] // rows!
|
||||
Else
|
||||
Set Interval [1:SIZE,i] // cols!
|
||||
End If
|
||||
now Let( tmpTab := Get(table) )
|
||||
|
||||
If( Summatory ( tmpTab ) ) // exist numbers in the row??
|
||||
Clear Mark
|
||||
|
||||
Let( tmpTab := _Moving Right Down(tmpTab) ) // move its!
|
||||
Clear Mark
|
||||
Store ( _check Point Right Down(tmpTab) Plus (score), tmpTab, score ) // check score...
|
||||
Clear Mark
|
||||
Let ( tmpTab := _Moving Right Down(tmpTab) ) // move remanents!
|
||||
If( _DIRECTION_ )
|
||||
Set Interval [i,1:SIZE]
|
||||
Else
|
||||
Set Interval [1:SIZE,i]
|
||||
End If
|
||||
Take( tmpTab ), and Put(table)
|
||||
End If
|
||||
Next
|
||||
Clear(tmpTab) and Clear Mark.
|
||||
Return
|
||||
|
||||
check Point Left Up(tmpTab)
|
||||
v1=0,v2=0,tScore=0,totScore=0
|
||||
For(k=1, while var(k) Is Lt (SIZE),++k)
|
||||
At Interval [k] Get (tmpTab), and Move to (v1)
|
||||
At Interval [ var(k) Plus(1) ] Get(tmpTab), and Move to (v2)
|
||||
If( var(v1) Is Eq? (v2) )
|
||||
Add(v1, v2),Copy to (tScore)
|
||||
At Interval [k] Put(tmpTab), At Interval [ var(k) Plus(1)]; then Take(0) and Put(tmpTab)
|
||||
Let( totScore := var(tScore) Plus (totScore) )
|
||||
End If
|
||||
Next
|
||||
Take (tmpTab,totScore)
|
||||
Return
|
||||
|
||||
check Move Left Up(_DIRECTION_)
|
||||
tmpTab=0
|
||||
For(i=1, while var(i) Is Le (SIZE),++i)
|
||||
If( _DIRECTION_ )
|
||||
Set Interval [i,1:SIZE]
|
||||
Else
|
||||
Set Interval [1:SIZE,i]
|
||||
End If
|
||||
now Get(table), and Move to (tmpTab)
|
||||
If( Summatory (tmpTab) ) // exist numbers in the row??
|
||||
Clear Mark
|
||||
Let ( tmpTab := _Moving Left Up(tmpTab) ) // move its!
|
||||
Clear Mark
|
||||
Store ( _check Point Left Up(tmpTab) Plus (score), tmpTab, score ) // check score...
|
||||
|
||||
Clear Mark
|
||||
Let ( tmpTab := _Moving Left Up(tmpTab) ) // move remanents!
|
||||
If( _DIRECTION_ )
|
||||
Set Interval [i,1:SIZE]
|
||||
Else
|
||||
Set Interval [1:SIZE,i]
|
||||
End If
|
||||
now Take (tmpTab), and Put(table)
|
||||
End If
|
||||
Next
|
||||
Clear Mark.
|
||||
Return
|
||||
Loading…
Add table
Add a link
Reference in a new issue