Question

我是SCHEME概念的新手，刚开始学习Scheme（和DrRacket）。从一些在线资源开始，包括DrRacket Docs。在线和其他一些参考文献之后，我试图解决一个基本问题，即从文件中读取2个数字（data.inp），将数字相乘并在不同的文件中显示输出（result.out）。

到目前为止，我已经能够提出以下代码，

#lang racket

(define (file->char_list path)

(call-with-input-file path

(lambda (input-port)

 (let loop ((x (read-char input-port)))

   (cond 

    ((eof-object? x) '())

    (#t (begin (cons x (loop (read-char input-port))))))))))

(define (yb) 

     ;(call-with-input-file "data.inp"
     ;(lambda (in) (read-string 14 in)
 ; ))

  ;(call-with-output-file "result.out"
  ;(lambda (output-port)
            ; (display "(* x x)" output-port))) 
; Fill in the blank
 ;(fprintf (current-output-port) "Done!~n"))

  (string->number (apply string (file->char_list "data.inp"))))
 (yb)

我被困在从文件（data.inp）中读取数字并将它们相乘。我已经引用了一些以前的stackoverflow问题，但我有点卡在这一点上。任何帮助将不胜感激：）

将数字相乘并输出结果在SCHEME中的文件中

0 个答案: