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 (8 lines) | stat: -rw-r--r-- 197 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
 
open Py;;

initialize ();;

let plus x y =
  let foo = import "foo" in
  let py_plus = Module.get_function foo (*!*) "plus" (*! "mult" *) in
  Int.to_int (py_plus [| Int.of_int x; Int.of_int y |])