Connector >>191 version of >>37
scheme@(guile-user)> (display ((lambda (rec xjoin extract index chars n) ((lambda (xjoin lines columns) ((lambda (symbol) (xjoin lines (lambda (k) (string-append (xjoin columns (lambda (j) (symbol k j)) "") "\n")) "")) (lambda (k j) (extract chars (index lines columns k j) 1)))) (lambda (n fun sep) (rec xjoin n fun sep "")) (+ 1 (* 2 n)) (+ 2 (* 4 n)))) (lambda (f . args) (apply f (cons f args))) (lambda (self n fun sep acc) (if (<= n 0) "" (if (= n 1) (string-append (fun 0) acc) (self self (- n 1) fun sep (string-append sep (fun (- n 1)) acc))))) (lambda (str pos len) (substring str pos (+ pos len))) ((lambda (base patch) (lambda (lines columns k j) ((lambda (k j) ((lambda (jev) (or (patch k j jev) (base k j jev))) (even? j))) (- k (quotient lines 2)) ((lambda (c2) (if (< j c2) (- j c2) (- j c2 -1))) (quotient columns 2))))) (lambda (k j jev) (if (= k 0) (if (<= -1 j 1) 1 (if jev 0 2)) ((lambda (corner jabs) (if (< jabs corner) 1 (if (= jabs corner) (+ 3 (if (< k 0) 0 2) (if (< j 0) 0 1)) (if jev 0 2)))) (+ (* 2 (abs k)) 1) (abs j)))) (lambda (k j jev) (if (and (>= k 0) (> j 0)) ((lambda (corner) (if (= j corner) 6 (if (or (= j (- corner 1)) (= j (- corner 2))) 1 #f))) (+ (* 2 k) 3)) (if (and (<= k 0) (< j 0)) ((lambda (corner) (if (= j corner) 3 (if (or (= j (+ corner 1)) (= j (+ corner 2))) 1 #f))) (- (* 2 k) 3)) #f)))) " ─│┌┐└┘" 10))
─────────────────────────────────────────┐
┌──────────────────────────────────────┐ │
│ ┌──────────────────────────────────┐ │ │
│ │ ┌──────────────────────────────┐ │ │ │
│ │ │ ┌──────────────────────────┐ │ │ │ │
│ │ │ │ ┌──────────────────────┐ │ │ │ │ │
│ │ │ │ │ ┌──────────────────┐ │ │ │ │ │ │
│ │ │ │ │ │ ┌──────────────┐ │ │ │ │ │ │ │
│ │ │ │ │ │ │ ┌──────────┐ │ │ │ │ │ │ │ │
│ │ │ │ │ │ │ │ ┌──────┐ │ │ │ │ │ │ │ │ │
│ │ │ │ │ │ │ │ │ ┌────┘ │ │ │ │ │ │ │ │ │
│ │ │ │ │ │ │ │ │ └──────┘ │ │ │ │ │ │ │ │
│ │ │ │ │ │ │ │ └──────────┘ │ │ │ │ │ │ │
│ │ │ │ │ │ │ └──────────────┘ │ │ │ │ │ │
│ │ │ │ │ │ └──────────────────┘ │ │ │ │ │
│ │ │ │ │ └──────────────────────┘ │ │ │ │
│ │ │ │ └──────────────────────────┘ │ │ │
│ │ │ └──────────────────────────────┘ │ │
│ │ └──────────────────────────────────┘ │
│ └──────────────────────────────────────┘
└─────────────────────────────────────────
scheme@(guile-user)>