inglada avatar inglada committed eb8aa99

Works with convertToNumber "$3,986,865"

Comments (0)

Files changed (1)

 -- possibly leading zeros
 
 
-toDecimal x = x/((10)^((x `mod` 10)+1))
+--toDecimal :: Int -> Double
+toDec x = (fromInteger x) / (realToFrac 10^((length (show x))))
+
 
 recursiveConvert "" c l = c
 recursiveConvert [a] c l = (digitToInt a)*10^l + c
 recursiveConvert aString carryValue level 
   | (last aString) == ',' = recursiveConvert (init aString) carryValue level
-  | (last aString) == '.' = recursiveConvert (init aString) (toDecimal carryValue) 0
+--  | (last aString) == '.' = recursiveConvert (init aString) (toDec carryValue) 0
   |otherwise = recursiveConvert (init aString) (((digitToInt (last aString)) * (10^level)) + carryValue) (level+1)
                             
 convertToNumber aString = recursiveConvert (tail aString) 0 0
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.