HCoop
/
hcoop
/
debian
/
mlton.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Import Debian changes 20180207-1
[hcoop/debian/mlton.git]
/
regression
/
weird-word1.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
| _
=>
"zzz"
25
26
val
_
=
print
(
concat
[
s
,
"
\n
"
])