;;;; Some sample training data for the PDP system.
;;;; Type (pdp counter 4) to test it out.


(setf examples4     ; Training data for 4-bit parity.
 '( ((0)  0 0 0 0)  ;  - This is hard to learn, requiring
    ((1)  0 0 0 1)  ;    10's of thousands of training cycles
    ((1)  0 0 1 0)  ;    if only four hidden units allowed.
    ((0)  0 0 1 1)  ;    With more hidden units, learning
    ((1)  0 1 0 0)  ;    is faster.
    ((0)  0 1 0 1)
    ((0)  0 1 1 0)
    ((1)  0 1 1 1) 
    ((1)  1 0 0 0)
    ((0)  1 0 0 1)
    ((0)  1 0 1 0)
    ((1)  1 0 1 1)
    ((0)  1 1 0 0)
    ((1)  1 1 0 1)
    ((1)  1 1 1 0)
    ((0)  1 1 1 1)
 ))

(setf examples2     ; Training data for 2-bit parity.
 '( ((0)  0 0)      ;  - This is easier to learn, often
    ((1)  0 1)      ;    only taking several hundred training cycles.
    ((1)  1 0)
    ((0)  1 1)
  ))

(setf counter       ; Count how many "bits" are on.
 '( ((0 0)  0 0 0 0);  - Easy to learn, taking 
    ((0 1)  0 0 0 1);    about 100 training cycles
    ((0 1)  0 0 1 0);    with four hidden units.
    ((1 0)  0 0 1 1)
    ((0 1)  0 1 0 0)
    ((1 0)  0 1 0 1)
    ((1 0)  0 1 1 0)
    ((1 1)  0 1 1 1) 
    ((0 1)  1 0 0 0)
    ((1 0)  1 0 0 1)
    ((1 0)  1 0 1 0)
    ((1 1)  1 0 1 1)
    ((1 0)  1 1 0 0)
    ((1 1)  1 1 0 1)
    ((1 1)  1 1 1 0)
 ))