added new 1d-arc examples

Author: andrewcropper

examples/1d_flip/bias.pl

@@ -0,0 +1,87 @@
+
+max_vars(7).
+max_body(20).
+
+non_datalog.
+
+:- not body_var(_,1).
+:- not body_var(_,2).
+
+
+head_pred(out,3).
+body_pred(in,3).
+body_pred(my_succ,2).
+body_pred(add,3).
+body_pred(lt,2).
+body_pred(empty,2).
+body_pred(C,1):-constant(C,_).
+
+pred_task_specific(in).
+pred_task_specific(empty).
+
+constant(v0, value).
+constant(v1, value).
+constant(v2, value).
+constant(v3, value).
+constant(v4, value).
+constant(v5, value).
+constant(v6, value).
+constant(v7, value).
+constant(v8, value).
+constant(v9, value).
+
+constant(c0, position).
+constant(c1, position).
+constant(c2, position).
+constant(c3, position).
+constant(c4, position).
+constant(c5, position).
+constant(c6, position).
+constant(c7, position).
+constant(c8, position).
+constant(c9, position).
+
+type(empty,(ex,position)).
+type(out,(ex,position,value)).
+type(in,(ex,position,value)).
+type(my_succ,(position,position)).
+type(add,(position,position,position)).
+type(lt,(position,position)).
+type(C,(T,)):- constant(C,T).
+
+%% %% BECAUSE WE DO NOT LEARN FROM INTERPRETATIONS
+bad_body(in, Vars):-
+    vars(_, Vars),
+    Vars = (V0,_,_),
+    V0 != 0.
+
+bad_body(empty, Vars):-
+    vars(_, Vars),
+    Vars = (V0,_),
+    V0 != 0.
+
+%:- body_literal(Rule,add,_,(A,B,C)), body_literal(Rule,lt,_,(B,C)).
+%:- body_literal(Rule,add,_,(A,B,C)), body_literal(Rule,lt,_,(A,C)).
+
+% SOUND! add/3 must be used with a non-const argument [reducer discovers it]
+:- body_literal(Rule,add,_,(A,B,C)), body_literal(Rule,P,_,(A,)), body_literal(Rule,Q,_,(B,)), constant(P,position), constant(Q,position), P != Q.
+:- body_literal(Rule,add,_,(A,B,C)), body_literal(Rule,P,_,(A,)), body_literal(Rule,Q,_,(C,)), constant(P,position), constant(Q,position), P != Q.
+:- body_literal(Rule,add,_,(A,B,C)), body_literal(Rule,P,_,(B,)), body_literal(Rule,Q,_,(C,)), constant(P,position), constant(Q,position), P != Q.
+
+% SOUND! lt/3 must be used with a non-const argument [reducer discovers it]
+:- body_literal(Rule,lt,_,(A,B)), body_literal(Rule,P,_,(A,)), body_literal(Rule,Q,_,(B,)), constant(P,position), constant(Q,position), P != Q.
+
+% SOUND! succ/2 cannot be used with a const argument [reducer discovers it]
+:- body_literal(Rule,my_succ,_,(A,B)), body_literal(Rule,P,_,(A,)), constant(P,position).
+:- body_literal(Rule,my_succ,_,(A,B)), body_literal(Rule,P,_,(B,)), constant(P,position).
+
+%% SOUND! no point having in(A,B,C) where both B and C are not used [shrinker discovers it]
+%:- body_literal(R, in, 3, (A,B,C)), singleton(B), singleton(C).
+
+:- body_literal(Rule,add,_,(A,_,_)), body_literal(Rule,c0,_,(A,)).
+:- body_literal(Rule,add,_,(_,B,_)), body_literal(Rule,c0,_,(B,)).
+:- body_literal(Rule,add,_,(_,_,C)), body_literal(Rule,c0,_,(C,)).
+
+:- body_literal(Rule,add,_,(A,_,_)), body_literal(Rule,c1,_,(A,)).
+:- body_literal(Rule,add,_,(_,B,_)), body_literal(Rule,c1,_,(B,)).
+:- body_literal(Rule,add,_,(_,_,C)), body_literal(Rule,c1,_,(C,)).