guile-grid-printer/helpers/list-helpers.scm

(define-module (helpers list-helpers))

(use-modules (srfi srfi-64))

(define (empty-list? lst)
  (null? lst))

(define (atom? sth)
  (and (not (pair? sth))
       (not (empty-list? sth))))

(define (apply-to-items proc lst)
  (map proc lst))

(define-public (dimendionality lst)
  (define (iter lst depth)
    (cond
     [(null? lst) depth]
     [(pair? (car lst))
      (max (iter (car lst) (+ depth 1))
           (iter (cdr lst) depth))]
     [else
      (iter (cdr lst) depth)]))
  (cond
   [(null? lst) 0]
   [else (iter lst 1)]))


(define-public (find-longest* lst length-proc)
  "Find the longest thing anywhere in a potentially nested lst, where length is
defined by the given length-proc."
  (cond
   [(null? lst) 0]
   [(pair? (car lst))
    (max (find-longest* (car lst) length-proc)
         (find-longest* (cdr lst) length-proc))]
   [else
    (max (length-proc (car lst))
         (find-longest* (cdr lst) length-proc))]))

(define-public (longest-sublist-length lst)
  (cond
   [(null? lst) 0]
   [else
    (apply max (map length lst))]))


#;(define (create-vector-length-n-from-list lst desired-length filling-element)
  (let ([vec-to-fill (make-vector desired-length filling-element)])
    (let iter ([vec-index 0] [remaining lst])
      (cond
       [(= vec-index desired-length) vec-to-fill]
       [(null? remaining)
        (vector-set! vec-to-fill vec-index filling-element)
        (iter (+ vec-index 1) '())]
       [else
        (vector-set! vec-to-fill vec-index (car remaining))
        (iter (+ vec-index 1) (cdr remaining))]))))


(define (list->list-of-len lst desired-length fill-elem)
  (define (iter remaining elem-counter)
    (cond
     [(= elem-counter desired-length) '()]
     [(null? remaining)
      (cons fill-elem
            (iter '() (+ elem-counter 1)))]
     [else
      (cons (car remaining)
            (iter (cdr remaining) (+ elem-counter 1)))]))
  (iter lst 0))


(define-public (stretch-list lst desired-length fill-elem)
  (let ([vector-to-fill (make-vector desired-length fill-elem)])
    (list->list-of-len lst desired-length fill-elem)))

  ;; (define (iter orig-lst elem-count)
  ;;   (cond
  ;;    [(< elem-count desired-length)
  ;;     (cond
  ;;      [(null? orig-lst)
  ;;       (cons (iter '() (+ elem-count 1)) filling-elem))]
  ;;      [else ...])]
  ;;    [else '()]))
  ;; (iter lst '() 0))