Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/benchmarks/programs/manbrot/mandelbrot.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

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