Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added tests for fast-insert

Browse source
This commit is contained in:
Justin Ethier 2018-12-17 18:24:36 -05:00
parent dda952122b
commit d913b951dc
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
seq-test.scm
View file

@ -26,6 +26,12 @@
(write (insert 'a '())) (newline) (write (insert 'a '())) (newline)
(write (insert 'a '(b c))) (newline) (write (insert 'a '(b c))) (newline)
(write (insert 'a '(a b c))) (newline) (write (insert 'a '(a b c))) (newline)
(newline)
(write (fast-insert 'a '(c d b a a a a))) (newline)
(write (fast-insert 'a '(c d b a a a a))) (newline)
(write (fast-insert 'a '())) (newline)
(write (fast-insert 'a '(b c))) (newline)
(write (fast-insert 'a '(a b c))) (newline)
(define (insert sym S) (define (insert sym S)
(if (not (pair? S)) (if (not (pair? S))