The Code-Bin
Links
Home
Add your code!
All Listings
About
Latest Entry
Featured Scripts
Author's Website
Latest Entries
FFMPEG Thumbnail Scr...
PHP, 0.8KB
Jul. 29, 10:24pm
John
Z80 Assembler, 190 bytes
Feb. 17, 3:36am
John
Z80 Assembler, 176 bytes
Sep. 13, 2:19am
John
Z80 Assembler, 77 bytes
Sep. 13, 2:18am
John
Z80 Assembler, 209 bytes
Sep. 13, 2:17am
untitled HTML Code
Posted by: gfgdf | February 7, 2008 @ 3:24pm
HTML Code
[
Download
]
(defun inlist? (e l) (cond ((endp l) nil) ((= (car l) e) T) (t (inlist? e (cdr l))))) (defun no-dups (loe) (cond ((endp loe) nil) ((not (inlist? (car loe) (cdr loe))) (cons (car loe) (no-dups (cdr loe)))) (t (no-dups (cdr loe)))))
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
4.65 / 8
155 Votes
http://codebin.yi.org/104
page generated in 0.00 seconds