PC-LISP - PC-LISP
PC-LISP bir uygulamasıdır Franz Lisp lehçesi Peter Ashwood-Smith tarafından.
Sürüm 2.11, 15 Mayıs 1986'da yayınlandı. Güncel bir sürüm aşağıdaki harici bağlantıdan indirilebilir.
Şu anda PC-LISP, 32 ve 64 bit Linux, Mac ve Windows'a taşınmıştır.
Franz LISP lehçesinin, dünyanın en yakın, taşınabilir halefi olduğuna dikkat edin. ONUN versiyonu Maclisp ve belki de LISP’e en yakın şey Steven Levy kitap Hackerlar kullanımı pratik olduğu gibi. PC-LISP, DOS emülatörlerinde ve modern Windows sürümlerinde iyi çalışır. PC-LISP, Franz LISP'yi uyguladığından, dinamik olarak modern kapsamlı bir öncüldür. Ortak Lisp. Bu nedenle bu, tarihsel olarak önemli bir uygulamadır.
Misal
Oturum, gösteren aşağıdaki kodu çalıştırıyor dinamik kapsam Franz LISP'de. PC-LISP'nin İzin Vermek özel form Emacs Lisp yerel değişkenleri sağlar. Bunun yerine, tüm değişkenler Algol tabanlı dil "global" olarak adlandırılır. ALGOL kapsam kurallarını içeren ilk Lisp lehçesi ( sözcük kapsamı ) oldu Şema rağmen Ortak Lisp dil de bu özelliği ekledi.
;; Dinamik kapsam belirleme gösterimi;; Bu "global" bir değişkendir(setq myglobal "bu benim global değişkenim");; Başka bir küresel değişken(setq global "bu benim global değişkenim");; sembolleri yazdıran bir işlev(defun bir şey yap (benim seninki) (prens " * Benimki - ") (prens benim) (prens " n") (prens "* Seninki -") (prens seninki) (prens " n"));; sembolleri geçersiz kıl(defun nolocals () (setq benim "Benimkini yeni bir değere ayarladım") (setq seninki "Seninkini yeni bir değere ayarladım") (bir şey yap benim seninki))(defun ana () ;; iki sembol tanımla (setq benim myglobal) (setq seninki global) ;; onları yazdır (prens "bir şey arıyor n") (bir şey yap benim seninki) (prens "nolocals n") (nolocals) (prens "bir şeyi tekrar arıyorum n") (bir şey yap benim seninki))Backquote kullanımını ve LISP'nin gücünü gösteren başka bir örnek. Bu bir farklılaşma örneğidir.
; D (e, X) -; İfadenin sembolik türevini e göre hesaplayacak; değişken X'e. İfadeyi standart lisp önek biçiminde alıyoruz ve; aşağıdaki farklılaştırma kurallarını kullanın.;; D (x) = 1; D (a) = 0; D (ln u) = D (u) / u ; D (u + v) = D (u) + D (v); D (u-v) = D (u) -D (v); D (u * v) = D (u) * v + u * D (v); D (u / v) = D (u) * v + (u * D (v)) / v ^ 2; D (v ^ u) = (v ^ u) * (u * D (v) / v + D (u) * ln (v));(defun D(e X & aux sen v) (koşul ((eşit e X) 1) ((atom e) 0) (t (setq sen (cadr e) v (caddr e)) (caseq (araba e) (ln `(/ ,(D sen X) ,sen)) (+ `(+ ,(D sen X) ,(D v X))) (- `(- ,(D sen X) ,(D v X))) (* `(+ (* ,(D sen X) ,v) (* ,(D v X) ,sen))) (/ `(- (/ ,(D sen X) ,v) (/ (* ,sen ,(D v X)) (^ ,v 2)))) (^ `(* ,e (+ (/ (* ,v ,(D sen X)) ,sen) (* ,(D v X) (ln ,sen))))) (t (prens "HATA") (çıkış)]