goof-loop/tests.scm

;; This is just a file with things that should be written as a test. Dump file.

(loop ((a (in-list '(((1) (2)) ((3) (4)) ((5) (6 7)))))
       :when #t
       (b (in-list a))
       :subloop  
       (c (in-list b))
       (acc (listing c)))
  => acc)


(loop ((a (in-list '((1 2) (3 4) (5 6))))
       :subloop
       (b (in-list a))
       (acc (listing b)))
  => acc)

(loop ((a (in-list '(1 2 3)))
       (oa (summing a))
       :subloop
       (b (up-from a (to (+ a 2))))
       (ob (listing b)))
  => (values oa ob))
;; Should return 6 and (1 2 2 3 3 4)