/*
  Test of the modulo (mod/2) operator.

  Solutions:

  * Using make_point_seq(Seq,Data,Unknown,Vars),
    code = (1 + (A mod 3)) = [[[1],2],[[2],3],[[3],1],[[4],2],[[5],3],[[6],1],[[7],2],[[8],3],[[9],1],[[10],2]] = [[11] = 3]

  * Using make_seq(Seq,1,Data,Unknown,Vars),
    code = (7 mod (6 - A)) = [[[2],3],[[3],1],[[1],2],[[2],3],[[3],1],[[1],2],[[2],3],[[3],1],[[1],2]] = [[2] = 3]


  Cf http://hakank.org/jgap/mod_test.conf
*/
data(mod_test,Data,Vars,Unknown,Ops,Constants,MaxC) :-
  Seq = [(I mod 3) + 1 : I in 1..10],
  (
    println("\nmake_point_seq:"), make_point_seq(Seq,Data,Unknown,Vars)
    ;
    println("\nmake_seq:"), 
    make_seq(Seq,1,Data,Unknown,Vars)
  ),
  println(data=Data),
  Ops = new_map([infix=["+","-","*","/","mod"]]),
  Constants = 0..10,
  MaxC = 4.