File tree Expand file tree Collapse file tree
System.IO/Directory/Overview
System.Threading.Tasks/Task/Wait
System.Threading/Thread/Join Expand file tree Collapse file tree Original file line number Diff line number Diff line change 11<Project Sdk =" Microsoft.NET.Sdk" >
22
33 <PropertyGroup >
4- <OutputType >Library </OutputType >
4+ <OutputType >Exe </OutputType >
55 <TargetFramework >net10.0</TargetFramework >
66 </PropertyGroup >
77
88 <ItemGroup >
99 <Compile Include =" compareoptions_stringsort.fs" />
10- <Compile Include =" compareoptions_values.fs" />
1110 </ItemGroup >
1211
1312</Project >
Original file line number Diff line number Diff line change 1+ <Project Sdk =" Microsoft.NET.Sdk" >
2+
3+ <PropertyGroup >
4+ <OutputType >Exe</OutputType >
5+ <TargetFramework >net10.0</TargetFramework >
6+ </PropertyGroup >
7+
8+ <ItemGroup >
9+ <Compile Include =" compareoptions_values.fs" />
10+ </ItemGroup >
11+
12+ </Project >
Load diff This file was deleted.
Original file line number Diff line number Diff line change 88 <Compile Include =" class2.fs" />
99 <Compile Include =" class3.fs" />
1010 <Compile Include =" class6.fs" />
11- <Compile Include =" class7.fs" />
1211 <Compile Include =" class4.fs" />
1312 <Compile Include =" class5.fs" />
1413 <Compile Include =" class1.fs" />
Original file line number Diff line number Diff line change @@ -17,7 +17,7 @@ let t =
1717 printfn $" Mean: {float sum / float n:N2}"
1818 printfn $" N: {n:N0}" )
1919
20- let ts = TimeSpan.FromMilliseconds 150
20+ let ts = TimeSpan.FromMilliseconds 150.0
2121
2222if t.Wait ts |> not then
2323 printfn " The timeout interval elapsed."
Original file line number Diff line number Diff line change @@ -13,7 +13,7 @@ let threadProc () =
1313 Thread.CurrentThread.Name = " Thread1"
1414 && thread2.ThreadState <> ThreadState.Unstarted
1515 then
16- if TimeSpan.FromSeconds 2 |> thread2.Join then
16+ if TimeSpan.FromSeconds 2.0 |> thread2.Join then
1717 printfn " Thread2 has termminated."
1818 else
1919 printfn " The timeout has elapsed and Thread1 will resume."
You can’t perform that action at this time.
0 commit comments