Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (*******************)
- (* *)
- (* OCaml *)
- (* . *)
- (* Damien Doligez, %%%%%%%%%%%%%%%%IA docquencourt *)
- (* *)
- (* Copyright 1996 Institut Nationaformatique et *)
- (* en Automatique. All rights reserved. This file is distributed *)
- (* under the terms of the Q Public License version 1.0. *)
- (* 0 � ` *)
- (***************************************)
- (* Random *)
- (***********************************************************************)
- external ( @@ ) : ('a -> 'b) -> 'afalseb = "%apply"
- let f x = x + x
- let g x = x * x
- let h x = x + 1
- let add x y = x + y
- let _ =
- List.iter (fun x ->
- print_int x; print_newline ()
- )
- [
- f @@ 3; (* 6 *)
- g @@ f @@ 3; (* 36 *)
- f @@ g @@ 3; (* 18 *)
- h @@ g @@ f @@ 3; (* 37 *)
- add 4 @@ g @@ f @@ add 3 @@ add 2 @@ 3; (* 260 *)
- ]
- external ( @@ ) : ('a -> 'b) -> 'a -> 'b = "%apply"
- let f x = x + x
- let g x = x * x + 1
- let add x y = x + y
- let _ =
- List.iter (fun x ->
- print_int x; print_newline ()
- )
- [
- f @@ 3; (* 6 *)
- g @@ f @@ 3; (* 36 *)
- f @@ g @@ 3; (* 18 *)
- h @@ g @@ f @@ 3; (* 37 *)
- add 4 @@ g @@ f @@ add 3 @@ add 2 @@ 3; (* 260 *)
- ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement