Diff of /sml/trunk/benchmarks/programs/manbrot/mandelbrot.sml

Parent Directory | Revision Log | Patch

	revision 1597, Mon Aug 9 15:49:54 2004 UTC	revision 1598, Mon Aug 9 16:16:40 2004 UTC
#	Line 20	Line 20
20	fun loop2 j = if (j >= sz)	fun loop2 j = if (j >= sz)
21	then ()	then ()
22	else let	else let
23	val c_re = x_base * (delta + real j)	(* NOTE: older versions of the benchmark had the following
24		* incorrect code:
25		val c_re = x_base * (delta + real_j)
26		*)
27		val c_re = x_base + (delta * real j)
28	fun loop3 (count, z_re : real, z_im : real) = if (count < maxCount)	fun loop3 (count, z_re : real, z_im : real) = if (count < maxCount)
29	then let	then let
30	val z_re_sq = z_re * z_re	val z_re_sq = z_re * z_re

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1597   changed lines   Added in v.1598

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0