if...else... 조건문 사용 예제 for F#

소스 파일명: TestIf.fs

1. // Filename: TestIf.fs
3. #light
5. let printUsing x =
6.      printfn "Using: TestIf [number]"
7.      printfn "This determines whether the number is positive or not."
9. let (|Float|_|) (str: string) =
10.    let mutable floatvalue = 0.0
11.    if System.Double.TryParse(str, &floatvalue) then Some(floatvalue)
12.    else None
14. let isPositveNegative = function
15.      | x when x > 0.0 -> "positive"
16.      | x when x < 0.0 -> "negative"
17.      | x when x = 0.0 -> "zero"
18.      | _ -> "not a floating number"
20. let doCheck s =
21.     match s with
22.     | Float s ->
23.         let mutable y = 1.0
24.         y <- System.Convert.ToDouble(s)
25.         printfn "%g is %O." y (isPositveNegative y)
26.     | _ -> printUsing 0
28. let cmdArgs = System.Environment.GetCommandLineArgs()
30. if (Array.length cmdArgs > 1) then
31.     doCheck (cmdArgs.[1])
32. else printUsing 0

컴파일> fsc TestIf.fs

실행> TestIf -1.2
-1.2 is negative.

실행> TestIf 0.0
-1.2 is zero.





이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.