MITTutorialApril2009: fibExercise.fss
| File fibExercise.fss, 0.5 KB (added by sukyoungryu, 7 months ago) |
|---|
| Line | |
|---|---|
| 1 | component fibExercise |
| 2 | export Executable |
| 3 | |
| 4 | fib(n: ZZ32): ZZ32 = |
| 5 | fail("You still need to implement a fib function.") |
| 6 | |
| 7 | (********************************************************************************** |
| 8 | * TESTS |
| 9 | **********************************************************************************) |
| 10 | |
| 11 | run(): () = do |
| 12 | assert(fib(5) , 5) |
| 13 | assert(fib(10), 55) |
| 14 | assert(fib(20), 6765) |
| 15 | assert(fib(0) , 0) |
| 16 | try fib(-3) |
| 17 | catch x |
| 18 | FailCalled => () |
| 19 | end |
| 20 | println("Your fib appears to work.") |
| 21 | end |
| 22 | |
| 23 | end |
