Lisp Programming Examples

szekvenciaosszerakas

lisp

(write (merge 'vector #(1 3 5) #(2 4 6) #'<))
(terpri)
(write (merge 'list #(1 3 5) #(2 4 6) #'<))

szekvencia sorrendbetetel

lisp

(write (sort '(2 4 7 3 9 1 5 4 6 3 8) #'<))
(terpri)
(write (sort '(2 4 7 3 9 1 5 4 6 3 8)#'>))

szekvenciafunkciok

lisp

(write (count 7 '(1 5 6 7 8 9 2 7 3 4 5)))
(terpri)
(write (remove 5 '(1 5 6 7 8 9 2 7 3 4 5))); ez ugyanazt a szekvenciát küldi vissza
(terpri)
(write (delete 5 '(1 5 6 7 8 9 2 7 3 4 5))); ez meg nem
(terpri)
(write (substitute 10 7 '(1 5 6 7 8 9 2 7 3 4 5)))
(terpri)
(write (find 7 '(1 5 6 7 8 9 2 7 3 4 5)))
(terpri)
(write (position 5 '(1 5 6 7 8 9 2 7 3 4 5))); az egyes az a második elem
 ;ugyanakkor csak az elsőt írja ki

szekvenciagyartas

lisp

(write-line (concatenate 'string "Géza, " "kék az ég!"))
; ez összeilleszt egymásután több stringet\ mindenesetre meg kell adni, hogy 
;milyen típusú dolgot küldjön vissza

sorrendstring

lisp

(write (sort (vector "Amal" "Akbar" "Anthony" )#'string<))
; először megadsz egy vektort, majd hogy miszerint rakja sorrendbe
(terpri)
(write (merge 'vector (vector "Rishi" "Zara" "Priyanka")
(vector "Anju" "Anuj" "Avni")#'string<))

stringfunkciok

lisp

(write (length "puszi puszi"))
(terpri)
(write-line (subseq "puszi puszi" 6)); ez csak az adott indextől tovább írja
(write (char "puszi puszi" 6))

stringmanipulacio

lisp

(write-line (string-upcase "puszi puszi"))
(write-line (string-capitalize "puszi puszi"))

string osszehasonlitasok

lisp

(write (string= "teszt" "Teszt")); betűméretfüggő
(terpri)
(write (string> "teszt" "Teszt")); itt ez igaz
(terpri)
(write (string< "teszt" "Teszt"))
(terpri)
(write (string-equal "teszt" "Teszt")); betűméretfüggetlen
(terpri)
(write (string-greaterp "teszt" "Teszt"))
(terpri)
(write (string-lessp "teszt" "Teszt"))
(terpri)
(write (string/= "teszt" "Teszt"))
(terpri)
(write (string-not-equal "teszt" "Teszt"))
(terpri)
(write (string/= "lisp" "lispelés"))
(terpri)
(write (string/= "rendes" "rendesség"))
; sokszor t helyett egy számot küld vissza

tombfunkciok

lisp

(write (make-array 5 :initial-element 5))
(terpri)
(write (make-array '(2 3) :initial-element 'a))
(terpri)
(write (length (make-array 14 :fill-pointer 5))); a length az a visszaküldött
;elemek számát mondja meg\ ugyanakkor a fill-pointer csak öt elemet enged tárolni
; a tömbben
(terpri)
(write (array-dimensions (make-array 14 :fill-pointer 5))); ettől még a tömb 14 elem méretű
(terpri)
(write (make-array 10 :element-type 'bit :initial-element 1))
(terpri)
(write (make-array 10 :element-type 'character :initial-element #\a))
(terpri)
(setq tomb (make-array '(2 2) :initial-element 'a :adjustable t)); ahhoz, hogy
; tomb változtatható legyen az adjustable végére t kell\
; ha nem írsz semmit, akkor hamis
(write tomb)
(terpri)
(adjust-array tomb '(1 3) :initial-element 'b); na itt most átalakítottuk
;tombot, de miért nem lesz az öszes eleme b, azt nem értem
(write tomb)

escape

lisp

(write-line "bubu")
(write-line "üdvözöllek"); a write-line a "" között lévőt egy sorba írja, majd vége a sornak
(write-line "szeretem a \"narancsot\"") ; a fordított per karakterként értelmezi az
;utána jövő "-t

Follow

Newsletter