Lisp Programming Examples

vikram

lisp

(defun area-circle(rad)
   "Calculates area of a circle with given radius"
   (terpri)
   (format t "Radius: ~5f" rad)
   (format t "~%Area: ~10f" (* 3.141592 rad rad))
)
(area-circle 10)

final

lisp

(defun ortak (list1 list2)
    (cond 
        ((null list1) nil)
        ((member (car list1) list2)(append (list (car list1)) (ortak (cdr list1) list2))  )
        (t   (ortak (cdr list1) list2))
    )
)
(setq a '(2 10 4))
(setq b '(1 2 3 4 5 6))
(write (ortak a b))
(terpri)

(defun add (list1 elem)
    (cond
        ((null list1) (append (list elem)))
        ((< elem (car list1)) (append (list elem) list1))
        (t (append (list (car list1)) (add (cdr list1) elem)))
    )
)
(write (add b 7))
(terpri)
(defun sortt (list1 &optional list2)
    (cond 
        ((null list1) list2)
        ((null list2) (sortt (cdr list1) (list (car list1))))
        (t (setq list2 (add list2 (car list1))) (sortt (cdr list1) list2) )
    )
)
(write (sortt a))

Execute LISP Online

lisp

`   





























\||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

Execute LISP Online

lisp

(write-line "Hello World")

Execute LISP Online

lisp

(defun evensplit (alist len) (if (> (length alist) (/ len 2))
    (append (evensplit (cdr alist) len) (list (car alist)))
    (list alist)
))

(defun sorter (arglist larger?)
    (merger
        (mergesort (car arglist) larger?)
        (mergesort (cdr arglist) larger?)
        larger?
    )
)

(defun merger (listA listB larger?) 
    (cond
        ((not (and listA listB)) (append listA listB))
        ((eval (list larger? (car listA) (car listB))) (cons (car listA) (merger (cdr listA) listB larger?)))
        (T (cons (car listB) (merger listA (cdr listB) larger?)))
    )
)

(defun mergesort (sortlist larger?) 
    (cond
        ((< (length sortlist) 2) sortlist)
        (T (sorter (evensplit sortlist (length sortlist)) larger?))
    )
)

(defun numlarge? (numA numB) (> (- numA numB) 0))

(print (mergesort '(3 9 5 7 6 1 8 0 2 4) 'numlarge?))

AmirhoseinPourmorad-fibonacci

lisp

(write-line "Hi , i'm Amirhosein Pourmorad, StudentNumber: 952027841")
(write-line "fibonacci prj, resource : https://en.wikipedia.org/wiki/Fibonacci_number")
(write-line "")
(defun fib(n)
(if (>= n 1)
   (print 1)
)
(setq x  0)
(setq y  1)
(setq z  0)
  (loop for i from 1 to n
   do (progn
   (setq z (+ x y))
   (format t "   ~d" z)
      (setq x y)
            (setq y z)

)
    )
)
(fib n)

ssss

lisp

(setq a '(("operator" "(") ("keyword" "deffun") ("identifier" "checkcoord") ("operator" "(") ("identifier" "x") ("identifier" "y") ("operator" ")") ("operator" "(") ("keyword" "if") ("operator" "(") ("keyword" "and") ("operator" "(") ("keyword" "equal") ("identifier" "x") ("integer" "1") ("operator" ")") ("operator" "(") ("keyword" "equal") ("identifier" "y") ("integer" "2") ("operator" ")") ("operator" ")") ("integer" "1") ("integer" "0") ("operator" ")") ("operator" ")")))

(setq change (make-hash-table :test 'equalp)) 
(setf (gethash "identifier" change) "ID")
(setf (gethash "integer" change) "IntegerValue")
(setf (gethash "BinaryValue" change) "BinaryValue")

(defun parser (lexerlist)
	(setq lexerl (reverse (map 'list (lambda (x) (cond ((gethash (string (car x)) change) (gethash (string (car x)) change) )
	                  				(t (cadr x))) ) lexerlist)))
	(setq stack '()) 
	(return-from parser (parserHelper lexerl stack))
)

(defun parserHelper(lexerlist stack)
	(cond
		((null lexerlist) nil)
    		((and (not (null stack)) (not (equal(list-length stack) 2)) (check lexerlist stack))   
    		(setq stack (reducee lexerlist stack)) (append (list (append(reverse lexerlist) '("<") (list (car stack)) '(">")(cdr stack)'("******"))) (parserHelper (cdr lexerlist) stack)) 
    	) 
		( t (setq stack (append (list (car lexerlist)) stack )) (append (parserHelper (cdr lexerlist) stack)) )
	)
)

(defun check (lexerlist stack)
	(return-from check t)
)

(defun reducee (lexerlist stack)
	(return-from reducee stack)
)

(write (parser a))

ssss

lisp

(setq a '(("operator" "(") ("keyword" "deffun") ("identifier" "checkcoord") ("operator" "(") ("identifier" "x") ("identifier" "y")
 ("operator" ")") ("operator" "(") ("keyword" "if") ("operator" "(") ("keyword" "and") ("operator" "(") ("keyword" "equal")
 ("identifier" "x") ("integer" "1") ("operator" ")") ("operator" "(") ("keyword" "equal") ("identifier" "y") ("integer" "2")
 ("operator" ")") ("operator" ")") ("integer" "1") ("integer" "0") ("operator" ")") ("operator" ")")))
 
 (write a)
 (terpri)(terpri)
(write (caar a)) (terpri)(terpri)
(write (reverse a))
(terpri)(terpri)
;(deffun ID (ID ID) (f (and (equal ID ID) (equal ID ID)) IntegerValue IntegerValue)) 
(setq change (make-hash-table :test 'equalp)) 
(setf (gethash "identifier" change) "ID")
(setf (gethash "integer" change) "IntegerValue")
(setf (gethash "BinaryValue" change) "BinaryValue")


(setq a (map 'list (lambda (x) 
            (cond ((gethash (string (car x)) change) (gethash (string (car x)) change) )
                  (t (cadr x))    
            ) )
        a))
(setq b a)
 (write (setq c (list a b)))
 (terpri)(terpri)
  (terpri)(terpri)
(write (car c))

Execute LISP Online

lisp

(write(+ (* (/ 9 5) 60) 32))

Execute LISP Online

lisp

(setq x 10)
(setq y nil)

(print x)
(print y)

(print (type-of x))
(print (type-of y))

(defmacro fmac (s) (setq s (+ s 1)) (print s))
(fmac 1236)

Follow

Newsletter