Bitmap.SetPixel hoạt động chậm hơn trong f # so với C#

Question

Mã f # chậm hơn 500 lần so với mã C#. Tôi đang làm gì sai? Tôi đã cố gắng làm cho mã cơ bản giống nhau cho cả hai ngôn ngữ. Nó không có nghĩa là SetPixel sẽ chậm hơn nhiều trong 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

định nghĩa của bạn của Pixels tài sản trong F # là sai: mỗi lần giá trị của nó được truy cập (ví dụ như trong vòng lặp bên trong của Save), các định nghĩa sẽ được đánh giá lại. Bạn nên sử dụng biểu mẫu này thay thế:

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

Điều này sẽ đánh giá phía bên phải chính xác một lần, khi hàm tạo được gọi và sau đó lưu vào bộ nhớ cache giá trị.