GeezerVisonThe World Wide Web, restored to 800 pixels of glory. |
| Home|About|Gaming cabinet|Archives|How it works|Starter sites |
GeezerVison is showing github.com — lambda-ski/Example.hs at main · thma/lambda-ski Expand file tree/ Copy pathExample.hsMore file actions 9 lines (6 loc) · 173 Bytes / Copy pathExample.hsFile metadata and controls9 lines (6 loc) · 173 Bytes 1 2 3 4 5 6 7 8 9 module Example where --fix :: (Int -> Int) -> Int fix f = f $ fix f fib :: Int -> Int fib = fix (\f n -> if n <= 2 then 1 else f (n-1) + f (n - 2)) main = print (fib 10) |
| You are visitor 01402520 — GeezerVison does not store the pages you look up. Best viewed with Netscape Navigator 4.7 or Internet Explorer 6 at 800×600. No cookies required. |