Commit: 806452ca6e75ac7d61e76e16f36af28a0e928dcb - myprojects-hg-reborn (hg)

Commit MetaInfo

• Révision: 806452ca6e75ac7d61e76e16f36af28a0e928dcb (tree)
• l'heure: 2010-10-12 00:00:13
• Auteur: lorenzo
• Commiter: lorenzo

Message de Log

I am developing this code which calculates the entropy of a time series, but
I still need to learn how to iterate it on a set of files.

Change Summary

• modified: haskell/string-match.hs

Modification

diff -r b6e440db2e0d -r 806452ca6e75 haskell/string-match.hs
--- a/haskell/string-match.hs	Mon Oct 11 10:43:25 2010 +0000
+++ b/haskell/string-match.hs	Mon Oct 11 15:00:13 2010 +0000
@@ -7,67 +7,31 @@
 
 main = do
 
-
-  -- let list = [4,55,66,77,88,99,12,9,77,88,99,12,-99]
-  let list = [999,99,9]
-
-  -- let list = ["a","b","c","c"]
-
-  
-  -- let sub_list = [66,77,88]
-      
-  -- let i = 9
-      
-  -- let j =2
-
+  -- let file_list = [1,2,3]
 
   
-  -- let b = iter_find list i
-  
-  -- putStrLn "b is, "
-  -- print b
-
-
-  -- let b = iter_find_efficient list i
   
-  -- putStrLn "the list of True  is, "
-  -- print b
-
-  -- let b = count_string_length list i
 
-  -- putStrLn "the length of the list is, "
-  -- print b
-
-  let b =list_string_lengths list
-  
-  putStrLn "the list of string lengths is, "
-  print b
+  list_t <- readFile "tdata.dat"
 
   
-  let b = sum_string_lengths list
-      
-  putStrLn "the sum of the lengths of the lists is, "
-  print b
-  
+  let list = lines list_t
   
   let b = entropy_list list
 
   putStrLn "the entropy of the list is, "
   print b
 
-  
-  -- putStrLn "length list is, "
-  -- print (length list)
-  
-  -- let c = gen_past_list list i
-  -- putStrLn "the past of i is, "
-  -- print (c)
-      
 
 
 
 
 
+-- ##############################################################
+
+
+
+      
 is_sublist sublist list = sublist `isInfixOf` list
 
 
@@ -91,6 +55,9 @@
 sum_string_lengths list = sum $ map (count_string_length list) [1..n]
                           where n =  length list
 
+my_convert list = lines list
+                       
+
 list_string_lengths list =  map (count_string_length list) [1..n]
                           where n =  length list
 
@@ -101,7 +68,8 @@
 
 entropy_list list =  1.0/((pref_list list) * fromIntegral (sum_string_lengths list) )                             
                      
-
+read_file_and_get_entropy list =   entropy_list list_new
+                                       where list_new = my_convert list
 
 
 -- #################################################################################### 
@@ -110,6 +78,11 @@
 
 convert x = (map (map read . words) . lines) x
 
+
+convert_single_col x = concat $ convert x
+
+
+
 firstColumn xss = head (transpose xss)
 
 nthColumn xss n  = (transpose xss) !! n  -- my first haskell function!