Changeset 22 for hh2008/naoya_t/trunk/test.hs

Timestamp:

03/03/08 23:09:07 (17 years ago)

Author:

naoya_t

Message:

2008-03-04 08:09

Files:

• hh2008/naoya_t/trunk/test.hs (modified) (2 diffs)

hh2008/naoya_t/trunk/test.hs

@@ -1 @@
-main = putStrLn "Hello, World!"
+"Hello, World!"
+putStrLn "Hello, World!"
+5 * 6 - 7
+print $ 5 * 6 - 7
+\x -> x * x $ 5 * 6 - 7
+print $ \x -> x * x $ 5 * 6 - 7
+[1,2,3,4]
+print [1,2,3,4]
+tail [1,2,3]
+print $ tail [1,2,3]
 
--- main = do { cs <- getContents ; print $ length $ lines cs }
+print if 1 then '@' else '*'
+-- if c == '\t' then '@' else c
+\num -> num * num
+\x -> x
+3 + 4
+4 * 5 - 1
 
 firstNLines n cs = unlines $ take n $ lines cs
 
--- main = print $ 5 + 2 * 5
-rmain = print $ tail [1,2,3]
--- main = tail [1,2,3]
-
-tail [1,2,3]
-print [1,2,3,4]
+f1 = do { cs <- getContents ; print $ length $ lines cs }
+f2 = print $ 5 + 2 * 5
+f3 = print $ tail [1,2,3]
+f4 = tail [1,2,3]
 
 fib 0 = 0
@@ -16 +28 @@
 fib n = fib (n-1) + fib (n-2)
 
+square n = n * n
+triple a = a + a + a
+
+main = putStrLn "Hello, World!"
+
+main = print $ 5 * 6 - 7
+-- main = print $ \x -> x * x $ 5 * 6 - 7