F＃のコーディングプラクティス

Question

私はVisual Studio 2010でF＃を試しています。私はC＃やJavaなどのオブジェクト指向言語でより多くのコード/アーキテクチャ設計経験を持つ開発者です。

私のスキルセットを広げ、より良い決定を下すために、私はさまざまなことをするためにさまざまな言語を試しています。特に、関数型言語（この場合はF＃）を使用してコーディングを「正しく」行うことができます。

単純な例では、いくつかのXMLを生成してから、いくつかのフィルタを追加していくつかの要素を削除しています。

ここ

が私のコードです：

open System 
open System.Xml.Linq 


let ppl:(string * string) list = [ 
    ("1", "Jerry"); 
    ("2", "Max"); 
    ("3", "Andrew"); 
] 

/// Generates a Person XML Element, given a tuple. 
let createPerson (id:string, name:string) = new XElement(XName.Get("Person"), 
               new XAttribute(XName.Get("ID"), id), 
               new XElement(XName.Get("Name"), name) 
) 

/// Filter People by having odd ID's 
let oddFilter = fun (id:string, name:string) -> (System.Int32.Parse(id) % 2).Equals(1) 

/// Open filter which will return all people 
let allFilter = fun (id:string, name:string) -> true 

/// Generates a People XML Element. 
let createPeople filter = new XElement(XName.Get("People"), 
           ppl |> List.filter(filter) |> List.map createPerson 
) 

/// First XML Object 
let XmlA = createPeople oddFilter 

/// Second XML Object 
let XmlB = createPeople allFilter 


printf "%A\n\n%A" XmlA XmlB 


/// Waits for a keypress 
let pauseKey = fun() -> System.Console.ReadKey() |> ignore 


pauseKey() 

私の質問は以下のとおりです。物事は、私は、このシナリオでうまくやっていますか？どの部分をより良くすることができるでしょうか？

私は実際にいくつかのアイデアを楽しみにしており、機能的なパラダイムにも慣れ親しむことに非常に興奮しています！ :)事前に

おかげで

Answer 1

原則として、あなたのコードは大丈夫です。

構文上の観点から単純化できる点がいくつかあります。

let ppl:(string * string) list = [ 
    ("1", "Jerry"); 
    ("2", "Max"); 
    ("3", "Andrew"); 
] 

コンパイラは自分でほとんどの種類を推定することができます：

let ppl = [ "1", "Jerry"; 
      "2", "Max"; 
      "3", "Andrew" ] 

そしてもちろん、あなたが原因curryingにこのようなあなたのフィルタを再度書き込むことができます。

let oddFilter (id:string, name:string) = (int id) % 2 = 1 
let allFilter (id:string, name:string) = true 

最大改善は名前からインデックスを分離し、プログラムに番号を付けることになります。あなたは、文字列の代わりに数字で作業する必要はありませんし、より多くの慣用的なタプルフリー機能を使用することができます。

let ppl = [ "Jerry"; "Max"; "Andrew" ] 

let oddFilter id name = id % 2 = 1 
let allFilter id name = true 

let createPerson id name = ... 

一部

ppl |> List.filter(filter) |> List.map createPerson 

が

[ for (index, name) in List.mapi (fun i x -> (i, x)) do 
     if filter index name then 
      yield createPerson (string index) name ] 

Answer 2

let createPeople filter = new XElement(XName.Get("People"), 
          ppl |> List.filter(filter) |> List.map createPerson 
) 

この部分は手動でdeforestedすることができ、またはあなたが望むことができるデフォレストそれコンパイラがすることをあなたのために。

基本的には、中間的な構造（フィルタリングされた人物のリスト）があり、これは単純にコンパイルされた場合、一度だけ配信されるように割り当てられます。それぞれの要素にcreatePersonを適用するほうが良い。それが出入りするかどうかが決定され、最終結果を直接構築する。

EDIT：

let createPeople filter = 
    new XElement(
    XName.Get("People"), 
    List.foldBack 
     (fun P acc -> if filter P then (createPerson P)::acc else acc) 
     ppl 
     []) 

注： cfernはcreatePeopleのこの伐採バージョンに貢献filterかcreatePersonに副作用があるかもしれないので、コンパイラはによりデフォレストに決定するために、F＃で、それはかなり難しいです自体。この場合、たとえfilterに副作用があっても、createPersonは専門家ではないので、伐採防止は正しいと思われます。

Answer 3

ほとんどに書き換えられます具体的な理由、一般的なパフォーマンスなしで、森林破壊の時間は、悪い考えです。これらのうちどれが読みやすく、エラーが起こりにくいと思いますか？コンテキストから取り除かれると、複雑さやコードへの結合が増えます。

let createPeople filter ppl = 
    ppl 
    |> List.mapi (fun i x -> (i, x)) 
    |> List.filter filter 
    |> List.map createPerson 

let createPeople filter ppl = 
    [ for (index, name) in ppl |> List.mapi (fun i x -> (i, x)) do 
      if filter (index, name) then 
       yield createPerson (index, string) ] 

let createPeople filter ppl = 
    (ppl |> List.mapi (fun i x -> (i, x)), []) 
    ||> List.foldBack (fun P acc -> if filter P then (createPerson P)::acc else acc) 

構文関数に慣れると、pplを削除できます。

let createPeople filter = 
    List.mapi (fun i x -> (i, x)) 
    >> List.filter filter 
    >> List.map createPerson 

これらはすべてタプルデータを使用します。

let filter (id, name) = 
    id % 2 = 1 

let allFilter (id, name) = 
    true 

let createPerson (id, name) = 
    () 

Answer 4

最近、XSLをXMLファイルに変換する必要もありました。 これは私がこれまで使っていたF＃です。

.netメソッドを使用するといくつか興味深い欠点があります。

(* Transforms an XML document given an XSLT. *) 

open System.IO 
open System.Text 
open System.Xml 
open System.Xml.Xsl 

let path = @"C:\\XSL\\" 

let file_xml = path + "test.xml" 
let file_xsl = path + "xml-to-xhtml.xsl" 

(* Compile XSL file to allow transforms *) 
let compile_xsl (xsl_file:string) = new XslCompiledTransform() |> (fun compiled -> compiled.Load(xsl_file); compiled) 
let load_xml (xml_file:string) = new XmlDocument() |> (fun doc -> doc.Load(xml_file); doc) 

(* Transform an Xml document given an XSL (compiled *) 
let transform (xsl_file:string) (xml_file:string) = 
     new MemoryStream() 
     |> (fun mem -> (compile_xsl xsl_file).Transform((load_xml xml_file), new XmlTextWriter(mem, Encoding.UTF8)); mem) 
     |> (fun mem -> mem.Position <- (int64)0; mem.ToArray()) 

(* Return an Xml fo document that has been transformed *) 
transform file_xsl file_xml 
    |> (fun bytes -> File.WriteAllBytes(path + "out.html", bytes))