list-of-rooms-in-one-direction

    (define (list-of-rooms-in-one-direction self range)
      (define (helper-direction self range)
        (lambda (dir)
          (if (= range 0)
              (ask self 'place)
              (ask ((helper-direction self (- range 1)) dir) 'neighbour-towards dir))))
      (lambda (dir)
        (if (= range 0)
            (list ((helper-direction self range) dir))
            (cons ((helper-direction self range) dir) ((list-of-rooms-in-one-direction self (- range 1)) dir)))))