add pleac 8.6 - 8.8

kzfm · kzfm · commit e8d1e49ce302 · 2012-07-13T19:57:05.000+09:00
diff --git a/pleac.rst b/pleac.rst
@@ -183,12 +183,65 @@ reverse&#12377;&#12427;
 &#12524;&#12471;&#12500;8.6 &#12501;&#12449;&#12452;&#12523;&#12363;&#12425;&#34892;&#12434;&#12521;&#12531;&#12480;&#12512;&#12395;&#21462;&#12426;&#20986;&#12377;
 ---------------------------------------------
 
+`Picking a Random Line from a File <http://docstore.mik.ua/orelly/perl/cookbook/ch08_07.htm>`_ 
+
+&#19968;&#34892;&#12434;&#12521;&#12531;&#12480;&#12512;&#12395;&#21462;&#12426;&#20986;&#12377;&#12290;&#12450;&#12523;&#12468;&#12522;&#12474;&#12512;&#12399;&#12424;&#12367;&#30693;&#12425;&#12428;&#12383;&#12420;&#12388;&#12290;
+
+.. code-block:: haskell
+
+    import System.Environment
+    import System.Random
+    import Control.Applicative
+    
+    randomNumGen :: Int -> IO Int
+    randomNumGen n = getStdRandom (randomR (0, n))
+    
+    choiceLine :: String -> [(Int, String)] -> IO String
+    choiceLine s [] = return s
+    choiceLine s ((n, line):cs) = do
+      n' <- randomNumGen n
+      if n' < 1 then choiceLine line cs
+      else choiceLine s cs
+    
+    main :: IO ()
+    main = do
+      args <- getArgs
+      choiced <- choiceLine "" =<< zip [1..] <$> lines <$> readFile (args!!0) 
+      putStrLn choiced
+
 &#12524;&#12471;&#12500;8.7 &#12501;&#12449;&#12452;&#12523;&#20869;&#12398;&#12377;&#12409;&#12390;&#12398;&#34892;&#12434;&#12471;&#12515;&#12483;&#12501;&#12523;&#12375;&#12383;&#12356;
 ---------------------------------------------------
 
+`Randomizing All Lines <http://docstore.mik.ua/orelly/perl/cookbook/ch08_08.htm>`_ 
+
+.. code-block:: haskell
+
+    import System.Environment
+    import System.Random.Shuffle
+    import Control.Applicative
+    
+    main :: IO ()
+    main = do
+      args <- getArgs
+      shuffled <- shuffleM =<< lines <$>  readFile (args!!0) 
+      mapM_ putStrLn shuffled
+
 &#12524;&#12471;&#12500;8.8 &#12501;&#12449;&#12452;&#12523;&#20869;&#12398;&#29305;&#23450;&#12398;&#34892;&#12434;&#35501;&#12415;&#36796;&#12416;
 -----------------------------------------
 
+`Reading a Particular Line in a File <http://docstore.mik.ua/orelly/perl/cookbook/ch08_09.htm>`_ 
+
+.. code-block:: haskell
+
+    import System.Environment
+    import Control.Applicative
+    
+    main :: IO ()
+    main = do
+      (file:lineNum:_) <- getArgs
+      line <- flip (!!) (pred (read lineNum :: Int)) . lines <$>  readFile file 
+      putStrLn line
+
 &#12524;&#12471;&#12500;8.9 &#21487;&#22793;&#38263;&#12486;&#12461;&#12473;&#12488;&#12501;&#12451;&#12540;&#12523;&#12489;&#12434;&#20966;&#29702;&#12377;&#12427;
 ---------------------------------------------
 
