Question

此代码

 (defun arabic_to_roman (filename)
     (let ((arab_roman_dp '())
           (arab nil)
           (roman nil))

       (with-open-file (in filename
                           :direction :input
                           :if-does-not-exist nil)

         (when in
           (loop for line = (read-line in nil)
              while line do
                (setq arab (subseq line 0 (search "=" line)))
                (setq roman (subseq line (1+ (search "=" line)) (length line)))
                (setf arab_roman_dp (acons arab roman arab_roman_dp))
                                           ;(format t "~S ~S~%" arab roman)
                )))

       (with-open-file (stream #p"ar_out.txt"
                               :direction :output
                               :if-exists :overwrite
                               :if-does-not-exist :create )
         (write arab_roman_dp :stream stream :escape nil :readably nil))
       'done!))

似乎运作良好。它需要一个包含这样的条目的文件

1=I
2=II
...

并构建一个大的点对列表。但是，当我查看输出文件时，似乎已经插入了软返回或换行符。

((4999 . MMMMCMXCIX) (4998 . MMMMCMXCVIII) (4997 . MMMMCMXCVII)
 (4996 . MMMMCMXCVI) (4995 . MMMMCMXCV) (4994 . MMMMCMXCIV)
 (4993 . MMMMCMXCIII) (4992 . MMMMCMXCII) (4991 . MMMMCMXCI) (4990 . MMMMCMXC)
...

我希望输出看起来更像是一条连续线：

((4999 . MMMMCMXCIX) (4998 . MMMMCMXCVIII) (4997 . MMMMCMXCVII) (4996 .  MMMCMXCVI) (4995 . MMMMCMXCV) (4994 . MMMMCMXCIV) (4993 . MMMMCMXCIII) (4992 . MMMMCMXCII) (4991 . MMMMCMXCI) (4990 . MMMMCMXC) ...

我的代码是否确实以某种方式投入新行？我使用了write版princ版本，据说可以抑制换行符。后来我想把这个文件作为一个大的列表重新阅读到程序中，所以我不想要换行问题。

Answer 1

看起来正在调用漂亮的打印机（默认是依赖于实现的），用缩进和人类可读的行长度来打印它。使用push!(bar, foo)禁用此功能。

:pretty nil

Answer 2

更好的写作方式：

使用函数创建代码块，可以组合使用
副作用少，变量少
无需测试in
易于理解的控制流程

示例：

(defun arabic_to_roman (filename)
  (flet ((read-it ()
           (with-open-file (in filename
                               :direction :input
                               :if-does-not-exist nil)
             (loop for line = (read-line in nil)
                   for pos = (position #\= line)
                   while line collect (cons (subseq line 0 pos)
                                            (subseq line (1+ pos))))))
         (write-it (list)
           (with-open-file (stream #p"ar_out.txt"
                                   :direction :output
                                   :if-exists :overwrite
                                   :if-does-not-exist :create)
             (write list :stream stream :escape nil :readably nil :pretty nil))))
    (write-it (read-it))
    'done-read-write))

常见的lisp：如何抑制换行或“软回复”

2 个答案: