#眉標=F#程式設計
#副標=F#程式設計入門（2）
#大標=2個學習F#語法的範例
#作者=文／蔡學鏞

===<反灰>=============
#light
// 分析字串內重複出現的字
let wordCount text =
    let words = String.split [' '] text
    let wordSet = Set.of_list words
    let nWords = words.Length
    let nDups = words.Length - wordSet.Count
    (nWords,nDups)

let showWordCount text =
    let nWords,nDups = wordCount text
    printfn "--> %d words in the text" nWords
    printfn "--> %d duplicate words" nDups
==<end>==============



===<反灰>=============
val wordCount : string -> int * int
val showWordCount : string -> unit
==<end>==============


===<反灰>=============
// 沒有#light，下面的例子內縮也沒有用，且一定要加上in
let wordCount text =
let words = String.split [' '] text in
let wordSet = Set.of_list words in
let nWords = words.Length in
let nDups = words.Length - wordSet.Count in
(nWords,nDups)
==<end>==============



===<反灰>=============
open System.Windows.Forms

let form = new Form(Visible=true,TopMost=true,Text="Welcome to F#")
let textB = new RichTextBox(Dock=DockStyle.Fill, Text="Here is some initial text")
form.Controls.Add(textB)

open System.IO
open System.Net

// 取得網頁內容
let http(url: string) =
    let req = System.Net.WebRequest.Create(url)
    let resp = req.GetResponse()
    let stream = resp.GetResponseStream()
    let reader = new StreamReader(stream)
    let html = reader.ReadToEnd()
    resp.Close()
    html

textB.Text <- http("http://news.bbc.co.uk")
==<end>==============




===<反灰>=============
open System.Windows.Forms
open System.IO
open System.Net
==<end>==============



===<反灰>=============
let form = new Form(Visible=true,TopMost=true,Text="Welcome to F#")
==<end>==============



===<反灰>=============
let form = new Form ()
form.Visible <- true
form.TopMost <- true
form.Text <- "Welcome to F#"
==<end>==============



===<反灰>=============
let http(url: string) = …
==<end>==============