查找 Common Lisp 中的字符频率

Question

例如，如果我输入字符序列

“Hello world”H = 1 e = 1 l = 3 o - 2 r = 1 w = 1 d = 1

有人可以帮助我吗

我发现了这个 代码在线，但我不明白，我想要一个更简单的代码

(defun letter-freq (file)
 (with-open-file (stream file)
  (let ((str (make-string (file-length stream)))
        (arr (make-array 256 :element-type 'integer :initial-element 0)))
    (read-sequence str stream)
    (loop for c across str do (incf (aref arr (char-code c))))
    (loop for c from 32 to 126 for i from 1 do
      (format t "~c: ~d~a"
        (code-char c) (aref arr c)
        (if (zerop (rem i 8)) #\newline #\tab))))))

(letter-freq "test.lisp")

Answer 1

上面的代码是针对 ASCII 字符的。如果您想对任何可能的字符执行相同的操作，可以使用哈希表。

(defun letter-freq (file)
  (with-open-file (stream file)
    (let ((str (make-string (file-length stream)))
          (ht (make-hash-table)))
      (read-sequence str stream)
      (loop :for char :across str :do
        (incf (gethash char ht 0)))
      (maphash (lambda (k v)
                 (format t "~@C: ~D~%" k v))
               ht))))

~@C 格式指令打印字符，就像通过 prin1 一样。

Answer 2

我会将任务分成 2 个较小的任务：

1 读取一个文件并返回一个字符串
2 统计字符串中字符的字母频率

For 1，您可以使用文件字符串函数（https://github.com/kugelblitz/young/blob/master/external-helpers .lisp）

对于 2，您可以使用“bag”数据结构，和偏移量包库（http://common-lisp.net/project/fset/）：

(defun letter-freq (str)
  (let ((bg (fset:convert 'fset:bag str)))
    (fset:do-bag-pairs (value mult bg)
                       (format t "~a: ~a~%" value mult))))

Answer 3

这段代码并不难理解。它打开文件并将其读入字符串中。同时，它还创建一个数组来保存结果（大小为 256，因为理论上您可以有超过 128 个的非打印字符，我猜）。然后它循环遍历数组并递增数组中相应的元素。例如，“a”是 32，因此当它找到“a”时，它会将数组元素递增 32。

最后，它仅循环遍历可打印字符结果并将其打印出来。

Answer 4

我倾向于同意drysdam的观点。我已经有一段时间没有接触过任何 Common Lisp 代码了，并且能够以一般的理解来阅读这个示例，正如他所描述的那样。

我不知道你使用的是哪种 Lisp 环境，但即使在裸露的 CL REPL （读取 eval 打印循环）中，你也可以要求系统 (describe 'some-unknown-symbol)< /代码>。如果你碰巧“被迫”使用 Emacs，它有 SLIME

我看到这是你今天第二个与 Lisp 相关的问题。也许读一些书籍会更好。