--
You received this message because you are subscribed to the Google Groups "ats-lang-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ats-lang-user...@googlegroups.com.
To post to this group, send email to ats-lan...@googlegroups.com.
Visit this group at http://groups.google.com/group/ats-lang-users.
To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/92d37708-5bbb-4640-ad1f-354e75802fb5%40googlegroups.com.
--
You received this message because you are subscribed to the Google Groups "ats-lang-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ats-lang-user...@googlegroups.com.
To post to this group, send email to ats-lan...@googlegroups.com.
Visit this group at http://groups.google.com/group/ats-lang-users.
To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/94b73663-3d66-4a5d-9da5-3764d6bd1391%40googlegroups.com.
--
You received this message because you are subscribed to the Google Groups "ats-lang-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ats-lang-user...@googlegroups.com.
To post to this group, send email to ats-lan...@googlegroups.com.
Visit this group at http://groups.google.com/group/ats-lang-users.
To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/f3dc8364-8b56-4646-b23e-37f5b5bb1f77%40googlegroups.com.
Fixed. Thanks!
--
You received this message because you are subscribed to the Google Groups "ats-lang-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ats-lang-user...@googlegroups.com.
To post to this group, send email to ats-lan...@googlegroups.com.
Visit this group at http://groups.google.com/group/ats-lang-users.
To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/be35a807-b960-4dd3-8773-259a2f6ab988%40googlegroups.com.
I don't remember of any already existing one, so I'm opening this thread where to report any errors in the docs, instead of opening a new thread for each possible eventual errors (saying that, I don't want to mean there are many).
I don't remember of any already existing one, so I'm opening this thread where to report any errors in the docs, instead of opening a new thread for each possible eventual errors (saying that, I don't want to mean there are many).
fun imul2{i,j:int}
(i: int i, j: int j): [ij:int] (MUL(i, j, ij) | int ij)
extern fn imul2
{i,j:int}
(i: int i, j: int j): [ij:int] (MUL(i, j, ij) | int ij)
dataprop FACT(int, int) =
| FACTbas(0, 1)
| {n:nat} {r1,r:int} FACTind(n, r) of (FACT(n-1, r1), MUL(n, r1, r))
fun ifact {n:nat} .<n>. (n: int(n)):<> [r:int] (FACT(n, r) | int r) =
if n = 0
then (FACTbas() | 1)
else
let
val (pf1 | r1) = ifact (n-1) // pf1: FACT(n-1, r1)
val (pfmul | r) = imul2 (n, r1) // pfmul: FACT(n, r1, r)
in (FACTind(pf1, pfmul) | r)
end
--
You received this message because you are subscribed to the Google Groups "ats-lang-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ats-lang-user...@googlegroups.com.
To post to this group, send email to ats-lan...@googlegroups.com.
Visit this group at http://groups.google.com/group/ats-lang-users.
To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/1409a3c0-1abb-4b65-9942-bec61f64042d%40googlegroups.com.
implement
{a}(*tmp*)
array_copy_from_list
(A, xs) = let
[…] = let
//
fun loop
(
p: ptr, xs: list0 (a)
) : void =
implement
{a}(*tmp*)
array_copy_from_list
(A, xs: list0 (a)) = let
[…]
I don't remember of any already existing one, so I'm opening this thread where to report any errors in the docs, instead of opening a new thread for each possible eventual errors (saying that, I don't want to mean there are many).
[…]
fun fact
{n: int} (n: int n): int = let
fun loop {n: int} .<n>. (n: int n, res: int): int =
if n > 0 then loop (n, n * res) else res
// end of [loop]
in
loop (n, 1)
end // end of [fact]
fun fact
{n: nat} (n: int n): int = let
fun loop {n: nat} .<n>. (n: int n, res: int): int =
if n > 0 then loop (n - 1, n * res) else res
// end of [loop]
in
loop (n, 1)
end // end of [fact]
--
You received this message because you are subscribed to the Google Groups "ats-lang-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ats-lang-user...@googlegroups.com.
To post to this group, send email to ats-lan...@googlegroups.com.
Visit this group at http://groups.google.com/group/ats-lang-users.
To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/dc10bab4-ad2f-4f28-819f-9a87f478b074%40googlegroups.com.
[…]
--
You received this message because you are subscribed to the Google Groups "ats-lang-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ats-lang-user...@googlegroups.com.
To post to this group, send email to ats-lan...@googlegroups.com.
Visit this group at http://groups.google.com/group/ats-lang-users.
To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/4b1809f7-2099-4943-ae98-1c2064666d72%40googlegroups.com.