F Sharp

(* これはコメント *) // 1行コメント。 (* Hello world プログラム *) printfn "Hello World!" 

let rec factorial n =     match n with     | 0 -> 1     | _ -> n * factorial (n - 1) 

(* int リストの要素を再帰的にプリントする *) let rec printList lst =     match lst with      | [] -> ()     | h :: t ->          printf "%d\n" h         printList t   (* 上と同様だが任意の型の要素をプリントする *) let rec printList2 l =     match l with     | []     -> ()     | h :: t -> printfn "%A" h                 printList2 t   (* match の代りに function 式を利用する *) let rec printList3 = function     | []     -> ()     | h :: t -> printfn "%A" h                 printList3 t   (* 高階関数を利用する *) let printlist4 lst = List.iter (printfn "%A") lst 

(* フィボナッチ数列 *) let rec fib n =     match n with     | 0 | 1 -> n     | _ -> fib (n - 1) + fib (n - 2)   (* 遅延再帰シーケンス式によるフィボナッチ数列 *) let rec fibs = Seq.cache <| seq { yield! [1; 1]                                                                     for x, y in Seq.zip fibs <| Seq.skip 1 fibs -> x + y }   (* 遅延無限シーケンスによるフィボナッチ数列 *) let fibSeq = Seq.unfold (fun (a,b) -> Some(a+b, (b, a+b))) (1,1)   (* 偶数のフィボナッチ数をプリントする *) [1 .. 10] |> List.map     fib |> List.filter  (fun n -> (n % 2) = 0) |> printList   (* 同じことをシーケンス式を利用する *) [ for i in 1..10 do     let r = fib i     if r % 2 = 0 then yield r ] |> printList 

(* フォームの作成 *) open System.Windows.Forms let form = new Form(Visible=true, TopMost=true, Text="Welcome to F#") (* フォーム テキストを決める *) let x = 3 + (4 * 5) do form.Text <- (if x = 23 then "Correct!" else "incorrect")