プログラミング学習の記録 366.2「『Programming F#』 Chris Smith 著のⅠ部(マルチパラダイムプログラミング),3章(関数プログラミング),6(シーケンス), 2(Seqモジュール関数)

開発環境

• 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.6(シーケンス), 3.6.2(Seqモジュール関数)まで。

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 let randomSequence= seq{ let rng=new Random() while true do yield rng.Next() };; val randomSequence : seq<int> > randomSequence \> Seq.take 3;; randomSequence \> Seq.take 3;; ---------------^ stdin(8,16): error FS0010: Unexpected character '\' in interaction. Expected incomplete structured construct at or before this point, ';', ';;' or other token. > randomSequence |> Seq.take 3;; val it : seq<int> = seq [341889725; 201376169; 403825620] > randomSequence |> Seq.take 0;; val it : seq<int> = seq [] > randomSequence |> Seq.take 0;; val it : seq<int> = seq [] > randomSequence |> Seq.take 100;; val it : seq<int> = seq [37611072; 330682597; 2001671875; 943760499; ...] > let seq= (randomSequence |> Seq.take 100);; val seq : seq<int> > seq |> Seq.length;; val it : int = 100 > seq |> Seq.exists;; seq |> Seq.exists;; -------^^^^^^^^^^ stdin(15,8): error FS0001: Type mismatch. Expecting a seq<int> -> 'a but given a ('b -> bool) -> 'c -> bool The type 'seq<int>' does not match the type ''a -> bool' > seq |> Seq.concat;; seq |> Seq.concat;; -------^^^^^^^^^^ stdin(16,8): error FS0001: The type 'int' is not compatible with the type 'seq<'a>' > let nextFibUnder100 (a,b)= if a+b > 100 then None else let nextValue=a+b Some(nextValue,(nextValue,a));; val nextFibUnder100 : int * int -> (int * (int * int)) option > let fibsUnder100 = Seq.unfold nextFibUnder100 (0,1);; val fibsUnder100 : seq<int> > Seq.toList fibsUnder100;; val it : int list = [1; 1; 2; 3; 5; 8; 13; 21; 34; 55; 89] > let nextFibUnder1000 (a,b)= if a+b > 1000 then None else let nextValue=a+b Some(nextValue,(nextValue,a)) ;; val nextFibUnder1000 : int * int -> (int * (int * int)) option > Seq.toList (Seq.unfold nextFibUnder1000);; Seq.toList (Seq.unfold nextFibUnder1000);; ------------^^^^^^^^^^^^^^^^^^^^^^^^^^^ stdin(32,13): error FS0001: The type ''b -> seq<'c>' is not compatible with the type 'seq<'a>' > Seq.toList (Seq.unfold nextFibUnder1000 (0,1);; Seq.toList (Seq.unfold nextFibUnder1000 (0,1);; ---------------------------------------------^^ stdin(33,46): error FS0010: Unexpected symbol ';;' in expression. Expected ')' or other token. > Seq.toList (Seq.unfold nextFibUnder1000 (0,1));; val it : int list = [1; 1; 2; 3; 5; 8; 13; 21; 34; 55; 89; 144; 233; 377; 610; 987] > fibsUnder100 |> Seq.length;; val it : int = 11 > fibsUnder100;; val it : seq<int> = seq [1; 1; 2; 3; ...] > Seq.toList fibsUnder100;; val it : int list = [1; 1; 2; 3; 5; 8; 13; 21; 34; 55; 89] > Seq.toList (randomSequence1000 |> Seq.take 100);; Seq.toList (randomSequence1000 |> Seq.take 100);; ------------^^^^^^^^^^^^^^^^^^ stdin(38,13): error FS0039: The value or constructor 'randomSequence1000' is not defined > Seq.toList (randomSequence |> Seq.take 100);; val it : int list = [1840085104; 573473207; 1687940084; 1650023210; 1134212238; 1366391601; 1682838047; 1570156861; 2097255041; 1346250076; 162942252; 868296503; 374995211; 1122790376; 414749991; 214929500; 673927939; 1015466596; 1888013099; 1686841248; 1343658072; 659188281; 1303727404; 21977259; 1492969948; 1232342096; 1763480356; 1818887614; 858082443; 1077907985; 863121061; 1727673014; 1780867980; 168576366; 1695103733; 71836036; 1960698593; 212576645; 1690558328; 1686217606; 69482630; 1843836951; 1065390821; 1016583900; 777642519; 1112411209; 1830814140; 486704894; 354955270; 1922899690; 1719692934; 1191725232; 2002092216; 1141953868; 1604013562; 1180896823; 1417229450; 1665962825; 157053262; 2049353789; 1750394892; 2011434080; 712074418; 1019347056; 483129015; 582752885; 1234912170; 206418845; 1575170290; 342913955; 401714554; 461351294; 1472391915; 201795493; 1617358618; 1647304768; 1741281107; 287143504; 1391818387; 380558739; 1549011603; 1276775462; 1463932344; 1082666400; 1505698698; 1818879476; 1873064445; 638914112; 712046451; 514206910; 802090233; 294735768; 55523383; 1788688186; 2083306361; 205532197; 1131762533; 46043765; 533454885; 194889634] > Seq.toList (randomSequence |> Seq.take 1000);; val it : int list = [2037928589; 2141474287; 1309357072; 356621498; 1262404051; 1060005486; 1812562340; 1302555220; 158062396; 789993377; 1617104360; 1960956941; 746778040; 1313252660; 1595444455; 464073772; 1024762974; 1734616523; 778583518; 793166694; 895801976; 505098143; 485593169; 844428043; 112723351; 664149289; 274347138; 1230304359; 1886114449; 2071767599; 147450218; 546247567; 671519439; 1964375733; 1995022687; 1621212533; 1150883898; 186541588; 598042129; 1585968369; 1259739590; 1002474458; 1262887554; 1415627820; 57315832; 97812114; 1362599896; 6791383; 1881340212; 1103169056; 1168645015; 647451544; 724398577; 536731969; 1975230940; 1532830446; 1655881118; 464929029; 243898147; 598254762; 785658348; 582257981; 1563924418; 233778444; 642543159; 1070856793; 1289437502; 929885954; 1465713620; 2121715569; 1460673521; 838221386; 1136574394; 1340098796; 1680910751; 2040811165; 1389694236; 1217448996; 787112211; 14911237; 1449033040; 267555755; 1496447794; 782945393; 903122584; 1647482321; 1969332637; 134787470; 2136628440; 462192241; 2112815062; 685954869; 2090127088; 2147271014; 800310021; 677481609; 1586033687; 1029109110; 773084661; 1133942686; ...] >

今日Mac上にmonoをインストールしてみた。使い方はまだよく分かってないのでしばらくはWindowsでプログラミング学習を継続。