1 (* Written by Stephen
Weeks (sweeks@sweeks
.com
). *)
2 fun merge (l1
: int list
, l2
) =
6 |
(x1
:: l1
', x2
:: l2
') =>
8 then x1
:: merge (l1
', l2
)
9 else x2
:: merge (l1
, l2
')
16 val l1
= List.tabulate (len
, fn i
=> i
* 2)
17 val l2
= List.tabulate (len
, fn i
=> i
* 2 + 1)
20 if 0 = hd (merge (l1
, l2
))
27 else (test (); loop (n
- 1))