File: fib.sml

package info (click to toggle)
mlton 20100608-2
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 34,980 kB
  • ctags: 69,089
  • sloc: ansic: 18,421; lisp: 2,879; makefile: 1,570; sh: 1,325; pascal: 256; asm: 97
file content (18 lines) | stat: -rw-r--r-- 383 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
val rec fib =
   fn 0 => 0
    | 1 => 1
    | n => fib (n - 1) + fib (n - 2)

structure Main =
   struct
      fun doit n =
         if n = 0
            then ()
         else let
                 val _ = if 165580141 <> fib 41
                            then raise Fail "bug"
                         else ()
              in
                 doit (n - 1)
              end
   end