r10289 - trunk/examples/shootout

Author: bruce
Date: Wed Oct 26 06:48:39 2005
New Revision: 10289

Modified:
   trunk/examples/shootout/random.dylan
Log:
Job: 7045
Everyone except us was using inline for gen_random...

Modified: trunk/examples/shootout/random.dylan
==============================================================================
--- trunk/examples/shootout/random.dylan        (original)
+++ trunk/examples/shootout/random.dylan        Wed Oct 26 06:48:39 2005
@@ -9,7 +9,7 @@
 define constant $IC = 29573;
 define variable $LAST :: <integer> = 42;
 
-define method generate-random (max :: <double-float>) => (m :: <double-float>);
+define inline method generate-random (max :: <double-float>) => (m :: 
<double-float>);
   $LAST := modulo($LAST * $IA + $IC, $IM);
   max * $LAST / $IM;
 end method;
-- 
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter