F#第五课：异步工作流

没来得及写出来学习心得，暂时写一下Expert F#关于异步程序的文章中例子一些过时语法和相应的改进

 

代码

# light
open  System
open  System.IO
open  Microsoft.FSharp.Control
open  Microsoft.FSharp.Control.CommonExtensions

let  numImages =  200
let  size =  512
let  numPixels = size * size


let  TransfromImage(pixels, imageNum) = 
    printfn  " TransformImage %d "  imageNum
     //  实现频繁CPU计算操作
    pixels  | > (Array.map( fun  b  ->  b + 1uy))

let  ProcessImageAsync(i) = 
  async {
    use inStream = File.OpenRead(sprintf  " Image%d.tmp "  i)
     let ! pixels = inStream.ReadAsync(numPixels)  //  改为AsyncRead
     let   pixels '  = TransfromImage(pixels, i)
    use  outStream = File.OpenWrite(sprintf  " Image%d.done "  i)
     do !  outStream.WriteAsync(pixels ' ) // 改为AsyncWrite
  }

let  ProcessImagesAsync() = 
  printfn  " ProcessImagesAsync... "
   let  tasks = [ for  i  in   1 ..numImages  ->  ProcessImageAsync(i)]
  Async.Run(Async.Parallel tasks)  | > ignore  //  改为RunSynchronously
  printfn  " ProcessImagesAsync finished "

 

另外一处代码是

代码

let  processImagesRepeats =  20
let  repeatN pixels =
          pixels  | > Array.map( fun  b ->  b + 1uy)


let  TransformImage (pixels, imageNum) = 
    printfn  " TransformImage %d "  imageNum
     //  实现频繁CPU计算操作
    [ for  i  in   1 ..processImagesRepeats  ->  repeatN pixels]  //  原来这里的语法是pixels |> Func.RepeatN processImagesRepeats (Array.map(fun b-> b + 1uy)) 由于Func.RepeatN已经被F#库移除，所以只能用这样的语法代替

let  ProcessImageSync (i) = 
    use inStream = File.OpenRead (sprintf  " Image%d.tmp "  i)
     let  pixels   = Array.zeroCreate numPixels
     let  nPixels  = inStream.Read (pixels,  0 , numPixels)
     let  pixels '   = TransformImage (pixels, i)
    use outStream = File.OpenWrite (sprintf  " Image%d.done "  i)
    outStream.Write (pixels ' .[0], 0, numPixels)