00:00:00 --- log: started retro/13.01.22
00:07:20 * impomatic is entering Al's programming contest http://azspcs.net/Contest/Factorials
00:36:17 <tangentstorm> impomatic : interesting puzzle. it doesn't seem like it should be hard enough to warrant a prize though... ?
00:41:41 <tangentstorm> hmm. okay, i see why it's hard: any simple solution takes an incredibly long time
00:49:37 <impomatic> I'm in about 20th place and I haven't written a program yet.  Just generated a few by hand :-)
00:50:08 <impomatic> Annoying thing is, 32 bit math isn't sufficient
01:13:28 <tangentstorm> 2**144 > math.factorial( 37 )
01:14:54 <tangentstorm> rather, 2**143 < math.factorial( 37 )
01:18:46 * tangentstorm doesn't know how to implement factorial in retro yet :/
01:20:14 <tangentstorm> : <factorial> dup 1 = if; dup 1- <factorial> * ;
01:20:16 <tangentstorm> : factorial dup 0 = [ 1+ ] [ <factorial> ] if ;
01:20:32 <tangentstorm> examples/rosetta_code/factorial.rx :) 
01:22:05 <tangentstorm> but yeah... 32 or even 64 bit cells won't hold 37!
09:55:01 --- join: ncv (~quassel@unaffiliated/neceve) joined #retro
13:15:26 <crc> in parable, for #37 factorial I get: #1.3763753091226343e+43
13:20:17 <tangentstorm> hey! floating point. nice.
13:21:48 <crc> https://gist.github.com/4598534 for the code
13:36:38 --- quit: ncv (Remote host closed the connection)
15:05:26 <tangentstorm> crc: my "UGH" link from yesterday was my first attempt at compiling FOR loops from oberon to retro
15:06:06 <tangentstorm> with this compiler, i'm not doing any kind of tree manipulation before emitting the template
15:06:41 <tangentstorm> I can, and possible that would be the easier approach, but i wanted to see if i could emit retro code.
15:06:44 <tangentstorm> and let retro do the work
15:07:44 <tangentstorm> even though this draft is kind of a mess, i think the approach in general is kind of worth pursuing.
15:43:04 --- join: kumul (~Kumool@173.215.194.228) joined #retro
16:10:01 <crc> I'll look over that code later tonight
16:12:44 <crc> that won't quite work, since pop can't be invoked at the listener level (in the [[ ]] area of FOR)
16:14:39 <tangentstorm> d'oh. that makes sense, because it would screw up the listener's control flow. 
16:16:38 <tangentstorm> hmm. good point
16:17:26 <tangentstorm> i can't even run this in the compiler yet... gotta finish porting the templates for procedure calls and whatnot first
16:17:35 <tangentstorm> i just kind of got carried away trying to implement it :)
16:58:37 --- nick: tangentstorm -> tangentaway
18:09:01 --- quit: kumul (Quit: Leaving)
20:33:12 --- nick: tangentaway -> tangentstorm
22:15:32 <tangentstorm> where is this retroforth handbook? :) http://retroforth.org/get/repos/901-hosted/doc/handbook.html
22:15:39 <tangentstorm> looks like it's from the old days?
23:59:59 --- log: ended retro/13.01.22