/*
  X**2 - 1

  Without ** (or pow_mod2/2, pow_mod/3)

  Solutions:

  [program = A * A - 2 / 2,res = 15.0,count = 26]
  [program = A * A - 1,res = 15,count = 24]
  [program = A * A - A / A,res = 15.0,count = 16]
  [program = (0 + A) * A - (0 + 1 * 1),res = 15,count = 4]
  [program = A * A - 6 / 6,res = 15.0,count = 3]

  resultMap = [15.0 = 3,15 = 2]


*/
data(power_test,Data,Vars,Unknown,Ops,Constants,MaxSize,Params) :- 
  % Data = [[[1],0],
  %         [[2],3],
  %         [[3],8]],
  % Vars = ['X'], 
  % Unknown = [4].
  make_point_seq([0,3,8],Data,Unknown,Vars),
  Ops = [+,-,*,/],
  Constants = 0..10,          
  MaxSize = 5,
  Params = new_map([num_gens=30]).