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

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 不被括号括起来！