HCoop
/
hcoop
/
debian
/
mlton.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Import Upstream version 20180207
[hcoop/debian/mlton.git]
/
regression
/
weird-word2.sml
1
fun
fib
(
w
:
Word5
.
word
) :
Word5
.
word
=
2
if
w
<=
0
wx1
3
then
0
wx1
4
else
fib
(
w
-
0
wx1
) +
fib
(
w
-
0
wx2
)
5
6
val
s
=
7
case
(
fib
0
wx5
)
of
8
0
wx0
=>
"0wx0"
9
|
0
wx1
=>
"0wx1"
10
|
0
wx2
=>
"0wx2"
11
|
0
wx3
=>
"0wx3"
12
|
0
wx4
=>
"0wx4"
13
|
0
wx5
=>
"0wx5"
14
|
0
wx6
=>
"0wx6"
15
|
0
wx7
=>
"0wx7"
16
|
0
wx8
=>
"0wx8"
17
|
0
wx9
=>
"0wx9"
18
|
0
wxA
=>
"0wxA"
19
|
0
wxB
=>
"0wxB"
20
|
0
wxC
=>
"0wxC"
21
|
0
wxD
=>
"0wxD"
22
|
0
wxE
=>
"0wxE"
23
|
0
wxF
=>
"0wxF"
24
|
0
wx10
=>
"0wx10"
25
|
0
wx11
=>
"0wx11"
26
|
0
wx12
=>
"0wx12"
27
|
0
wx13
=>
"0wx13"
28
|
0
wx14
=>
"0wx14"
29
|
0
wx15
=>
"0wx15"
30
|
0
wx16
=>
"0wx16"
31
|
0
wx17
=>
"0wx17"
32
|
0
wx18
=>
"0wx18"
33
|
0
wx19
=>
"0wx19"
34
|
0
wx1A
=>
"0wx1A"
35
|
0
wx1B
=>
"0wx1B"
36
|
0
wx1C
=>
"0wx1C"
37
|
0
wx1D
=>
"0wx1D"
38
|
0
wx1E
=>
"0wx1E"
39
|
0
wx1F
=>
"0wx1F"
40
41
val
_
=
print
(
concat
[
s
,
"
\n
"
])