Commit | Line | Data |
---|---|---|
7f918cf1 CE |
1 | fun fib (w: Word5.word) : Word5.word = |
2 | if w <= 0wx1 | |
3 | then 0wx1 | |
4 | else fib (w - 0wx1) + fib (w - 0wx2) | |
5 | ||
6 | val s = | |
7 | case (fib 0wx5) of | |
8 | 0wx0 => "0wx0" | |
9 | | 0wx1 => "0wx1" | |
10 | | 0wx2 => "0wx2" | |
11 | | 0wx3 => "0wx3" | |
12 | | 0wx4 => "0wx4" | |
13 | | 0wx5 => "0wx5" | |
14 | | 0wx6 => "0wx6" | |
15 | | 0wx7 => "0wx7" | |
16 | | 0wx8 => "0wx8" | |
17 | | 0wx9 => "0wx9" | |
18 | | 0wxA => "0wxA" | |
19 | | 0wxB => "0wxB" | |
20 | | 0wxC => "0wxC" | |
21 | | 0wxD => "0wxD" | |
22 | | 0wxE => "0wxE" | |
23 | | 0wxF => "0wxF" | |
24 | | _ => "zzz" | |
25 | ||
26 | val _ = print (concat [s, "\n"]) |