root/hh2008/naoya_t/trunk/test.hs
@
18
Revision 18, 307 bytes (checked in by naoya_t, 17 years ago) |
---|
Rev | Line | |
---|---|---|
[18] | 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.