From d913b951dcaf759314bb670ff9e58a6662fd3c28 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 17 Dec 2018 18:24:36 -0500 Subject: [PATCH] Added tests for fast-insert --- seq-test.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/seq-test.scm b/seq-test.scm index 44ae43ba..4f6e6e3e 100644 --- a/seq-test.scm +++ b/seq-test.scm @@ -26,6 +26,12 @@ (write (insert 'a '())) (newline) (write (insert '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) (if (not (pair? S))