<commit_before>#lang racket/base
(provide
  po?
  po-vector po-vector? po-vector-x*
  po-vector-length po-vector-length? po-vector-length-v
  po-vector-ref po-vector-ref? po-vector-ref-v

  po-cons po-cons? po-cons-a po-cons-d
  po-car po-car? po-car-c
  po-cdr po-cdr? po-cdr-c

  po-char->integer po-char->integer? po-char->integer-x
  po-integer->char po-integer->char? po-integer->char-x
  po-string->vector po-string->vector? po-string->vector-x
  po-vector->string po-vector->string? po-vector->string-x
  po-string->symbol po-string->symbol? po-string->symbol-x
  po-symbol->string po-symbol->string? po-symbol->string-x
  po-mvector->vector po-mvector->vector? po-mvector->vector-v

  po-charp po-charp? po-charp-x
  po-stringp po-stringp? po-stringp-x
  po-vectorp po-vectorp? po-vectorp-x
  po-mvectorp po-mvectorp? po-mvectorp-x
  po-pairp po-pairp? po-pairp-x
  po-symbolp po-symbolp? po-symbolp-x
  po-numberp po-numberp? po-numberp-x
  po-procedurep po-procedurep? po-procedurep-x

  po-eq po-eq? po-eq-x po-eq-y
  po-eqv po-eqv? po-eqv-x po-eqv-y

  po-= po-=? po-=-x
  po-<= po-<=? po-<=-a po-<=-b
  po-< po-<? po-<-a po-<-b
  po-+ po-+? po-+-a po-+-b
  po-* po-*? po-*-a po-*-b

  po-make-mvector po-make-mvector? po-make-mvector-n
  po-mvector-length po-mvector-length? po-mvector-length-v
  po-mvector-ref po-mvector-ref? po-mvector-ref-v

  po-mvector-set! po-mvector-set!?
  po-mvector-set!-v po-mvector-set!-i po-mvector-set!-x
  )
(require "record.rkt")

(define-record-variant
  po?
  (po-vector po-vector? po-vector-x*)
  (po-vector-length po-vector-length? po-vector-length-v)
  (po-vector-ref po-vector-ref? po-vector-ref-v)

  (po-cons po-cons? po-cons-a po-cons-d)
  (po-car po-car? po-car-c)
  (po-cdr po-cdr? po-cdr-c)

  (po-char->integer po-char->integer? po-char->integer-x)
  (po-integer->char po-integer->char? po-integer->char-x)
  (po-string->vector po-string->vector? po-string->vector-x)
  (po-vector->string po-vector->string? po-vector->string-x)
  (po-string->symbol po-string->symbol? po-string->symbol-x)
  (po-symbol->string po-symbol->string? po-symbol->string-x)
  (po-mvector->vector po-mvector->vector? po-mvector->vector-v)

  (po-charp po-charp? po-charp-x)
  (po-stringp po-stringp? po-stringp-x)
  (po-vectorp po-vectorp? po-vectorp-x)
  (po-mvectorp po-mvectorp? po-mvectorp-x)
  (po-pairp po-pairp? po-pairp-x)
  (po-symbolp po-symbolp? po-symbolp-x)
  (po-numberp po-numberp? po-numberp-x)
  (po-procedurep po-procedurep? po-procedurep-x)

  (po-eq po-eq? po-eq-x po-eq-y)
  (po-eqv po-eqv? po-eqv-x po-eqv-y)

  (po-= po-=? po-=-x)
  (po-<= po-<=? po-<=-a po-<=-b)<commit_msg>Remove eq, only keep eqv<commit_after>#lang racket/base
(provide
  po?
  po-vector po-vector? po-vector-x*
  po-vector-length po-vector-length? po-vector-length-v
  po-vector-ref po-vector-ref? po-vector-ref-v

  po-cons po-cons? po-cons-a po-cons-d
  po-car po-car? po-car-c
  po-cdr po-cdr? po-cdr-c

  po-char->integer po-char->integer? po-char->integer-x
  po-integer->char po-integer->char? po-integer->char-x
  po-string->vector po-string->vector? po-string->vector-x
  po-vector->string po-vector->string? po-vector->string-x
  po-string->symbol po-string->symbol? po-string->symbol-x
  po-symbol->string po-symbol->string? po-symbol->string-x
  po-mvector->vector po-mvector->vector? po-mvector->vector-v

  po-charp po-charp? po-charp-x
  po-stringp po-stringp? po-stringp-x
  po-vectorp po-vectorp? po-vectorp-x
  po-mvectorp po-mvectorp? po-mvectorp-x
  po-pairp po-pairp? po-pairp-x
  po-symbolp po-symbolp? po-symbolp-x
  po-numberp po-numberp? po-numberp-x
  po-procedurep po-procedurep? po-procedurep-x

  po-eqv po-eqv? po-eqv-x po-eqv-y

  po-= po-=? po-=-x
  po-<= po-<=? po-<=-a po-<=-b
  po-< po-<? po-<-a po-<-b
  po-+ po-+? po-+-a po-+-b
  po-* po-*? po-*-a po-*-b

  po-make-mvector po-make-mvector? po-make-mvector-n
  po-mvector-length po-mvector-length? po-mvector-length-v
  po-mvector-ref po-mvector-ref? po-mvector-ref-v

  po-mvector-set! po-mvector-set!?
  po-mvector-set!-v po-mvector-set!-i po-mvector-set!-x
  )
(require "record.rkt")

(define-record-variant
  po?
  (po-vector po-vector? po-vector-x*)
  (po-vector-length po-vector-length? po-vector-length-v)
  (po-vector-ref po-vector-ref? po-vector-ref-v)

  (po-cons po-cons? po-cons-a po-cons-d)
  (po-car po-car? po-car-c)
  (po-cdr po-cdr? po-cdr-c)

  (po-char->integer po-char->integer? po-char->integer-x)
  (po-integer->char po-integer->char? po-integer->char-x)
  (po-string->vector po-string->vector? po-string->vector-x)
  (po-vector->string po-vector->string? po-vector->string-x)
  (po-string->symbol po-string->symbol? po-string->symbol-x)
  (po-symbol->string po-symbol->string? po-symbol->string-x)
  (po-mvector->vector po-mvector->vector? po-mvector->vector-v)

  (po-charp po-charp? po-charp-x)
  (po-stringp po-stringp? po-stringp-x)
  (po-vectorp po-vectorp? po-vectorp-x)
  (po-mvectorp po-mvectorp? po-mvectorp-x)
  (po-pairp po-pairp? po-pairp-x)
  (po-symbolp po-symbolp? po-symbolp-x)
  (po-numberp po-numberp? po-numberp-x)
  (po-procedurep po-procedurep? po-procedurep-x)

  (po-eqv po-eqv? po-eqv-x po-eqv-y)

  (po-= po-=? po-=-x)
  (po-<= po-<=? po-<=-a po-<=-b)
{'fraction_non_alphanumeric': 0.2, 'fraction_numerical': 0.0, 'mean_word_length': 3.052836052836053, 'pattern_counts': {'":': 0, '<': 27, '<?xml version=': 0, '>': 87, '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': '2111048', 'n_tokens_mistral': 2371, 'n_tokens_neox': 2321, 'n_words': 379}