;;Scheme里面编写模块,模块以.ss为后缀名。
#lang scheme
(define foo (lambda (x)
(* x x)))
(provide foo)
------------------------------------------------------------------------------------
;;也可以写成多个模块加载进去,这样可以启动一个模块,
;;同时也把其他模块加载进去,这样的写法方便维护!
#lang scheme
(require "foo.ss")
(define foo1 (lambda (x)
(* x x x)))
(provide foo1)
(provide foo)
---------------------------------
2010年5月29日星期六
订阅:
博文评论 (Atom)
没有评论:
发表评论