Alex,
I'm not sure when random changed, but as it is currently defined, you can
simplify random-tetromino a bit. Current definition:
: random-tetromino ( -- tetromino )
tetrominoes get dup length random swap nth ;
Alternate:
: random-tetromino ( -- tetromino ) tetrominoes get random ;
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
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
