mirror of
https://github.com/ProgramSnail/pass_strategy_synthesis.git
synced 2026-03-12 02:57:09 +00:00
17 lines
412 B
OCaml
17 lines
412 B
OCaml
|
open GT
|
||
|
|
open OCanren
|
||
|
|
|
||
|
|
module Tag = struct
|
||
|
|
[@@@warning "-26-27-32-33-34-35-36-37-38-39-60-66-67"]
|
||
|
|
ocanren type tag = Ref | Value
|
||
|
|
|
||
|
|
module Test = struct
|
||
|
|
|
||
|
|
@type answer = logic GT.list with show
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
Printf.printf "%s" @@ show(answer) (Stream.take (run q (fun q -> ocanren {q === Ref})
|
||
|
|
(fun q -> q#reify reify)))
|
||
|
|
end
|
||
|
|
end
|