<commit_before>;; Part of Mickey Scheme
;;
;; Copyright (C) 2013 <NAME>
;; Distributed under the LGPL 2.1; see LICENSE

(define (make-list k . fill)
  (if (null? fill)
    (vector->list (make-vector k #f))
    (if (not (= 1 (length fill)))
      (error "make-list takes exactly one or two parameters")
      (vector->list (apply make-vector (cons k fill))))))
<commit_msg>Do not use vector->list and make-vector<commit_after>;; Part of Mickey Scheme
;;
;; Copyright (C) 2013 <NAME>
;; Distributed under the LGPL 2.1; see LICENSE

(define (make-list k . fill)
  (if (and (not (null? fill))
           (> (length fill) 1))
    (error "make-list accepts exactly one or two parameters"))

  (let
    ((f (if (null? fill) #f
            (car fill))))

    (if (<= k 0) '()
        (cons f (make-list (- k 1) f)))))

{'fraction_non_alphanumeric': 0.16666666666666666, 'fraction_numerical': 0.019753086419753086, 'mean_word_length': 2.917874396135266, 'pattern_counts': {'":': 0, '<': 6, '<?xml version=': 0, '>': 9, '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': '4713066', 'n_tokens_mistral': 290, 'n_tokens_neox': 266, 'n_words': 104}