BinRoot/Haskell-Data-Analysis-Cookbook
1
1
Fork 0
mirror of https://github.com/BinRoot/Haskell-Data-Analysis-Cookbook.git synced 2024-11-29 01:24:19 +03:00
Code Issues Projects Releases Wiki Activity

Combined two styles: pattern-matching vs if-then-else

Browse Source 
Pattern matching (from book), if-then-else (from original code)
This commit is contained in:
Tong-Kiat Tan 2014-08-10 09:03:14 +08:00
parent d6ab918c51
commit 8f9c4d2b23
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Ch04/Code11_phash/Main.hs
View File

@ -13,14 +13,28 @@ main = do
phash3 <- imageHash "image3.jpg" phash3 <- imageHash "image3.jpg"
putStrLn $ "image3: " ++ show phash3 putStrLn $ "image3: " ++ show phash3
if isJust phash1 && isJust phash2 then do
putStr "hamming distance between image1 and image2: "
print $ hammingDistance (fromJust phash1) (fromJust phash2)
else
print "Error, could not read images"
if isJust phash1 && isJust phash3 then do
putStr "hamming distance between image1 and image3: "
print $ hammingDistance (fromJust phash1) (fromJust phash3)
else
print "Error, could not read images"
{-
case (phash1, phash2) of case (phash1, phash2) of
(Just h1, Just h2) -> do (Just h1, Just h2) -> do
putStr "hammind distance: " putStr "hamming distance between image1 and image2: "
print $ hammingDistance h1 h2 print $ hammingDistance h1 h2
_ -> putStrLn "Error, could not read images" _ -> putStrLn "Error, could not read images"
case (phash1, phash3) of case (phash1, phash3) of
(Just h1, Just h3) -> do (Just h1, Just h3) -> do
putStr "hammind distance: " putStr "hamming distance between image1 and image3: "
print $ hammingDistance h1 h3 print $ hammingDistance h1 h3
_ -> putStrLn "Error, could not read images" _ -> putStrLn "Error, could not read images"
-}