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 Text Code
Posted by: Davgar88 | February 2, 2008 @ 7:28pm
Text Code
[
Download
]
(defun set0 (r s) (cond ((endp s) nil) ((memberp (car s) (car r)) (cons (car(car r)) (cons (cdr(car r)) (set0 (cdr r) s)))) ((not (endp r)) (memberp (cdr s) (car r)) (cons (car(car r)) (cons (cdr(car r)) (set0 (cdr r) s)))) (set0 (cdr r) s)))
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
4.48 / 8
154 Votes
http://codebin.yi.org/95
page generated in 0.00 seconds