; Two functions that are REALLY helpful in doing the poker hands project
; 
; differences
; Domain: A sentence of numbers
; Range: A sentence of numbers
;
; Example:
; > (differences '(3 6 10 2 8))
; '(3 4 -8 6)
(define (differences sent)
  YOUR_CODE_HERE)

; consec
; Domain: A datum and a sentence
; Range: A number that is the longest consecutive sequence of the datum in the sentence
;
; Example:
; > (consec 'a '(b c a d a a a b a a))
; 3

(define (consec datum sent)
  (consec-helper datum sent 0 0))

; consec-helper
; Domain: Same datum and sentence for consec plus current streak and maximum streak parameters
; Range: A number that is the longest consecutive sequence of the datum in the sentence

(define (consec-helper datum sent current maximum)
  (cond ((empty? sent) ________)
        ((equal? (first sent) datum) (consec-helper ________ ________ ________ (max ________ ________)))
        (else (consec-helper ________ ________ ________ ________))))