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
/
jump.sml
1
2
fun
doit
2
=
"zero"
3
| doit
6
=
"one"
4
| doit
10
=
"two"
5
| doit
14
=
"three"
6
| doit
18
=
"four"
7
| doit
22
=
"five"
8
| doit
26
=
"six"
9
| doit
30
=
"seven"
10
| doit
34
=
"eight"
11
| doit
38
=
"nine"
12
| doit
42
=
"ten"
13
| doit _
=
"big"
14
15
val
l
=
List
.
tabulate
(
50
,
fn
i
=>
i
)
16
17
val
_
=
List
.
app
(
fn
i
=>
print
((
doit i
)
^
"
\n
"
))
l