Commit: 60c48182945a24d2f95e9bdff42cdabd01ad6010 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisão: 60c48182945a24d2f95e9bdff42cdabd01ad6010 (tree)
• Hora: 2010-10-13 07:23:50
• Autor: lorenzo
• Commiter: lorenzo

Mensagem de Log

Apart from some minor modifications, I am now properly iterating a function
on a list of file following the suggestions by Daniel. Now I avoid generating
(though in a lazy way) a list with the contents of each file since that means
opening all those files and I can run short of handles.

Mudança Sumário

• modified: haskell/read_sequential.hs

Diff

diff -r 92918f99cb83 -r 60c48182945a haskell/read_sequential.hs
--- a/haskell/read_sequential.hs	Tue Oct 12 10:38:04 2010 +0000
+++ b/haskell/read_sequential.hs	Tue Oct 12 22:23:50 2010 +0000
@@ -17,37 +17,35 @@
 
 -- Uncomment the bit above if you want to read the list of files from a file
 
-  let nums=[1..260]
+  let nums=[1..2]
 
   
-  fl <- getAllLengths nums
-
-  -- putStrLn "fl is, "
-  -- print fl
-
-  cl <- file_conv_all nums
-
-  -- putStrLn "cl is, "
-  -- print cl
 
-  -- putStrLn "len cl is, "
-  -- print (length cl)
 
-  -- putStrLn "len cl!!1 is, "
-  -- print (length $ cl!!1)
+  -- cl <- file_conv_all nums
+
   
-  let entr_all= map entropy_list cl
+  -- let entr_all= map entropy_list cl
 
-  -- putStrLn "entr_all is, "
-  -- print (entr_all)
+  -- save_vector  "entropy.dat" entr_all 
+  
+-- NB: the 3 lines above (which are now comments) calculate correctly the entropy  
+-- but they have the problem if using too many file handles. The procedure I
+-- follow below is really the correct one.                             
+  
+  
+  my_entropy <- get_all_entropies nums
 
-  save_vector  "entropy.dat" entr_all 
-  
+  save_vector  "entropy.dat" my_entropy 
+
+
   putStrLn "So far so good "
 
 
+ -- #########################################################
+
 filename :: Int -> FilePath
-filename i = "time_series_" ++ show i ++ "_.dat"
+filename i = "file" ++ show i ++ ".dat"
 
 fileLength :: FilePath -> IO Int
 fileLength file = fmap length (readFile file)
@@ -55,21 +53,30 @@
 getAllLengths :: [Int] -> IO [Int]
 getAllLengths nums = mapM (fileLength . filename) nums 
 
+ -- #########################################################
+
+-- the 3 functions above are examples by Daniel to calculate the lengths of multiple files
+-- and they are a kind of template: the whole point is to replace fileLength with my own function
+-- and getAllLengths with the iteration of my own function.
+
+
+entropy_on_file file = fmap entropy_list (conv_to_list file)
+
+-- entropy_on_file is along the lines of fileLength by Daniel, just I need to be careful when
+-- reading something (a string NOT consisting only of numbers [there are also letters]) into a list
+-- (I now need to use conv_to_list instead of readFile).
+
+
+get_all_entropies nums =  mapM (entropy_on_file . filename) nums 
+
+-- get_all_entropies is precisely along the lines of getAllLengths by Daniel and it iterates
+-- entropy_on_file on my file list.
+
 
 conv_to_list file  = fmap lines ( (readFile file))
 
 file_conv_all nums  = mapM (conv_to_list . filename) nums 
 
--- entropy_calc_all nums = mapM  (entropy_list .file_conv_all) nums
-
-
--- getAllentr :: [Int] -> IO [Int]
--- getAllentr nums = mapM (fileLength . filename) nums 
-
-
-
-
-      
 is_sublist sublist list = sublist `isInfixOf` list