diagonal interference >>247
scheme@(guile-user)> (display ((lambda (rec xjoin extract index chars m n cell invert) ((lambda (xjoin cycle) ((lambda (expand) ((lambda (chars) ((lambda (symbol) (xjoin m (lambda (k) (string-append (xjoin n (lambda (j) (symbol k j)) "") "\n")) "")) ((lambda (ifinvert) (lambda (k j) (extract chars (* cell (ifinvert (index m n k j cycle))) cell))) (if invert (lambda (x) (- cycle 1 x)) (lambda (x) x))))) (expand chars cell))) (lambda (chars n) (xjoin (* n (string-length chars)) (lambda (k) (extract chars (quotient k n) 1)) "")))) (lambda (n fun sep) (rec xjoin n fun sep "")) (string-length chars))) (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 (int sqr wave combineodd) ((lambda (radius) (lambda (m n k j cycle) ((lambda (wave) (combineodd (wave 0 0) (wave (- n 1) (- m 1)) cycle)) (lambda (cx cy) (wave (int (radius j k cx cy)) cycle))))) (lambda (px py cx cy) (sqrt (+ (sqr (- px cx)) (sqr (- py cy))))))) (lambda (x) (inexact->exact (truncate x))) (lambda (x) (* x x)) (lambda (x cycle) (abs (- (modulo x (* 2 (- cycle 1))) cycle -1))) ((lambda (center) (lambda (w1 w2 cycle) (center (+ w1 w2) cycle))) (lambda (x cycle) (quotient (+ x (if (>= x cycle) 1 0)) 2)))) " ░▒▓█" 23 40 2 #f))terminal-sized output: >>249,250
To reassemble the split output posts:
(/*join*/(thread, pids, separ, remove) => ((getcode) => (codes => (count => {codes [count - 1].innerText = codes.map (e => e.innerText).join (separ); if (remove) {codes. slice (0, -1).forEach (e => e.remove ())}}) (codes.length)) (pids.split (" ").map (s => getcode (thread, parseInt (s, 10))))) ((thread, id) => document.getElementById ("t" + thread + "p" + id).parentNode.nextElementSibling.querySelector ("code"))) (22, "249 250", "\n", true)larger output: http://paste.textboard.org/8c14441e/raw