📄 apply-test.scm
字号:
(use srfi-1)(define manyargs (feature? 'manyargs))(when manyargs (print "many arguments supported."))(define (foo . args) (when (pair? args) (assert (= (length args) (last args)))))(let ((max (if manyargs 500 100))) (do ((i 0 (add1 i))) ((>= i max)) (apply foo (iota i 1))))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -