/*
  http://forums.anandtech.com/showthread.php?p=29473624
  """
  Not sure if this is the correct section but I'll give it a shot. I'm 
  looking for numeric sequence prediction program. Say if I input a 
  set of   or #s say three times and see if it can find a pattern on 
  the next #. 
  say if I input

  first input 3 0 0 4 2 9 6
  second input 4 1 1 5 3 0 7
  third input 5 2 2 6 4 1 8

  Now if you're looking at the above   you would notice that I add one 
  to each   every round. I need a program that can find patterns like that 
  and predict the next #. Basically a program that can think and uses a 
  gizillion methods to see if there is a trend/pattern and try to come 
  up with the next set of #s. Is there such program and can I acquire 
  it for use.

  Or a second example would be something like this:
  First set will be a+b+c = D
  second set (D+a)+(D+b)+(D+c) = D
  third set will be the same as second set because it just repeats the 
  same process so a,b,c would be what I would inpute and D would 
  total +a,b,c and so on.
  
  Is there such program? Also if i'm not clear on anything please let me know. 
  """

  [program = B + 1,res = 3,count = 11]
  [program = 1 + B,res = 3,count = 10]
  [program = 1 + (A + B - A),res = 3,count = 8]
  [program = 5 mod 4 + B,res = 3,count = 7]
  [program = 1 mod 10 + B,res = 3,count = 6]
  [program = 3 + (B - 2 mod 7),res = 3,count = 6]
  [program = 8 + (B - 7),res = 3,count = 4]
  [program = B - (B - B - 1),res = 3,count = 3]
  [program = 5 - (9 - B - 5),res = 3,count = 3]
  [program = B + 8 / 8,res = 3.0,count = 3]
  [program = 9 + (B - 8),res = 3,count = 3]
  [program = B + 9 mod 2,res = 3,count = 2]
  [program = (A - 8) mod 10,res = 3,count = 1]
  [program = B mod 9 - (4 / 1 - 5),res = 3.0,count = 1]
  [program = 3 - (2 - B),res = 3,count = 1]
  [program = 1 mod 10 + (A + B - A),res = 3,count = 1]

  resultMap = [3 = 14,3.0 = 2]


   Cf problem1.conf

*/
data(problem1,Data,Vars,Unknown,Ops,Constants,MaxSize,Params) :-
  Data = [
    [[3,4],5],
    [[0,1],2],
    [[4,5],6],
    [[2,3],4],
    [[9,0],1],
    [[6,7],8]
    ],
  Unknown = [1,2],
  Vars = ['A','B'],
  Ops = [+,-,*,/,mod],
  Constants = 1..10,          
  MaxSize = 6,
  Params = new_map().