Changes in hh2008/naoya_t/trunk/test.hs [22:18]

Files:

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

hh2008/naoya_t/trunk/test.hs

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