プログラミング学習の記録 348.2「『Programming F#』 Chris Smith 著のⅠ部(マルチパラダイムプログラミング),3章(関数プログラミング),1(関数によるプログラミング), 5(関数の合成)の1(順次パイプライン演算)

開発環境

• Microsoft Windows 7 Home Premium (OS)
• Microsoft Visual Studio 2010(Visual Studio 2010 Shell + F# Community Technology Preview(CTP)(F# Compiler and F# for Visual Studio)) (IDE)
• 言語: F# (A Functional Programming Langage)

「『Programming F#』 Chris Smith 著、Copyright 2010 Chris Smith、ISBN 978-9-596-15364-9、邦題『プログラミング F#』 オライリー・ジャパン刊、ISBN 978-4-87311-466-8」のⅠ部(マルチパラダイムプログラミング)、3章(関数プログラミング)を参考に学習。3.1(関数によるプログラミング)の3.1.5(関数合成)の3.1.5.1(順次パイプライン演算)まで。

FSI(F# Interactive)

Microsoft (R) F# 2.0 Interactive build 4.0.30319.1 Copyright (c) Microsoft Corporation. All Rights Reserved. For help type #help;; > open System open System.IO let uglySizeOfFolder folder = Array.sum (Array.map (fun (info : FileInfo) -> info.Length) (Array.map (fun file -> new FileInfo(file)) (Directory.GetFiles( folder, "*.*", SearchOption.AllDirectories))));; val uglySizeOfFolder : string -> int64 > uglySizeOfFolder "Sample";; System.IO.DirectoryNotFoundException: パス 'C:\Users\Kamimura\AppData\Local\Temp\Sample\' の一部が見つかりませんでした。 場所 System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath) 場所 System.IO.FileSystemEnumerableIterator`1.CommonInit() 場所 System.IO.FileSystemEnumerableIterator`1..ctor(String path, String originalUserPath, String searchPattern, SearchOption searchOption, SearchResultHandler`1 resultHandler) 場所 System.IO.Directory.GetFiles(String path, String searchPattern, SearchOption searchOption) 場所 FSI_0002.uglySizeOfFolder(String folder) 場所 <StartupCode$FSI_0003>.$FSI_0003.main@() Stopped due to error > uglySizeOfFolder "Temp";; System.IO.DirectoryNotFoundException: パス 'C:\Users\Kamimura\AppData\Local\Temp\Temp\' の一部が見つかりませんでした。 場所 System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath) 場所 System.IO.FileSystemEnumerableIterator`1.CommonInit() 場所 System.IO.FileSystemEnumerableIterator`1..ctor(String path, String originalUserPath, String searchPattern, SearchOption searchOption, SearchResultHandler`1 resultHandler) 場所 System.IO.Directory.GetFiles(String path, String searchPattern, SearchOption searchOption) 場所 FSI_0002.uglySizeOfFolder(String folder) 場所 <StartupCode$FSI_0004>.$FSI_0004.main@() Stopped due to error > uglySizeOffolder @"C:\Users\Kamimura\Documents";; uglySizeOffolder @"C:\Users\Kamimura\Documents";; ^^^^^^^^^^^^^^^^ stdin(16,1): error FS0039: The value or constructor 'uglySizeOffolder' is not defined > uglysizeOfFolder @"C:\Users\Kamimura\Documents";; uglysizeOfFolder @"C:\Users\Kamimura\Documents";; ^^^^^^^^^^^^^^^^ stdin(17,1): error FS0039: The value or constructor 'uglysizeOfFolder' is not defined > uglySizeOfFolder @"C:\Users\Kamimura\Documents";; System.UnauthorizedAccessException: パス 'C:\Users\Kamimura\Documents\My Music\' へのアクセスが拒否されました。 場所 System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath) 場所 System.IO.FileSystemEnumerableIterator`1.AddSearchableDirsToStack(SearchData localSearchData) 場所 System.IO.FileSystemEnumerableIterator`1.MoveNext() 場所 System.Collections.Generic.List`1..ctor(IEnumerable`1 collection) 場所 System.IO.Directory.GetFiles(String path, String searchPattern, SearchOption searchOption) 場所 FSI_0002.uglySizeOfFolder(String folder) 場所 <StartupCode$FSI_0007>.$FSI_0007.main@() Stopped due to error > uglySizeOfFolder @"C:\Users\Kamimura\Documents\Visual Studio 2010";; val it : int64 = 6669284L > [1 .. 3] |> List.iter (printfn "%d");; 1 2 3 val it : unit = () > let getFiles folder = Directory.GetFiles(folder, "*.*", SearchOption.Alldirectories) let totalSize = let totalSize = --^^^ stdin(24,3): error FS0010: Unexpected keyword 'let' or 'use' in binding. Expected incomplete structured construct at or before this point or other token. ;; ;; ^^ stdin(25,1): warning FS0058: Possible incorrect indentation: this token is offside of context started at position (24:3). Try indenting this token further or using standard formatting conventions. ;; ^^ stdin(25,1): warning FS0058: Possible incorrect indentation: this token is offside of context started at position (24:3). Try indenting this token further or using standard formatting conventions. > let SizeOfFolderPiped folder = let getFiles folder = Directory.GetFiles(folder, "*.*", SearchOption.AllDirectories) let totalSize= folder |> getFiles |> Array.map (fun file -> new FileInfo(file)) |>Array.map (fun info -> info.Length) |>Array.sum totalSize;; val SizeOfFolderPiped : string -> int64 > SizeOfFolderPiped @"C:\Users\Kamimura\Documents\Visual Studio 2010";; val it : int64 = 6669284L > uglySizeOfFolder @"C:\Users\Kamimura\Documents\Visual Studio 2010";; val it : int64 = 6669284L > ["Pipe"; "Forward"] |> List.iter (fun s -> printfn "s の長さは %d" s.Length);; s の長さは 4 s の長さは 7 val it : unit = () >

今日の内容はほとんど理解できず。とりあえずは一度全体に目を通すことが目標なので気にせずどんどん先に進めていくことに。