Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
ed62f885
Commit
ed62f885
authored
Mar 11, 2003
by
pfdietz
Browse files
Added calls to remove-duplicates to normalize results from set xor functions.
parent
b700de21
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/cons-aux.lsp
View file @
ed62f885
...
...
@@ -68,12 +68,17 @@
for args = (make-random-set-exclusive-or-input n)
for set1 = (car args)
for set2 = (cadr args)
for result1 = (sort (copy-list (apply #'my-set-exclusive-or args))
#'<)
for result2 = (sort (copy-list (apply fn
(copy-list set1)
(copy-list set2)
(cddr args)))
#'<)
for result1 = (apply #'remove-duplicates
(sort (copy-list (apply #'my-set-exclusive-or args))
#'<)
(cddr args))
for result2 = (apply #'remove-duplicates
(sort (copy-list (apply fn
(copy-list set1)
(copy-list set2)
(cddr args)))
#'<)
(cddr args))
unless (equal result1 result2)
return (list (list 'sort (cons fn args) '<) "actual: " result2 "should be: " result1)))
return (list (list 'remove-duplicates (list 'sort (cons fn args) '<) "...")
"actual: " result2 "should be: " result1)))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment