Advertisement
Guest User

Untitled

a guest
Jan 18th, 2018
165
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.66 KB | None | 0 0
  1. (*
  2. ** Factorial
  3. *)
  4.  
  5. (* ****** ****** *)
  6.  
  7. #define
  8. LIBATSCC2JS_targetloc
  9. "contrib/libatscc2js/ATS2-0.3.2"
  10.  
  11. (* ****** ****** *)
  12.  
  13. #include
  14. "{$LIBATSCC2JS}/staloadall.hats"
  15.  
  16. (* ****** ****** *)
  17.  
  18. staload
  19. "{$LIBATSCC2JS}/SATS/print.sats"
  20.  
  21. (* ****** ****** *)
  22.  
  23. #define ATS_MAINATSFLAG 1
  24. #define ATS_DYNLOADNAME "my_dynload"
  25.  
  26. (* ****** ****** *)
  27. //
  28. fun
  29. fact(n: int): int =
  30. if n > 0 then n * fact(n-1) else 1
  31. //
  32. (* ****** ****** *)
  33. //
  34. val N = 10
  35. //
  36. val () = println! ("fact(", N, ") = ", fact(N))
  37. //
  38. (* ****** ****** *)
  39.  
  40. %{$
  41. //
  42. ats2jspre_the_print_store_clear();
  43. my_dynload();
  44. alert(ats2jspre_the_print_store_join());
  45. //
  46. %} // end of [%{$]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement