scheme语言编写执行

scheme是lisp的一种

编辑器能够用emacs。网上有非常多教导怎样编写的

(begin

(display "hello")

(newline))

编写完以.scm保存,这里保存为test.scm

然后sudo apt-get install racket  //也能够安装scm

Racket (原名 PLT Scheme^[4][5])
是个通用、多范型，属于Lisp家族的函数式编程语言，它的设计目的当中之中的一个是为了提供一种语言创造、设计与实作的平台，Racket被广泛应用在脚本程式设计、通用程式设计、计算机科学教育和学术研究等不同领域。

执行mzscheme或者scm，然后输入(load "test.scm")。ok结果就出来了，能够(exit)退出

我这里用的是gimp測试,脚本必须编写在~/.gimp-2.6/scripts（为了执行gimp）

qboxtest@qboxtest-G41D3:~/.gimp-2.6/scripts$ cat ff.scm 

(define (batch-resize pattern width height)

(let* ((filelist (cadr (file-glob pattern 1))))

(while (not (null? filelist))

(let* ((filename (car filelist))

(image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))

(drawable (car (gimp-image-get-active-layer image))))

(gimp-image-scale-full image width height INTERPOLATION-CUBIC)

(gimp-file-save RUN-NONINTERACTIVE image drawable filename filename)

(gimp-image-delete image))

(set! filelist (cdr filelist)))))

然后到含有JPG的目录下

gimp -i -b '(batch-resize "*.JPG" 604 453)' -b '(gimp-quit 0)'

改动尺寸