<commit_before>;;;; nix operating system project
;;;; list processor environment
;;;; Copyright (C) 2005-2006 <NAME> <<EMAIL>>
;;;;
;;;; Comparison

(defun equal (x y)
  "Return T if arguments are the same or have the same value."
  (if (or (atom x) (atom y))
    (eql x y)
    (if (equal (car x) (car y))
      (equal (cdr x) (cdr y)))))

(define-test "EQUAL fails on different lists"
  ((equal '(1 2) '(3 4)))
  nil)

(defun >= (x y)
  (or (= x y)
      (> x y)))

(defun <= (x y)
  (or (= x y)
      (< x y)))

(defun neql (&rest args)
  "Return (not (eql ...)."
  (not (apply #'eql args)))<commit_msg>Test EQUAL with cells.<commit_after>;;;;; TRE environment
;;;;; Copyright (C) 2005-2006,2008-2009 <NAME> <<EMAIL>>
;;;;;
;;;;; Comparison

(defun equal (x y)
  "Return T if arguments are the same or have the same value."
  (if
	(or (atom x)
		(atom y))
      (eql x y)
    (equal (car x)
		   (car y))
      (equal (cdr x)
			 (cdr y))))

(define-test "EQUAL with CONS"
  ((equal (list 'x)
		  (list 'x)))
  t)

(define-test "EQUAL fails on different lists"
  ((equal '(1 2) '(3 4)))
  nil)

(defun >= (x y)
  (or (= x y)
      (> x y)))

(defun <= (x y)
  (or (= x y)
      (< x y)))

(defun neql (&rest args)
  "Return (not (eql ...)."
  (not (apply #'eql args)))
{'fraction_non_alphanumeric': 0.2110236220472441, 'fraction_numerical': 0.025196850393700787, 'mean_word_length': 2.7492625368731565, 'pattern_counts': {'":': 0, '<': 13, '<?xml version=': 0, '>': 13, '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': '6120099', 'n_tokens_mistral': 555, 'n_tokens_neox': 503, 'n_words': 184}