명령행 인자 처리 예제 for OCaml

 

소스 파일명: testArguments.ml

1. (*
2.    Filename: testArguments.ml
4.    Execute: ocaml testArguments.ml 1.2 2.1 3.00
6.      Or
8.    Compile: ocamlc -o testArguments testArguments.ml
9.    Execute: ./pyramidOfDigits2 1.2 2.1 3.00
11.      Or
13.    Compile: ocamlc -o testArguments.exe testArguments.ml
14.    Execute: testArguments 1.2 2.1 3.00
16.    Date: 2013. 1. 26.
17.    Copyright (c) pkim _AT_ scripts.pe.kr
18. *)
20. let main() =
21.     let args = Sys.argv in
22.     let args1 = Array.to_list args in
23.     let arr1 = List.tl args1 in
24.     let arr = List.map float_of_string arr1 in
25.     Printf.printf "Count of arguments: %d\n" (List.length arr);
26.     Printf.printf "The sum of arguments is %g\n" (List.fold_right (+.) arr 0.0);
27.     print_newline();;
29. main();;

 

컴파일> ocamlc -o testArguments.exe testArguments.nl

실행> testArguments 5.2 7.9 -1.21
Count of arguments: 3
The sum of arguments is 11.89