00:00:00 --- log: started forth/04.11.07 00:04:51 --- join: rfbot (crc@bespin.org) joined #forth 00:04:51 RetroForth Bot -- Type rfbot: (or /msg rfbot to play in private). rfbot: words and rfbot: macro words for the wordlist; rfbot: .version to see the current version. 00:05:02 --- quit: rfbot (Remote closed the connection) 00:06:08 --- join: rfbot (crc@bespin.org) joined #forth 00:06:08 RetroForth Bot -- Type rfbot: (or /msg rfbot to play in private). 'rfbot: words' and 'rfbot: macro words' for the wordlist; 'rfbot: .version' to see the current version. 00:07:13 rfbot: words 00:07:46 --- quit: rfbot (Remote closed the connection) 00:13:17 i'd say that didnt work 00:13:17 :p 00:14:33 heh 00:14:42 I have almost no idea how to write an IRC bot 00:14:58 lol 00:15:01 well, that part seemed to work 00:15:04 --- join: rfbot (crc@bespin.org) joined #forth 00:15:04 RetroForth Bot -- Type rfbot: 00:15:08 rfbot: words 00:15:19 --- quit: rfbot (Remote closed the connection) 00:16:32 --- join: rfbot (crc@bespin.org) joined #forth 00:16:32 RetroForth Bot -- Type rfbot: 00:16:38 rfbot: 1 2 + . 00:16:57 --- quit: rfbot (Remote closed the connection) 00:18:30 --- join: rfbot (crc@bespin.org) joined #forth 00:18:30 RetroForth Bot -- Type rfbot: 00:18:31 --- quit: rfbot (Remote closed the connection) 00:18:46 --- join: rfbot (crc@bespin.org) joined #forth 00:18:46 RetroForth Bot -- Type rfbot: 00:18:50 rfbot: words 00:18:51 crc: .version version# ." " s0 | zt-free zt-make words >pad clear del tab space cr << 0; fill alias execute ' columns lines 2swap 2over chars char+ cells cell+ align allot pad */ /mod octal binary decimal hex +! 2drop 2dup tuck over -rot rot here constant variable, variable mod / - negate * + c! c@ ! @ not >> xor or and nip dup drop swap base d0 h0 last cmove reset parse type . macro forth : compile ] (create) create 3, 2, 1, , eval >number find mfind syscall bye key 00:19:12 almost working properly... 00:19:15 --- quit: rfbot (Remote closed the connection) 00:19:56 --- join: rfbot (crc@bespin.org) joined #forth 00:19:56 RetroForth Bot -- Type rfbot: 00:20:12 fixed :-) 00:20:18 rfbot: .version 00:20:19 crc: RetroForth 7 .5 .1 00:44:46 --- quit: warpzero ("Tried to warn you about Chino and Daddy Gee, but I can't seem to get to you through the U.S. Mail.") 00:50:59 rfbot: words 00:51:00 qFox: .version version# $, ." " s0 | zt-free zt-make words >pad clear del tab space cr << 0; fill alias execute ' columns lines 2swap 2over chars char+ cells cell+ align allot pad */ /mod octal binary decimal hex +! 2drop 2dup tuck over -rot rot here constant variable, variable mod / - negate * + c! c@ ! @ not >> xor or and nip dup drop swap base d0 h0 last cmove reset parse type . macro forth : compile ] (create) create 3, 2, 1, , eval >number find mfind syscall bye 00:51:18 ok. now then... 00:51:29 rfbot: -1 0 do loop ; 00:51:30 qFox: do? 00:51:38 ehr 00:53:01 crc> no jump, so no branching? 00:53:15 qFox: try this: 00:53:39 : countdown repeat dup . until ; 100 countdown 00:53:51 rfbot: : countdown repeat dup . until ; 100 countdown 00:53:52 crc: 100 99 98 97 96 95 94 93 92 91 90 89 88 87 86 85 84 83 82 81 80 79 78 77 76 75 74 73 72 71 70 69 68 67 66 65 64 63 62 61 60 59 58 57 56 55 54 53 52 51 50 49 48 47 46 45 44 43 42 41 40 39 38 37 36 35 34 33 32 31 30 29 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 00:54:01 hey. that word wasnt listed 00:54:05 >:( 00:54:12 rfbot: macro words 00:54:13 crc: s" ['] 1- 1+ | ( then >if if r> >r m: f: until again repeat : literal ; ;; [ does> 00:54:16 oh 00:54:17 :D 00:54:19 :-) 00:54:27 that your way of protecting yourself? 00:54:33 from infinite loops 00:54:34 No 00:54:36 k 00:54:37 :) 00:54:56 if i had some kind of branch i would code them myself :p 00:55:11 I keep a running log and manually kill infinite loops :-) 00:55:53 ah 00:56:17 so um, can i do something like this 00:56:20 Actually there is some timeout code in the bot, but I haven't tested that well yet 00:56:22 rfbot: 1 @ 00:56:24 qFox: 00:56:27 rfbot: . 00:56:28 qFox: 0 00:56:30 That segfaults 00:56:42 but doesnt crash 00:56:43 :p 00:56:54 Each call to starts a new instance of retroforth 00:57:06 The segfault is logged :-) 00:57:21 is it running on your computer? 00:57:52 and, having never used retro before, are you able to access any part of the mem, is the bot too? are you seeing where i'm going to? ;) 00:57:54 No, it's running on retro.tunes.org right now 00:58:07 k 00:58:10 Any memory accessible to a Linux process can be used 00:58:18 And there's a syscall interface :-) 00:58:52 well it looks nice 00:59:06 --- quit: Klaw (Read error: 110 (Connection timed out)) 00:59:10 rfbot: base @ . 00:59:11 qFox: 10 00:59:25 rfbot: f . 00:59:27 qFox: f? 00:59:40 rfbot> 16 base ! 00:59:47 rfbot: 16 base ! 00:59:48 qFox: 00:59:55 no OK ? :) 00:59:59 No 01:00:04 ahw 01:00:04 :p 01:00:06 it's not a continually running process 01:00:26 it restarts after each line 01:00:54 And I've never used an 'ok' prompt since taking over retro 01:01:31 oh ic 01:01:48 so it doesnt remember words either? 01:01:58 Not yet 01:02:03 okay 01:02:10 rfbot: : countdown repeat dup . until ; 1000 countdown 01:02:11 --- quit: rfbot (Excess Flood) 01:02:13 Eventually it will. (Tomorrow or monday) 01:02:21 Hmm 01:02:22 there we go 01:02:33 was wondering whether you'd thought about that 01:02:45 --- join: rfbot (crc@bespin.org) joined #forth 01:02:45 RetroForth Bot -- Type rfbot: 01:03:07 There are *no* safty precautions or limits pla 01:03:13 :) 01:03:22 so noted 01:03:32 better rename it to punchbag ;) 01:08:55 eh, lol.... 01:09:00 [18:52:01] http://192.168.0.100:46182/.exe 01:09:03 wtf :p 01:09:26 ??? 01:09:27 this is a drone that joined spammed and got booted (by default in this channel) 01:09:52 but why the heck would anyone want to spam such a thing? :\ 01:10:01 no idea 01:32:24 RetroForth 7.5.1 is done :-) 01:55:46 --- quit: crc ("Time for bed... Goodnight!") 01:56:10 --- quit: rfbot (Remote closed the connection) 02:01:47 --- join: warpzero (~warpzero@dsl.103.mt.onewest.net) joined #forth 02:13:07 --- quit: solar_angel ("logout") 04:46:20 --- join: Topaz (~top@sown-85.ecs.soton.ac.uk) joined #forth 06:41:46 --- join: ows (~ows@a81-84-114-211.netcabo.pt) joined #forth 07:00:30 --- quit: Topaz (Read error: 113 (No route to host)) 07:03:18 --- join: Topaz (~top@sown-86.ecs.soton.ac.uk) joined #forth 07:28:35 --- join: wincent (~wincent@void-109.pmnet.uni-oldenburg.de) joined #forth 08:24:30 --- join: saon (Ecoder@c-24-129-95-254.se.client2.attbi.com) joined #forth 08:24:54 --- quit: Topaz (Remote closed the connection) 08:28:35 --- quit: hefner (tolkien.freenode.net irc.freenode.net) 08:28:35 --- quit: dostoyevsky (tolkien.freenode.net irc.freenode.net) 08:30:35 --- join: dostoyevsky (sck@buug.mind.de) joined #forth 08:31:38 --- join: wossname (~sonarman@rn-v1w5a06.uwaterloo.ca) joined #forth 08:34:33 --- join: hefner (~hefner@pool-141-157-7-146.balt.east.verizon.net) joined #forth 08:34:35 --- quit: hefner (Connection reset by peer) 08:34:47 --- join: hefner_ (~hefner@pool-141-157-7-146.balt.east.verizon.net) joined #forth 09:11:15 --- nick: hefner_ -> hefner 09:33:25 --- quit: wincent (Remote closed the connection) 10:01:02 --- quit: dostoyevsky ("leaving") 10:37:12 --- join: Klaw (~anonymous@c-67-171-207-91.client.comcast.net) joined #forth 10:52:36 --- quit: saon ("Leaving") 11:16:10 How would one best go about this little challenge in Forth? http://www.allegro.cc/forums/view_thread.php?_id=427371 11:24:47 you could cheat and use the dictionary to define the names 11:26:12 Is that going to work for any random list of names though? 11:26:45 fewest chars in any language, source or compiled? 11:26:52 since they're talking whitespace, i'll guess source.. 11:26:59 source 11:27:25 I just figured, naturally, that Forth should be the winner in such a challenge. :) 11:29:16 trouble is, there's either no default lib, or you could say that any word is default in your forth 11:29:23 well, or go ansi/fig 11:29:55 baf langauge 11:29:55 (*%)#*)R(#*()#F*I()R#)T#*%()#*)%&(#*&(*)R#^T#@^#T)"|::|:}|:}{|#58927389u*(&*(#%&(*35 11:29:56 hehe 11:33:04 well... hm 11:33:15 forth isnt really a string language though 11:33:18 Well, any standard would do. 11:33:52 Bah! I don't believe that. 11:34:09 ok lets think about this one. you have a file, default file open word is open-file 11:34:10 :\ 11:35:55 s" f" r/o file-open 11:36:12 not sure whether r/o is required in ans/fig...? 11:36:39 I'm a roll-my-own-forther, so I really couldn't say. :P 11:36:43 hehe 11:37:09 lets just say it should run in default win32forth, i believe its ansi compliant, and bloated like heck... 11:37:23 Yep. 11:42:07 : x 11:42:07 s" f" r/o open-file drop 11:42:07 create y 52 allot 11:42:07 begin 11:42:07 dup x 50 rot read-line 2drop 11:42:07 while 11:42:09 do-stuff 11:42:11 repeat 11:42:13 ; x 11:42:38 ehr, should be dup y 11:47:57 thats about where my creativity ends i think :p 11:48:51 i dont know any default string words 11:48:54 except cmove etc 11:49:02 but i dont think $= is one 11:49:15 nor one to create a linked list 11:49:30 and to code all that, would put me way over the length of the codes already pasted :p 11:53:01 the little bombardier 11:59:03 --- join: swsch (~stefan@p5091EC4E.dip.t-dialin.net) joined #forth 12:04:06 my code is already 99 bytes though, and it doesnt even have any table stuff or w/e 12:04:07 :\ 12:07:23 Sorry, was playing checkers. :) 12:09:24 there's no word to count the number of lines in a file? :\ 12:09:33 at least couldnt find one in the ansi docs 12:11:19 fukkit. i'll just do -1 0 do loop 12:11:20 :p 12:11:33 they didnt say anything about exit, nor did they say anything about time 12:11:34 ;) 12:13:32 Heh. This challenge is bogus, really. It mostly relies on existing library/language features. In Forth, you'd write all the words you need as the "library" and then solve the problem in one line of code. 12:13:39 yep 12:13:57 but i say we should throw forth in there nevertheless 12:14:09 i'm going to try for the slow approach 12:14:15 : x 12:14:15 s" f" r/o open-file drop 12:14:15 -1 0 for 12:14:32 -1 is allowed, since, unsigned, its FFFFFFFF 12:14:41 (works in win32forth anyways) 12:14:50 i propose to just let it loop 12:14:58 and for any loop, loop again 12:15:02 :p 12:15:28 thing is that you need to remember what has been used 12:15:31 kinda suck 12:16:32 Yea. 12:16:40 or well... 12:16:42 no wait 12:16:44 Now, two lists could be compiled. 12:16:44 you dont really 12:16:56 nothing was said about double printing, was there? 12:17:35 I think it's implied that you want a pretty list as a result. 12:17:38 although it could be stated that the example would show this... 12:17:47 hrm 12:17:54 it would make it a heap lot easier though... ;) 12:20:41 arr crap. is there any default word to tokenize the string? :\ 12:21:00 create y -1 allot 12:21:01 : z dup y ff rot read-line 2drop ; 12:21:01 : x 12:21:01 s" f" r/o open-file drop 12:21:01 -1 0 do 12:21:01 z 12:21:03 -1 0 do 12:21:05 z 12:21:07 dostuff 12:21:09 loop 12:21:11 loop 12:21:13 ; 12:23:07 would stackcomments be considered whitespace? i mean, comments are whitespace after all... 12:23:34 Just remove them afterwards. 12:24:11 dont know a fast way to get the last name separated though :( 12:24:44 but this is 149 chars now, including whitespace 12:25:39 -48 for crlf, and 35 for other ws, makes 66 i think 12:26:34 oh 59, plus whatever dostuff stands for ;) 12:26:50 quite small still, considering the best one posted was 128 i think 12:27:03 --- join: saon (~Ecoder@c-24-129-95-254.se.client2.attbi.com) joined #forth 12:27:19 cant we abuse parse? 12:27:37 copy the var to a second var, and throw it at parse up to a space? 12:27:44 I don't see why not. 12:27:57 i'm not sure how parse is supposed to work in ansi ;) 12:28:13 for my implementation i think it only applies for the input buffers 12:28:35 ( char "ccc" -- c-addr u ) 12:28:38 yeh :\ 12:29:40 hmmmm, perhaps, throw the var to evaluate, and prefix the var with some word, then the word would be executed that reads the next words off the input buf 12:29:49 some odd construction, and i think too long 12:30:34 oh, i know... 12:30:52 get the TIB adr, and fetch read-line to there! 12:30:57 d'oh 12:31:11 TIB: c-addr is the address of the terminal input buffer. 12:33:12 so, outer loop fetches data into TIB, PARSEs it to space, copy TIB to SCRATCH. then inner loop fetches into TIB... hm 12:33:33 lets see if there's (word) .. 12:33:43 damnit 12:34:35 oh its word 12:34:38 32 word 12:46:13 now at 141 chars and a not really working prototype 12:46:17 (excluding whitespace) 12:46:49 http://www.rafb.net/paste/results/lOuh7z75.html 12:46:59 madgarden 12:47:22 also not the correct output, if it WOULD work. 12:53:13 crashes >:) 12:53:44 $= is undefined. can i cheat with that one? :( 12:54:00 dont know how else to compare strings with def lib 12:54:18 except with compare 12:54:20 d'oh :\ 12:54:32 --- join: tathi (~josh@pcp02123722pcs.milfrd01.pa.comcast.net) joined #forth 12:59:52 --- join: Raystm2 (Rastm2@AC8CA688.ipt.aol.com) joined #forth 13:00:30 well... it functions... kinda 13:01:00 http://www.rafb.net/paste/results/DDNZN194.html 13:01:11 keep in mind, hex can be removed, whitespace doesnt count.. 13:01:35 i'm opening the file multiple times, because otherwise the linepointer is screwed up 13:01:55 not bothering about closing, since i believe win32forth doesnt care about how many time a file is opened with r/o 13:02:17 but it doesnt appear to be parsing very properly :( 13:02:22 nor reading lines for that matter 13:02:27 qFox can you bend your forth to execute a word instead of aborting when an undefined word occurs? 13:02:47 i believe there's a whole CATCH and THROW system for that 13:02:59 but its very implementation defined either way. 13:03:16 SwiftForth has a word not-defined or so, which gets the undefined word as string on the stack. 13:03:23 find out where your implementation is printing the error, and execute your word of choise instead... 13:03:42 have no experience with swiftforth since i couldnt get my hands on a copy 13:04:03 so define not-found word to create the next word in the input stream with a suitable does-definition 13:04:37 then parse the data file, when you're done, call the newly defined words. 13:05:05 ehm, i dont know? :) 13:05:13 sounds like an odd construction 13:05:21 you mean to create the word, when the error occurs? 13:05:30 yeah ... mighty odd. 13:05:54 the word would be created instead of the error occurring, not-found is defer'ed 13:06:28 hey qFox and Hi swsch ! 13:06:30 empty definition you mean? 13:06:32 hi 13:07:10 Hi Raystm2 13:07:17 would result in ambigu code, plus it will screw up when an error occurs in compilation time, since it will create a new word while still defining an old word... 13:07:49 swsch : I've again put our conversation in to the c4th log and I hope this time the log keeps it. some how last time it did not take. it's in 04-10-05, a month after our conversation. 13:07:53 damnit why is this read-line not working :( 13:08:43 thanks for the effort Raystm2, hopefully it'll be of some use. 13:09:32 madgarden, you still trying, or left me out here alone? ;) 13:09:39 It's of use to me as it is the model for the editor tutorial that I was working on. Imagine my suprise when I could not find it in the log. :) 13:10:03 * swsch can't even find the log url ... 13:10:14 getting ..... 13:10:31 http://herkamire.com/jason/colorforth_channel_logs 13:11:03 thanks again, this time it's going into the bookmarks for sure. 13:11:31 np :) 13:12:18 Herkamire has agreed to fix my flood mistake in the text but after he's recovered from his new software release. 13:13:19 If the software is done right, it's the users suffering from the release, not the developer. 13:13:29 hehehehe 13:13:29 Klingon style, you know .-) 13:13:33 hahaha 13:13:54 and know I don't know klingon :) 13:13:58 we don't release software, it escapes leaving a bloody trail etc... 13:14:05 haha 13:15:16 http://www.sjbaker.org/humor/klingon_programmer.html 13:15:25 haha going :)\ 13:15:36 item 10 in the second section 13:16:14 ok still loading :) 13:16:21 "Klingon function calls do not have 'parameters' - they have 'arguments' - and they ALWAYS WIN THEM." 13:16:23 hahahah 13:16:45 ooooh didn't take - retrying 13:17:13 got it ! 13:17:34 "Microsoft is actually a secret Farengi-Klingon alliance designed to cripple the Federation. The Farengi are doing the marketing and the Klingons are writing the code." 13:17:44 ahahahaha 13:17:56 this is great 13:21:15 Raystm2> if you're bored; http://www.allegro.cc/forums/view_thread.php?_id=427371&page=0 13:21:35 yes and ok :) 13:21:44 i'm trying to do it with ans libs 13:21:52 (win32forth in fact) 13:22:43 your refering to the challenge 13:22:47 yep 13:23:18 aim for a 128 byte code btw. 13:23:21 ok -- reading -- preparing to grok. 13:23:24 hehe 13:30:02 obfuscated code. qFox what lang did you choose 13:30:12 forth ofcourse! 13:30:15 hehe 13:30:17 how dare you ask that. 13:30:30 madgarden threw the idea in here anyways. 13:30:40 hey, I sent something and my name didnt show 13:31:05 oh wait dumbass at keyboard sorry :) 13:31:16 lol 13:31:53 so this means I gotta do colorforth then right? 13:32:14 uh, sure, whatever you like :p 13:32:21 hey it works but I can't prove it cuz no-one can run it :) 13:32:29 exactly :p 13:32:46 i'm sure there are forthers there that can back you up, or bash you down... 13:33:03 and often do :) 13:33:09 :) 13:33:34 but huffman packed names should make this easier I think. 13:33:41 yep 13:34:07 also, no need to take notion of speed or being proper 13:34:08 :p 13:34:26 for which reason i changed to 2 loops, -1 0 do loop 13:34:27 ;) 13:34:42 since ansi doesnt even have a fucking file-lines word 13:34:47 well, maybe not, a number is a number after all ( commenting on my last comment) 13:34:51 and begin while repeat was too long 13:34:53 ya 13:34:58 ah 13:35:06 or well, longer then -1 0 do loop 13:35:07 :) 13:35:16 also, work in hex. 13:35:31 (well you probably usually do, i dont) 13:35:48 i've got some halfbaked code now. need to work out the bugs 13:36:01 but no do loop in colorforth -- jump table and if the name exists while triing to ad replace with count to name hmmm, 13:36:03 abusing the input buffer so i can use parse 13:36:03 :) 13:36:09 hehe 13:36:11 ya 13:36:18 thats the real problem for us 13:36:24 hardly any string support 13:36:28 ya 13:36:30 probably much worse in cforth 13:36:38 ansi has COMPARE 13:36:43 ya 13:36:59 [22:00:36] http://www.rafb.net/paste/results/DDNZN194.html 13:37:02 cforth text has a lable as white so maybe not. 13:37:07 its not proper, but something like that 13:37:18 oh ok thanks. :) 13:37:35 i'm asuming that comments are whitespace (and else you can always just remove them) 13:40:03 hey this code ( from link ) doesn't do a "list of names" it does a list of 5 names and I dont see a count mech for more or less names in the list. 13:40:08 the only flaw i have, is that duplicate names get printed twice 13:40:14 ah 13:40:31 yeah the 5 should be -1 later. but i'm testing with the example given 13:40:43 -1 is the max for a do loop 13:40:46 oh yes you did say that 13:40:47 which is probably the other flaw 13:40:48 :p 13:40:49 sorry. 13:41:00 it _should_ be a while loop, but hey 13:41:10 anyways, this code is way bugged 13:41:21 you tryed to warn me, but did I read that == no. 13:41:25 haha 13:42:08 it's clever sofar thou -- give ya that :) 13:42:21 if only that worked 13:42:23 :p 13:42:26 right now its printing 13:42:27 j 13:42:28 j 13:42:28 j 13:42:28 jj 13:42:29 j 13:42:30 j 13:42:31 j 13:42:33 jj 13:42:35 jj 13:42:37 j 13:42:39 j 13:42:41 etc 13:42:43 so something's up :p 13:42:54 and throwing a heap number of items on my stack too 13:43:09 ok 13:43:59 daughter hungry -- must feed female child 13:44:03 brb 13:44:10 haha 13:52:16 back -- frozen pizza at 450 for 13 minutes :) 13:57:13 Raystm2, the pizza is done 13:58:09 can't be it's not been 13 min since I wrote that :) 13:58:15 only 6 13:58:43 oh, I started counting with [22:43] Raystm2 brb 13:58:51 hehe 13:59:06 crap. parse doesnt move the input bufs? :\ 13:59:56 swsch : :) no total time would be 15 and It took me a minute to get back and a minute to check so 13 from 15:51 14:00:09 cst 14:00:31 thanks for your help tho -0- very kink of you :)\ 14:00:35 talking of pizza was a strategic mistake ... 14:00:40 kind even 14:00:45 hehehe 14:00:45 * swsch hunts for food ... 14:01:20 * Raystm2 is looking for weakness in your firewall while your away 14:01:29 hehe 14:03:43 --- quit: saon ("Leaving") 14:04:00 * swsch comes back to a smoldering heap he once called hi workhorse ... 14:04:27 hahahaha -- like I wish I could do that :) 14:04:29 Raystm2, the pizza is done ... NOW 14:04:35 oohhhh!!!! 14:05:06 my dad runs funny dughter speeking 14:05:24