📄 fread.scm
字号:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; File: fread.sc;;; Description: FREAD benchmark;;; Author: Richard Gabriel;;; Created: 11-Apr-85;;; Modified: 11-Apr-85 20:39:09 (Bob Shaw);;; 24-Jul-87 (Will Clinger);;; 14-Jun-95 (Qobi);;; 31-Mar-98 (Qobi);;; 26-Mar-00 (flw);;; Language: Scheme;;; Status: Public Domain;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FREAD -- Benchmark to read from a file.;;; Requires the existence of FPRINT.TST which is created by FPRINT.(define (fread) (call-with-input-file "fprint.tst" (lambda (stream) (read stream))))(time (fread))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -