提交: 109cd5029a3aa16a15098a1bb0184f89ffbd6803 - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修訂: 109cd5029a3aa16a15098a1bb0184f89ffbd6803 (tree)
• 時間: 2010-09-08 22:33:11
• 作者: lorenzo
• Commiter: lorenzo

Log Message

I expanded a tiny bit the hello world example.

Change Summary

• modified: haskell/hello.hs

差異

diff -r 3297201532ce -r 109cd5029a3a haskell/hello.hs
--- a/haskell/hello.hs	Tue Sep 07 16:51:51 2010 +0000
+++ b/haskell/hello.hs	Wed Sep 08 13:33:11 2010 +0000
@@ -1,3 +1,6 @@
+import Data.Char  
+
+
 main = do  
   putStrLn "Hello, what's your name?"  
   name <- getLine  
@@ -8,3 +11,21 @@
 --   name <- getLine  
 --   putStrLn $ "Read this carefully, because this is your future: " ++ tellFortune name  
 
+
+-- main_bis = do  
+  putStrLn "What's your first name?"  
+  firstName <- getLine  
+  putStrLn "What's your last name?"  
+  lastName <- getLine  
+  let bigFirstName = map toUpper firstName  
+      bigLastName = map toUpper lastName  
+  putStrLn $ "hey " ++ bigFirstName ++ " " ++ bigLastName ++ ", how are you?"  
+
+-- f :: [String] -> [Int]
+-- f = map read
+
+
+-- c = f(["1","2"])
+
+-- let f putStrLn c
+--     print f
\ No newline at end of file