<commit_before>;;;; Sums tow Arrays and returns the sum of the both ;;;;

(defun sum-a2 (array1 array2)
  (if (equal NIL array1)
    NIL
    (cons
      (mapcar #' + (first array1) (first array2))
      (sum-a2 (rest array1) (rest array2))
    )
  )
)<commit_msg>Update sum-a2.lisp<commit_after>;;;; Sums tow Arrays and returns the sum of the both ;;;;

(defun sum-a2 (array1 array2)
  (if (or (null array1 (null array2))
    NIL
    (cons
      (+ (first array1) (first array2))
      (sum-a2 (rest array1) (rest array2))
    )
  )
)
{'fraction_non_alphanumeric': 0.14794007490636704, 'fraction_numerical': 0.03745318352059925, 'mean_word_length': 2.8768115942028984, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2830650', 'n_tokens_mistral': 211, 'n_tokens_neox': 207, 'n_words': 64}