Andy Melnikov (nponeccop) wrote,
Andy Melnikov
nponeccop

F* - отказать

module Factorial
open DOM 

val factorial: number -> number
let rec factorial n = 
  if (n = 0) then 1
  else n * (factorial (n - 1))
Транслируется в:
/* factorial */
var x_5 = function (x_5_1) {
 var x_7_1 = undefined;
 var x_7 = undefined;
 var x_6_1 = undefined;
 return (/*let*/ x_6_1=(equalML(x_5_1)(0)), /*in*/
	(x_6_1 
	?/*then*/ 1 
	:/*else*/ (/*let*/ x_7=((x_5_1 - 1)), /*in*/
	(/*let*/ x_7_1=(x_5(x_7)), /*in*/
	(x_5_1 * x_7_1))))); 
};
и ещё в 998 строк такого же говна. Также видно, что equalML() каррирована, т.е. дизайн отличается.

По списку - [3,4,5]
Subscribe

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 12 comments