1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#light
// Module1.fs

let map_parallel func items =
	let tasks =
		seq {
			for i in items -> async {
				return (func i)
			}
		}
	Async.Run (Async.Parallel tasks)

let add1 n = n + 1

type DoSomething() =
	member x.Do () =
		map_parallel add1 [|1..1000|] |> ignore

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

// Game1.cs
/// <summary>
/// Allows the game to run logic such as updating the world,
/// checking for collisions, gathering input, and playing audio.
/// </summary>
/// Provides a snapshot of timing values.
protected override void Update(GameTime gameTime)
{
	// Allows the game to exit
	if (GamePad.GetState(PlayerIndex.One).Buttons.Back == ButtonState.Pressed)
		this.Exit();

	// TODO: Add your update logic here
	Module1.DoSomething fs = new Module1.DoSomething();
	fs.Do();

	base.Update(gameTime);
}

1
2
3

An unhandled exception of type 'System.TypeLoadException' occurred in AsyncBug.dll

Additional information: Could not load type 'System.Threading.SynchronizationContext' from assembly 'mscorlib, Version=3.5.0.0, Culture=neutral, PublicKeyToken=1C9E259686F921E0'.