Hi, Regarding style, there's a "time" word in tools.time that takes a quotation and runs it. It performs gc before calling the quotation and prints out the time and various stats about gc. You can also press CTRL+T in the ui listener to call it. It should remove the need to write words like start-timer and display-time. If you don't want all the formatting, there's also the "benchmark" word that only leaves the time on the stack.
Regarding performance, I just tried changing "/" to "/f" and "/i" but it doesn't help. If you don't need fractions you should not be using / with integers anyway. @Slava : the test file is in the first mail (third linked file) On Mon, Oct 19, 2009 at 9:44 AM, Slava Pestov <[email protected]> wrote: > Hi Hugh, > > Your program looks for a file named > > "C:\\Users\\hugh\\Desktop\\Factor\\factor\\work\\LC53\\test.txt" > > Can you send me such a test file? > > Slava > > On Sun, Oct 18, 2009 at 7:35 PM, Hugh Aguilar <[email protected]> > wrote: >> I wrote a program to crack a linear-congruential (LC) encryption system. The >> system is called LC53 (my invention), and it uses these constants: >> >> unity = 2^32-5 >> mult = 2^32-333333333 >> >> LC encryption is fairly easy to crack, so nobody uses it in practice, but it >> makes for a good test of a language in regard to integer arithmetic and >> recursion. Before I put this benchmark in my book, I hope that you guys will >> look over the Factor version with an eye toward improving the speed >> (primarily) and the style (secondarily). >> >> If you want to port the program over to another language (especially C and >> Java), I would appreciate that too. In the Forth program, I have a >> compiler-directive called SwiftForth? that, if set true, will compile an >> assembly-language version of the program. This is written using the >> SwiftForth assembler, so it will only compile under SwiftForth. When >> SwiftForth? is set false, the program will compile under any 32-bit >> ANS-Forth system (I used SwiftForth for the benchmark given below). >> >> The good news is that Factor came out about an order of magnitude faster >> than I expected. That really speaks well of Slava and the others who have >> worked on the optimizer in the Factor compiler. These are the times (on my >> laptop): >> >> Factor ------------- 12 minutes and 11 seconds >> Forth --------------- 2 minutes and 23 seconds >> assembly language ---------------- 17 seconds >> >> This is the Factor program: www.rosycrew.com/LC53.factor >> This is the Forth program: www.rosycrew.com/LC53.4th >> This is the test file: www.rosycrew.com/test.txt >> >> >> ------------------------------------------------------------------------------ >> Come build with us! The BlackBerry(R) Developer Conference in SF, CA >> is the only developer event you need to attend this year. Jumpstart your >> developing skills, take BlackBerry mobile applications to market and stay >> ahead of the curve. Join us from November 9 - 12, 2009. Register now! >> http://p.sf.net/sfu/devconference >> _______________________________________________ >> Factor-talk mailing list >> [email protected] >> https://lists.sourceforge.net/lists/listinfo/factor-talk >> > > ------------------------------------------------------------------------------ > Come build with us! The BlackBerry(R) Developer Conference in SF, CA > is the only developer event you need to attend this year. Jumpstart your > developing skills, take BlackBerry mobile applications to market and stay > ahead of the curve. Join us from November 9 - 12, 2009. Register now! > http://p.sf.net/sfu/devconference > _______________________________________________ > Factor-talk mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/factor-talk > -- Jon Harper ------------------------------------------------------------------------------ Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference _______________________________________________ Factor-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/factor-talk
