Mo-Er-Duo: the Most Frequent French n-Grams With Audio

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

  (defun user:read-lines (filepath)
    (with-open-file (stream filepath)
                    (loop for line = (read-line stream nil nil)
                          while line
                          collect line)))

  (let ((files (directory-files "../../static/french-5gram/" nil "wav$"))
        ;; read lines in a file as a list 
        (phrases (user:read-lines "../../static/french-5gram/5gram_nr_celeste_part1.csv"))
        )
    (car phrases)
    )

1

  (elt  1)