2048: Difference between revisions

=={{header|Perl 6}}==

Uses termios to set the terminal options, so only compatible with POSIX terminals. This version does not include a specific "win" or "lose" condition. (though it would be trivial to add them.) You can continue to play this even after getting a 2048 tile; and if there is no valid move you can make, you can't do anything but quit.

<lang perl6>use Term::termios;

 

sub combine ($v is rw, $w is rw) { $v += $w; $w = ''; $score += $v; }

 

map { @board[*;$_] = squash @board[*;$_] }, ^n;

}

 

map { @board[*;$_] = reverse squash reverse @board[*;$_] }, ^n;

}

 

map { @board[$_] = squash @board[$_] }, ^n;

}

 

}