scheme - 我似乎无法在方案中找到换行符匹配字符

Question

我正在尝试在文件中找到换行符并使用计数器跟踪它到目前为止我有

srcf 是源文件

(if(equal? (peek-char srcf) (#\newline) )

  (begin

    (read-char srcf)
    (Lines srcf (+ Line 1))
  )

  (begin

    (read-char srcf)
    (Lines srcf Line)                       
  )
)

但是我知道我的平等吗？(peek)(#\newline) 不起作用是否有我可以用于换行符的字符？

Answer 1

确切的字符取决于文件中使用的换行符，它可能是\n（如 Unix / Mac 中文件的规范）或\r\n（通常在 Windows 中找到）。对于初学者，请尝试比较#\newline并查看它是否适合您：

(equal? (peek-char srcf) #\newline)

...注意没有#\newline被括号包围！