File: Extract.ml

package info (click to toggle)
coq-quickchick 2.1.1-2
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 2,432 kB
  • sloc: ml: 4,367; ansic: 789; makefile: 388; sh: 27; python: 4; lisp: 2; perl: 2
file content (9 lines) | stat: -rw-r--r-- 240 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
 
open Unix;;

let plus x y =
  let (ic, oc) = open_process "python3 foo.py" in
  output_string oc (string_of_int x ^ " " ^ string_of_int y);
  close_out oc;
  let str = input_line ic in
  ignore (close_process (ic, oc));
  int_of_string str