langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Function-composition/Standard-ML/function-composition-2.ml
+++ b/Task/Function-composition/Standard-ML/function-composition-2.ml
@ -0,0 +1,6 @@
+- fun compose (f, g) x = f (g x);
+val compose = fn : ('a -> 'b) * ('c -> 'a) -> 'c -> 'b
+- val sin_asin = compose (Math.sin, Math.asin);
+val sin_asin = fn : real -> real
+- sin_asin 0.5;
+val it = 0.5 : real