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)'

改動尺寸