root/hh2008/naoya_t/trunk/test.hs
@
21
Revision 18, 307 bytes (checked in by naoya_t, 17 years ago) |
---|
Line | |
---|---|
1 | main = putStrLn "Hello, World!" |
2 | |
3 | -- main = do { cs <- getContents ; print $ length $ lines cs } |
4 | |
5 | firstNLines n cs = unlines $ take n $ lines cs |
6 | |
7 | -- main = print $ 5 + 2 * 5 |
8 | rmain = print $ tail [1,2,3] |
9 | -- main = tail [1,2,3] |
10 | |
11 | tail [1,2,3] |
12 | print [1,2,3,4] |
13 | |
14 | fib 0 = 0 |
15 | fib 1 = 1 |
16 | fib n = fib (n-1) + fib (n-2) |
17 |
Note: See TracBrowser
for help on using the browser.