;Assignment 1 - LISP assignment
;Nikolas Kukert
;CSCI 372 - Brian Slator, Ph.D.
;10/12/2018
(defun MY-DOUBLE-ODD (lis)
(cond ((null lis) nil) ;terminal base case of empty list
((eq (rem (car lis) 2) 0) ;check for evenness
(cons (car lis) (my-double-odd(cdr lis))));move on past even number
(t (cons (* 2 (car lis)) (my-double-odd(cdr lis)))));double odd number and move on to next
) ;end function
;a function to double odd numbers and leave even numbers unchanged
(defun doubleodd (x)
(cond ((eq (rem x 2) 0) ;check for evenness
(setq x x)) ;move on past even number
(t (setq x (* x 2) )) ;double odd number and move on to next
) ;end of conditional statement
)
;a function to double all of the odd numbers in a list
(defun MY-NR-DOUBLE-ODD (lis)
(mapcar #'doubleodd lis) ;iteratively call the doubleodd function on each of the elements in the list
) ;end function
(defun COUNTNUM (lis)
(cond ((null lis) 0) ;return 0 if list is empty
(t (+ 1 (COUNTNUM (cdr lis))))) ;add one and recursively call countnum on the remainder of the list
)
(defun NUMSUM (lis)
(cond ((null lis) 0) ;return 0 if list is empty
(t (setq x (car lis)) ;set atom to car of list
(+ x (numsum (cdr lis)))) ;add recursive call to numsum to atom x, repeating until list is empty
)
);end function
(defun MYAVERAGE (lis)
(cond ((null lis) "Empty list")
(t(/ (numsum lis) (countnum lis)))) ;divide sum of values by count of values
)
(defun MY-LENGTH (lis)
(setq x 0) ;set counter to 0
(dolist (i lis) ;iterate through the list
(setq x (+ x 1)) ;count once for each iteration
)
(setq ret x) ;return count
)
(defun WHICH-LONG (lis1 lis2)
(setq x 0) ;sets value for return
(setq first (my-length lis1)) ;get length of first list
(setq second (my-length lis2)) ;get length of second list
(cond
((= first second) (setq x(+ first second))) ;return sum of lengths if equal
((> first second) (setq x first)) ;return length of first if first is longer
(t(setq x second))) ;return length of second if second is longer
)
(format t "my-double-odd '(1 2 3 4 5 6) returns ~S~%" (my-double-odd '(1 2 3 4 5 6)))
(format t "boundary case of '(0 0 0 0 0) returns ~S~%" (my-double-odd '(0 0 0 0 0)))
(format t "boundary case of '(-1 -2 -3 -4 -5 -6) returns ~S~%" (my-double-odd '(-1 -2 -3 -4 -5 -6)))
(format t "my-nr-double-odd '(1 2 3 4 5 6) returns ~S~%" (my-nr-double-odd '(1 2 3 4 5 6)))
(format t "boundary case of '(0 0 0 0 0) returns ~S~%" (my-nr-double-odd '(0 0 0 0 0)))
(format t "boundary case of '(-1 -2 -3 -4 -5 -6) returns ~S~%" (my-nr-double-odd '(-1 -2 -3 -4 -5 -6)))
(format t "countnum '(1 2 3 4 5) returns ~S~%" (countnum '(1 2 3 4 5)))
(format t "boundary case of '() returns ~S~%" (countnum '()))
(format t "numsum '(1 2 3 4 5) returns ~S~%" (numsum '(1 2 3 4 5)))
(format t "boundary case of '() returns ~S~%" (numsum '()))
(format t "boundary case of '(-1 -2 -3 -4 -5) returns ~S~%" (numsum '(-1 -2 -3 -4 -5)))
(format t "myaverage '(1 2 3 4 5) returns ~S~%" (myaverage '(1 2 3 4 5)))
(format t "boundary case of '() returns ~S~%" (myaverage '()))
(format t "my-length '(1 0 -50 400 9) returns ~S~%" (my-length '(1 0 -50 400 9)))
(format t "boundary case of '() returns ~S~%" (my-length'()))
(format t "which long '(1 2 3) '(7 8 9 10) returns ~S~%" (which-long '(1 2 3) '(7 8 9 10)))
(format t "boundary case of equal lists returns the sum of the lengths, ~S~%" (which-long '(1 2 3) '(4 5 6)))
About Online Lisp Compiler
Try our Online Lisp Compiler (Version GNU CLISP v2.49+) to Edit, Run, and Share your Lisp Code directly from your browser. This online development environment provides you the latest version GNU CLISP v2.49+.
How to use Online Lisp Compiler?
Write and Execute Code
- Write your program (or, paste it) directly under the "Source Code" tab.
- If you want to save your program, go to the "Project" menu and save it.
- You can directly execute your program without saving it by clicking on on "Execute" button.
User Input
The latest version of Coding Ground allows to provide program input at run time from the termnial window exactly the same way as you run your program at your own computer. So simply run a program and provide your program input (if any) from the terminal window available in the right side.
Online Lisp Compiler: Keyboard Shortcuts
The following are the keyword shortcut of this Online Lisp Compiler:
| Shortcut | Description |
|---|
| ⌘ + Enter | Run the program |
| ⌘ + S | Save Project (Login Required) |
| ⇧ + ⌘ + S | Save As Project |
| ⌘ + P | New Project |
| ⌘ + G | Share Project |
| ⌘ + Z | Undo Editing |
| ⌘ + Y | Redo Editing |
| ⌘ + A | Select All Text |
| ⌘ + X | Cut Selected Text |
| ⌘ + C | Copy Selected Text |
| ⌘ + V | Paste Copied Text |
| ⌘ + F | Search Text |
| ⌘ + ⌥ + F | Replace Text |
| Shortcut | Description |
|---|
| Ctrl + Enter | Run the program |
| Ctrl + S | Save Project |
| Shift + Ctrl + S | Save As Project |
| Ctrl + G | Share Project |
| Ctrl + Z | Undo Editing |
| Ctrl + Y | Redo Editing |
| Ctrl + A | Select All Text |
| Ctrl + X | Cut Selected Text |
| Ctrl + C | Copy Selected Text |
| Ctrl + V | Paste Copied Text |
| Ctrl + F | Search Text |
| Ctrl + H | Replace Text |
Online Lisp Compiler: Save and Share Lisp Code (Project)
Save Lisp Project Online
You can save your Lisp Project with us so that you can access this project later on. To save a project you will need to create a login Id with us. So before you save a project, please create a login Id using a link given at the top right corner of this page.
Share Lisp Project Online
You can use this feature to share your Lisp Code with your teachers, classmates and colleagues. Just click Share Button and it will create a short link, which can be shared through Email, WhatsApp or even through Social Media. A shared link will be deleted if it has been passive for almost 3 months.
More Features of Online Lisp Compiler
- Theme – You can change the current editor's theme from the "Editor Theme" option under "Settings" menu.
- Font Size – You can change the font size of the editor /compiler from from the "Font Size" option under "Settings" menu.
- Tab Size – You can change the tab size from the "Tab Size" option under "Settings" Menu.
- Show/Hide Line Numbers – You can show/hide the line number with the code from the "Show Line Numbers" or "Hide Line Numbers" option under "Settings" Menu.
- And, many more.
Benefits of Using Online Lisp Compiler
There are several benefits of using the Online Lisp Compiler to run your Lisp code:
- Platform independence: You can run your code from any device without taking care of operating systems.
- Convenience: You don't need to install anything for using this.
- No setup required: There is no need for additional setup to run your code.
- Updated version: Our online compiler/editors/terminals are the latest up-to-date.
