hg.stevelosh.com > cl-losh

test/iterate.lisp @ 443af0e76dd6 default tip 

Add with-eof-handled
author Steve Losh <steve@stevelosh.com>
date Sun, 23 Jun 2024 13:34:51 -0400
parents 72fe2afc82c7
children (none) 
(in-package :losh.test)


(define-test within-radius
  (is (equal '(-1 0 1)  (iterate (for (x) :within-radius 1)                             (collect x))))
  (is (equal '(-1 1)    (iterate (for (x) :within-radius 1 :skip-origin t)              (collect x))))
  (is (equal '(9 10 11) (iterate (for (x) :within-radius 1                :origin (10)) (collect x))))
  (is (equal '(9 11)    (iterate (for (x) :within-radius 1 :skip-origin t :origin (10)) (collect x))))

  (is (equal '((-1 -1) (-1 0) (-1 1) (0 -1) (0 0) (0 1) (1 -1) (1 0) (1 1))
             (iterate (for (x y) :within-radius 1) (collect (list x y)))))

  (is (equal '((-1 -1) (-1 0) (-1 1) (0 -1) (0 1) (1 -1) (1 0) (1 1))
             (iterate (for (x y) :within-radius 1 :skip-origin t)
                      (collect (list x y)))))

  (is (equal '((9 99) (9 100) (9 101) (10 99) (10 101) (11 99) (11 100) (11 101))
             (iterate (for (x y) :within-radius 1 :skip-origin t :origin (10 100))
                      (collect (list x y)))))

  (is (equal '((8 98) (8 99) (8 100) (8 101) (8 102)
               (9 98) (9 99) (9 100) (9 101) (9 102)
               (10 98) (10 99) (10 101) (10 102)
               (11 98) (11 99) (11 100) (11 101) (11 102)
               (12 98) (12 99) (12 100) (12 101) (12 102))
             (iterate (for (x y) :within-radius 2 :skip-origin t :origin (10 100))
                      (collect (list x y)))))

  (is (equal '((9 99 999) (9 99 1000) (9 99 1001)
               (9 100 999) (9 100 1000) (9 100 1001)
               (9 101 999) (9 101 1000) (9 101 1001)
               (10 99 999) (10 99 1000) (10 99 1001)
               (10 100 999) (10 100 1001)
               (10 101 999) (10 101 1000) (10 101 1001)
               (11 99 999) (11 99 1000) (11 99 1001)
               (11 100 999) (11 100 1000) (11 100 1001)
               (11 101 999) (11 101 1000) (11 101 1001))
             (iterate (for (x y z) :within-radius 1 :skip-origin t :origin (10 100 1000))
                      (collect (list x y z))))))