LISP เบื้องต้น 1

LISP เบื้องต้น 1
ถ้าต้องการหาค่าของ expression 2 * (3+4) ใน CLISP จะพิมพ์ที่ prompt ของ CLISP ตามนี้
(* 2 (+ 3 4)) จะได้ผลเป็น 14 รูปแบบ function ทางคณิตศาสตร์ f(x) หรือ f(x,y) เมื่อเขียนใน CLISP จะมีรูปแบบเป็น (f x) หรือ (f x y)

การสร้าง Function
ที่ prompt พิมพ์

(defun square (x) (* x x))
การเรียกใช้ พิมพ์ (square 2) ที่ prompt จะได้ 4 (square 3) จะได้ 9
เราอาจจะใช้ editor เช่น notepad หรือ editplus เพื่อช่วยในการเขียนหรือแก้ไขโปรแกรม ตัวอย่างเช่น ป้อนหรือพิมพ์ตัวอย่างด้านล่าง
;----------------
; comment in clisp
;----------

(defun double (Y)
"Calculate 2 time Y." ; This is comment.
(* 2 Y)) ; This is comment too.
;Function add 3 arguments
(defun add (A B C)
"Calculate A+B+C." ;
(+ A B C))
;
;End test function

เมื่อพิมพ์เสร็จแล้ว save โปรแกรมเป็น test.lisp (ใช้ชื่อหรือนามสกุลอื่น ๆ ได้) save ไว้ที่ folder เดียวกับ CLISP (ตัวอย่างที่ทำอยู่ที่ D:clisp-2.38-win32clisp-2.38) ที่ prompt ของ CLISP จะใช้คำสั่ง load ตามนี้ (จะใช้ [xx]> แทน prompt ของ CLISP) (อย่าลืมกด key [enter] ด้วยนะ)

[1]> (load "test.lisp")
;; Loading file test.lisp ...
;; Loaded file test.lisp
T
[2]>

ทดลองใช้ พิมพ์ (double 3) เพื่อหาค่า 2 เท่าของ 3 และทดลองพิมพ์ (add 1 2 3) เพื่อหาผลบวกของเลข 3 จำนวน

[2]> (double 3)
6
[3]> (add 1 2 3)
6
[4]>