Thanks Ed, I've made all the changes you suggested and pushed them to
http://wrunt.net/repos. The only change players of tetris will see is that
'd' and 'e' rotate left, and 'f' and 'u' rotate right ('e' and 'u' are the
dvorak equivalents of 'd' and 'f').
Alex
On 2/10/07, Eduardo Cavazos <[EMAIL PROTECTED]> wrote:
Alex,
: rows-score ( level n -- score )
{
{ [ dup 0 = ] [ drop 0 ] }
{ [ dup 1 = ] [ drop 40 ] }
{ [ dup 2 = ] [ drop 100 ] }
{ [ dup 3 = ] [ drop 300 ] }
{ [ dup 4 = ] [ drop 1200 ] }
{ [ t ] [ "how did you clear that many rows?" throw ] }
} cond swap 1+ * ;
rows-score can be a little bit simpler with the new case word:
: rows-score ( level n -- score )
{ { 0 [ 0 ] }
{ 1 [ 40 ] }
{ 2 [ 100 ] }
{ 3 [ 300 ] }
{ 4 [ 1200 ] }
} case swap 1+ * ;
Ed
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job
easier.
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
