Bitmap.SetPixel działa wolniej w f # niż w C#

Question

Kod f # idzie dosłownie 500 razy wolniej niż kod C#. Co ja robię źle? Próbowałem zrobić kod w zasadzie taki sam dla obu języków. Nie ma sensu, żeby SetPixel był znacznie wolniejszy w f #.

F #:

module Imaging 
open System.Drawing; 
#light 
type Image (width : int, height : int) = class 
    member z.Pixels = Array2D.create width height Color.White 

    member z.Width with get() = z.Pixels.GetLength 0 

    member z.Height with get() = z.Pixels.GetLength 1 

    member z.Save (filename:string) =  
    let bitmap = new Bitmap(z.Width, z.Height) 
    let xmax = bitmap.Width-1 
    let ymax = bitmap.Height-1 
    let mutable bob = 0; 
    for x in 0..xmax do 
     for y in 0..ymax do 
     bitmap.SetPixel(x,y,z.Pixels.[x,y]) 
    bitmap.Save(filename) 

    new() = Image(1280, 720) 
end 
let bob = new Image(500,500) 
bob.Save @"C:\Users\White\Desktop\TestImage2.bmp" 

C#:

using System.Drawing; 

namespace TestProject 
{ 
public class Image 
{ 

    public Color[,] Pixels; 
    public int Width 
    { 
     get 
     { 
      return Pixels.GetLength(0); 
     } 
    } 
    public int Height 
    { 
     get 
     { 
      return Pixels.GetLength(1); 
     } 
    } 

    public Image(int width, int height) 
    { 
     Pixels = new Color[width, height]; 
     for (int x = 0; x < Width; x++) 
     { 
      for (int y = 0; y < Height; y++) 
      { 
       Pixels[x, y] = Color.White; 
      } 
     } 
    } 

    public void Save(string filename) 
    { 
     Bitmap bitmap = new Bitmap(Width, Height); 
     for (int x = 0; x < bitmap.Width; x++) 
     { 
      for (int y = 0; y < bitmap.Height; y++) 
      { 
       bitmap.SetPixel(x, y, Pixels[x, y]); 
      } 
     } 
     bitmap.Save(filename); 
    } 
} 
class Program 
{ 
    static void Main(string[] args) 
    { 
     Image i = new Image(500, 500); 
     i.Save(@"C:\Users\White\Desktop\TestImage2.bmp"); 
    } 
} 
} 

Answer 1

Twoja definicja nieruchomości w F # Pixels jest źle: za każdym razem, jego wartość jest dostępny (np w wewnętrznej pętli Save), przy czym definicja zostanie poddana ponownej ocenie. Należy użyć tego formularza:

member val Pixels = Array2D.create width height Color.White 

Pozwoli to ocenić prawą stronę dokładnie raz, gdy konstruktor nazywa, a następnie buforować wartość.