homework.lisp, Common Lisp

Language: Layout:

;;; 1
;;; Assignment 4
;;; Jesse Kipp
;;; homework.lisp is a program consisting of various 
;;; programing functions to test programing ability

;gnu clisp 2.49

;;; 2
;;; foo is adding the two parameters together
;;; an equevelent java funtion would be
;;; int foo(int x, int y){return x + y;}

;;;3
;;; myPrint prints all items of a  list
;;; an equevelent java funtion would be
;;; void foo(Array<> l){for each(l){print l;}} check to make sure this is right

;;; 4
;;; returns the facotrial of a number using iterative programing
(defun factorial1 (n)
    (setq fac1 1)
    (if (<= n 0)
        (setq fac1 1)
        (loop for i from 1 to n
            do (setq fac1(* fac1 i))
        )
    )
    fac1
)

;;; 5
;;; returns the facotrial of a number using recursive programing
(defun factorial2 (n)
    (if (<= n 0)
        1     
        (* n (factorial2 (- n 1))       
         )
    )
)

;;; 6
;;; returns the number of symbol 'a' is in a list
(defun amount (l)
    (setq total 0)
    (setq test "a")
    (dotimes (i (length l))
        (if (equal test (subseq l i))
            (setq total(+ total 1))
         )
     )
    total
)

;;; 7
;;; rucursive function that returns the n number in the fibonacci swquence
(defun fib (n)
    (setq fi 0)
    (if (= n 0)
        (setq fi 0)
    )
    (if (= n 1)
        (setq fi 1)
    )
    (if(> n 1)
        (setq fi (+ (fib (- n 1)) (fib(- n 2)) ) )
    )
    fi
)

;;; 8
;;; returns the small value of two numbers
(defun small (num1 num2)
    (if(< num1 num2)
         num1
       num2
    )
)

;;; 9
;;; returns sum of the entered value and all even positived numbers leading up to it
(defun sum (n)
    (setq s 0)
    (if (> n 0)
          (loop for i from 1 to n
             do(setq s (+ s i))
           )
     )
    s
 )

;;; 10
; 1. set x as list contaning the characters a and b
; 2. set x as list contaning the characters a, b and c
; 3. prints the first item in the list "A"
; 4. prints the first item in the list "A"
; 5. prints a list of the remaning characters in x
; 6. prints a list of the remaning characters in y
; 7. cdr essentially creates a new list and car is showing the first character in that list "B" and then is pringing it
; 8. cdr essentially creates a new list and car is showing the first character in that list "B" and then is pringing it
; 9. cadr is just combing the process on line 7 into one function
; 10. cadr is just combing the process on line 8 into one function
; 11. append combines the two lists, first going through x then y  in that order and then prints the list

;;; test is a function that is used to test the other funtions in this program
(defun test()
    (print " CSE 240 Assignment 4. Jesse Kipp ")
    (print (factorial1 100))
    (print (factorial2 100))
    (print (amount '(b c (a) a)))
    (print (fib 7))
    (print (small 5 7))
    (print (sum 5))
)

(test)

[ + ] Show input
Absolute running time: 0.09 sec, cpu time: 0.05 sec, memory peak: 6 Mb, absolute service time: 0,1 sec