00:00:00 --- log: started forth/06.03.23 00:09:09 --- quit: JasonWoof ("off to bed") 00:14:33 --- join: ecraven (n=nex@ns.AHL.Uni-Linz.AC.AT) joined #forth 00:16:22 morning :) 00:29:29 --- join: amca (n=plump@as-bri-4-1-8.ozonline.com.au) joined #forth 01:03:45 --- quit: ecraven ("bbl") 03:24:44 --- quit: GoHst10 (Remote closed the connection) 03:33:06 --- join: tathi (n=josh@pdpc/supporter/bronze/tathi) joined #forth 03:35:38 --- join: neceve (n=Clau@unaffiliated/neceve) joined #forth 04:08:27 --- part: amca left #forth 05:04:45 --- quit: tathi ("leaving") 05:25:54 --- join: PoppaVic (n=pete@0-1pool75-174.nas24.chicago4.il.us.da.qwest.net) joined #forth 05:43:39 --- quit: Brie (Remote closed the connection) 05:56:20 --- quit: uiuiuiu ("Changing server") 05:58:50 --- join: rehges (n=segher@blueice2n1.de.ibm.com) joined #forth 06:02:45 --- join: uiuiuiu (i=ian@dslb-084-056-229-170.pools.arcor-ip.net) joined #forth 06:03:33 --- quit: uiuiuiu (Client Quit) 06:05:56 --- join: uiuiuiu (i=ian@dslb-084-056-229-170.pools.arcor-ip.net) joined #forth 06:06:20 --- join: madwork (n=foo@derby.metrics.com) joined #forth 06:18:15 --- join: virl (n=virl@62.178.85.149) joined #forth 06:18:35 hi 06:19:15 mornin' 06:25:05 --- join: JasonWoof (n=jason@pdpc/supporter/student/Herkamire) joined #forth 06:25:05 --- mode: ChanServ set +o JasonWoof 06:36:28 --- join: tathi (n=josh@pdpc/supporter/bronze/tathi) joined #forth 06:47:22 --- join: Cheery (i=Henri@a81-197-45-47.elisa-laajakaista.fi) joined #forth 06:51:12 --- join: thinkinginbinary (n=tom@phoenix.thomastuttle.mooo.com) joined #forth 06:51:15 Quartus: hey 07:04:31 Hey. 07:05:17 My laptop is breaking :-\ 07:05:47 A 5-year-old pushed it off my bed (long story) and cracked the hinge. It was a small crack for a while but this last week the hinge on the right finally separated from the bottom half of the case. I'm screwed. 07:08:28 Epoxy? 07:08:44 a 5 year old? your son? 07:09:23 virl: no, i'm only 17. 07:09:51 oh.. 07:10:23 --- join: ravenEx (i=ravenEx@87.252.224.125) joined #forth 07:10:29 virl: A friend of my parents have the 5-year-old kid. I was happily hiding in my bedroom, being antisocial and coding stuff, when he wanders in and climbs on the bed (I'm on the top of a bunk bed, ~5 ft to floor). I got off for a second to pick something up off the bed and he knocked it off the side. I'm frankly surprised the LCD wasn't cracked. 07:10:45 Perhaps you can JB Weld it. 07:11:35 Quartus: I can't really get it back into the previous shape. The hinge is about 1/8" separated, and something is jamming it up like that. 07:11:55 JB Weld can fill gaps. 07:12:22 thinkinginbinary, what are you currently doing? 07:12:52 virl: pouting and waiting for it to fall apart, and waiting to bring it to the store i got it at to see if they'll just laugh at me or if they have any ideas on how i can fix it. 07:12:58 Another really, really outstanding glue - if CA, epoxy or JB fail is (stupid name) "Gorilla Glue". So far, it's the ONLY glue I was able to use on a cold-weather project. 07:13:25 Gorilla glue is primarily suited for porous surfaces. 07:15:19 I had to glue a set of high-power magnets to a cat-door of injected plastic that was almost freezing, and in a cold room. It's held about 16 weeks so far - where all alternatives wanted to hold less than a day. 07:16:12 --- quit: thinkinginbinary (niven.freenode.net irc.freenode.net) 07:16:50 well, it worked beautifully on that idiotic plastic.. Sorta' like JB stuff will work on lousy potmetal. 07:41:21 --- join: thinkinginbinary (n=tom@phoenix.thomastuttle.mooo.com) joined #forth 07:41:29 Quartus: hey, sorry, ipv6 problems. 07:59:33 Hey. 08:03:40 --- quit: PoppaVic ("brb - recycling") 08:05:44 --- join: PoppaVic (n=pete@0-3pool157-114.nas22.chicago4.il.us.da.qwest.net) joined #forth 08:14:42 --- join: ecraven (n=nex@ns.AHL.Uni-Linz.AC.AT) joined #forth 08:14:55 hey all 08:15:10 virl: do you know anyone apart from Anton Ertl who does stack machines in austria? 08:15:43 ehm, sadly no. 08:15:56 ecraven: I have the manual for Patriot's IGNITE chip, if you're interested. 08:16:03 tathi: yes, very much :) 08:16:20 ok, just a minute then 08:16:26 thanks a lot! 08:17:03 is ignite a forth chip? 08:17:31 http://qualdan.com/misc/IGNITE_Processor_Reference_Manual.pdf 08:17:35 virl: yes. 08:17:49 much less minimal than Chuck's designs, of course :) 08:19:00 http://www.ptsc.com/ is the company, IIRC. 08:20:04 ah.. a modern version of shboom 08:20:25 but where do you get it? 08:21:14 last I checked they would sell you chips in small quantities. 08:21:24 US $17 each 08:21:54 they don't have much info on their web site, but they respond to e-mail fairly well 08:22:15 thanks very much, got it! 08:22:19 "I'd like to have a credit card..." 08:22:58 ecraven: I was also refactoring some of my forth code recently, and came up with some interesting stuff about stack ordering. 08:23:22 My experience so far is that, if a word uses a parameter more than once, the order doesn't make much difference 08:23:53 Of course, if you only need it once, it's nice if you can have it in the right place already. 08:25:04 tathi: i was trying to come up with a general algorithm over the last few days, not much success yet :) it's hard enough to compile scheme to forth anyway, even without optimisation :( 08:25:27 ah. 08:28:02 i have to clear the stack before returning any values from a function, keep the right values for all branches of an IF etc.. not as easy as i'd thought :( 08:28:22 I wondered about that 08:28:36 I've never tried it myself, but it seemed like a tricky problem 08:31:21 well, can't be too hard without optimisations 08:36:02 scheme is semantically quite close to the stack model anyway.. 08:44:48 "clearing the stack" gave me a huge grin ;-) 08:45:41 hehe, i'm not good at forth lingo yet :) 08:45:41 anyway, thanks for the ideas tathi, see you all later! 08:45:41 --- quit: ecraven ("bbl") 08:54:45 --- quit: madwork (Read error: 110 (Connection timed out)) 09:15:57 --- join: madwork (n=foo@derby.metrics.com) joined #forth 09:42:37 Quartus: I'm hoping I can hold this broken-ish laptop together long enough to let the new dual-core CPU's and the accompanying chipsets and wireless cards drop in price enough that they're affordable. I wasn't planning on replacing this for another year and a half. 09:44:44 anybody here who ever implemented the sieve of erasthostenes in Forth? 09:45:52 pass 09:47:40 pass? 09:48:21 yeah, no idea of the issues 09:49:02 issue: dynamically allocating memory 09:49:42 ahhh, forth doesn't like it... anyway, I gotta' let #2 son run the net... back tomorrow 09:49:49 --- quit: PoppaVic ("Pulls the pin...") 09:50:43 yep, it doesn't like it 10:20:30 --- quit: thinkinginbinary ("leaving") 11:11:29 --- join: Lars_G (n=lars@unaffiliated/lars-g/x-000001) joined #forth 11:29:25 http://mysite.verizon.net/murphywong/01234th.htm#sieve 11:32:25 quite complex 11:35:17 about 32 lines of code 11:36:40 well, gforth doesn't like the code 11:43:06 what doesn't it like? under+ ? 11:45:15 well, it doesn't like very much of it 11:45:26 shows us the errors 11:45:33 most of it looks just fine 11:45:54 huge fat over-complicated, but fine 11:47:44 well, the program isn't only 32 lines long 11:48:03 it had dependencies... 11:48:10 so paste those few in 11:48:53 those few.. 11:49:44 only SQUARED even i think 11:52:00 squared and all previous code which deals with primes 11:53:25 oh, .PRIME -- what else? 11:53:50 pull in too much, and you only get more dependencies, heh 12:03:00 --- quit: rehges () 12:22:36 --- quit: virl (Read error: 104 (Connection reset by peer)) 12:25:40 There's always siev.fs, it comes with gforth. 12:33:23 how many lines is the forth version? 12:33:57 how many lines is the factor version? :) 12:36:06 100 sieve . 12:36:06 V{ 12:36:06 1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 12:36:06 73 79 83 89 97 12:36:07 } 12:36:10 is this correct? 12:37:35 well its 3 lines 12:37:37 : multiple? 2dup number= [ 2drop f ] [ swap mod zero? ] if ; 12:37:37 : (sieve) ( n seq -- seq ) [ swap multiple? not ] subset-with ; 12:37:37 : sieve ( n -- seq ) dup sqrt >bignum [ 2 + (sieve) ] each ; 12:38:10 looks about right 12:38:26 now in forth, you don't have "each" and "subset" :) 12:38:33 heh 12:41:17 gforth's siev.fs...looks like it's about 10 lines of code 12:41:24 sounds about right 12:41:41 a few words to do bit fiddling, then something to set up a bit array and loop? 12:41:49 this is how i'd do it 12:42:01 byte array actually 12:42:14 and...I'm not sure it works 12:43:40 i get the impression that gforth is bitrotting 12:44:02 --- join: virl (n=virl@chello062178085149.1.12.vie.surfer.at) joined #forth 12:44:26 virl: did you implement the sieve of erasthostenes? 12:44:50 yeah, me too 12:45:13 I began with it to implement it, so no. 12:45:26 virl: its 3 lines in factor 12:46:27 so show me 12:47:08 how ironically 12:47:24 http://paste.lisp.org/display/18212 12:48:21 oh, it does work. the array only holds odd numbers, and I didn't realize that at first. 12:54:07 Turns out there are very few even primes. :) 12:55:16 depends on which field you're looking for integers in... 12:55:18 :) 12:57:27 a much more interesting problem is finding primes in the set of numbers a+b*sqrt(d), where a and b are integers 13:05:44 --- part: Lars_G left #forth 13:08:43 well. slavas code has some problems, something it doesn't like 13:09:19 perhaps the interpreter doesn't like zero? 13:10:16 try this one: 13:10:17 : multiple? 2dup number= [ 2drop f ] [ mod zero? ] if ; 13:10:17 : (sieve) ( n seq -- seq ) [ swap multiple? not ] subset-with ; 13:10:17 : sieve ( n -- seq ) dup sqrt >bignum [ 2 + swap (sieve) ] each ; 13:10:41 i pastebinned something i had in the clipboard, not the correct version, i realized 13:11:24 upsi, doesn't like too 13:11:29 what is the error? 13:11:37 30 sieve . 13:11:37 V{ 1 2 3 5 7 11 13 17 19 23 29 } 13:11:41 Parsing :1 13:11:42 : multiple? 2dup number= [ 2drop f ] [ mod zero? ] if ; 13:11:42 ^ 13:11:42 Not a number 13:11:50 which version of factor are you using? 13:11:59 type version . 13:14:30 if its an old release, just define : zero? 0 number= ; 13:14:36 well, it was 0.79 13:14:43 on 0.80 it works 13:15:06 well, how could I find out how long it takes for it to run it? 13:15:22 there was 'time' or something like that it factor 13:18:31 yup 13:18:34 [ 2 2 + . ] time 14:11:52 --- join: GoHst10 (i=WINNT@12-208-98-237.client.insightBB.com) joined #forth 14:27:38 --- quit: Cheery ("Leaving") 14:39:40 --- quit: ravenEx ("IGNORANCE IS STRENGTH") 14:54:25 --- quit: virl ("Verlassend") 15:48:34 --- join: snoopy_1711 (i=snoopy_1@84.58.148.56) joined #forth 15:56:46 --- quit: Snoopy42 (Read error: 145 (Connection timed out)) 15:57:03 --- nick: snoopy_1711 -> Snoopy42 16:00:49 --- quit: neceve ("Bye people, I'm leaving") 17:21:39 --- join: segher__ (n=segher@dslb-084-056-146-191.pools.arcor-ip.net) joined #forth 17:28:25 --- quit: uiuiuiu (Remote closed the connection) 17:28:28 --- join: uiuiuiu (i=ian@dslb-084-056-233-038.pools.arcor-ip.net) joined #forth 17:32:47 --- quit: segher_ (Read error: 110 (Connection timed out)) 19:19:03 --- join: nballen (n=nballen@adsl-69-109-11-176.dsl.renocs.pacbell.net) joined #forth 20:55:56 --- join: rabbitwhite (n=trip_n_s@pool-151-196-183-237.balt.east.verizon.net) joined #forth 21:25:14 --- quit: rabbitwhite (Read error: 104 (Connection reset by peer)) 21:26:35 --- join: rabbitwhite (n=trip_n_s@pool-151-196-183-237.balt.east.verizon.net) joined #forth 21:50:35 --- quit: rabbitwhite (Read error: 104 (Connection reset by peer)) 21:50:55 --- join: rabbitwhite (n=trip_n_s@pool-151-196-183-237.balt.east.verizon.net) joined #forth 21:53:10 --- part: nballen left #forth 22:41:30 --- quit: rabbitwhite () 23:39:51 hi 23:59:59 --- log: ended forth/06.03.23