Using Fsharp

Пример использования еще одного управляемого языка под .Net F#:
 для запуска скопировать в файл(app.fsx) и запустить командой fsi(fsharpi) app.fsx
 
 
 

open Microsoft.FSharp.Math

open System

open System.Drawing

open System.Windows.Forms

let colorize c =

let r = (4 * c) % 255

let g = (6 * c) % 255

let b = (8 * c) % 255

Color.FromArgb(r,g,b)

let image = new Bitmap(400,400)

for x = 0 to image.Width - 1 do

for y = 0 to image.Height - 1 do

image.SetPixel(x,y,colorize(Convert.ToInt32(

Math.Sqrt(Convert.ToDouble(x*x+y*y))

)

)

)

image.Save("1.jpg",System.Drawing.Imaging.ImageFormat.Jpeg)

let form = new Form() in

form.Paint.Add(fun e -> e.Graphics.DrawImage(image, 0, 0))

do Application.Run(form)