↑ UP | Function try_moves |
∇ Progress←State try_moves Moves;S0;SM [1] ⍝ [2] ⍝⍝ perform Moves and see if they place more sub-cubes [3] ⍝ [4] S0←(get_level State)[4] ◊ State←State do_moves Moves [5] SM←(get_level State)[4] ◊ Progress←S0<SM ⍝ 1 = progress, 0 = no progress ∇ |