shell - Guile Scheme 脚本教程加载脚本
问题描述
我正在尝试学习一点 Guile Scheme,我正在看gnu 的教程:Scriping Examples
目前我有以下代码:
模块.scm:
#!/usr/bin/env sh
exec guile -l fact.scm -e '(@ (my-module) main)' -s "$0" "$@"
!#
;; Explanation:
;; -e (my-module)
;; If run as a script run the `my-module` module's `main`.
;; (Use `@@` to reference not exported procedures.)
;; -s
;; Run the script.
(define-module (my-module)
#:export (main))
;; Create a module named `fac`.
;; Export the `main` procedure as part of `fac`.
(define (n-choose-k n k)
(/ (fact n)
(* (fact k)
(fact (- n k)))))
(define (main args)
(let ((n (string->number (cadr args)))
(k (string->number (caddr args))))
(display (n-choose-k n k))
(newline)))
事实.scm
#!/usr/local/bin/guile \
-e main -s
!#
;; How to run this program?
;; Example:
;; guile -e main -s factorial-script.scm 50
;; Explanation:
;; -e specifies the procedure to run
;; -s specifies to run this as a script
;; 50 is the number we take as input to the script
(define (fact n)
(if (zero? n) 1
(* n (fact (- n 1)))))
(define (main args)
(display (fact (string->number (cadr args))))
(newline))
我使我的主脚本可执行,chmod +x modules.scm
然后我尝试运行脚本:(./modules.scm 10 3
应该是 120),但我得到一个错误:
Backtrace:
4 (apply-smob/1 #<catch-closure 119cb80>)
In ice-9/boot-9.scm:
705:2 3 (call-with-prompt ("prompt") #<procedure 11aa8e0 at ice-9/eval.scm:330:13 ()> #<procedure default-prom…>)
In ice-9/eval.scm:
619:8 2 (_ #(#(#<directory (guile-user) 1233140>)))
In /home/xiaolong/development/Guile/scripting/./modules.scm:
26:13 1 (main _)
18:0 0 (n-choose-k _ _)
/home/xiaolong/development/Guile/scripting/./modules.scm:18:0: In procedure n-choose-k:
In procedure module-lookup: Unbound variable: fact
因此,尽管我正在加载,但似乎以某种方式fact
没有加载该过程fact.scm
。我还尝试按照教程重命名fact.scm
为fact
,并在 shebang 行之后更改加载脚本的参数,但结果相同。
教程是错误的,还是我忽略了一些简单的东西?
解决方案
推荐阅读
- c++ - 插入排序算法在放入函数时表现不同
- javascript - 如何使用 React 和 JavaScript 将 .txt 文件转换为 JSON
- amazon-web-services - AWS 上的 ElasticSearch:需要文件的令牌过滤器
- swift - .usdz 模型加载到场景中时没有纹理
- laravel - 未在本地主机中加载 laravel 应用程序的资产
- javascript - 如何修复 jQuery("#contact_form").validate 不是函数?
- php - 如何在 Laravel 中检索和显示关系数据?
- php - 如何连接等号和变量,以使结果可用于下面显示的类型的 mysql 查询?
- django - 在我的 Django 网站上没有得到预期的布局(设计)
- xamarin.forms - 棱镜以编程方式检测页面是否为模态并返回