u1roh

open System
open System.Collections.Generic
open System.Threading
open System.Windows.Forms
open System.Drawing

module CpsSample1 =

  let f1 a0 (continuation : _ -> unit) = continuation (2 * a0)
  let f2 a1 (continuation : _ -> unit) = continuation (a1 + 1)

u1roh

open ProgressiveSandbox
open System.Threading

// テスト用のコンソールに進捗を書き出すリスナークラス
type TestProgressListener () =
  let mutable value = 0.0
  interface IProgressListener with
    member this.Report step = value <- value + step; printfn "progress = %f" value
  
// コンピュテーション式