[ prog / sol / mona ]

prog


The Forced Indentation Of Code

90 2022-05-15 10:18

upgrade of >>10 with a coordinate painter

scheme@(guile-user)> (display ((lambda (rec xjoin fore back pad n s chars) ((lambda (xjoin cell cycle) ((lambda (expand) ((lambda (chars) ((lambda (symbol) (xjoin (- (* 2 n) 1) (lambda (k) (string-append (xjoin (- (* 2 n) 1) (lambda (j) (symbol k j)) pad) "\n")) "")) (lambda (k j) (or (fore n s k j) (back n chars cell cycle k j))))) (expand chars cell))) (lambda (chars n) (xjoin (* n (string-length chars)) (lambda (x) ((lambda (idx) (substring chars idx (+ 1 idx))) (quotient x n))) "")))) (lambda (n fun sep) (rec xjoin n fun sep "")) (string-length s) (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 (n s k j) (if (< (abs (- n 1 j)) (- n 1 (abs (- n 1 k)))) #f s)) ((lambda (extract) (lambda (n chars cell cycle k j) (extract chars (* cell (modulo (min (abs (- n 1 k)) (abs (- n 1 j))) cycle)) cell))) (lambda (str pos len) (substring str pos (+ pos len)))) " " 11 "me" "█▓▒░ "))
me me me me me me me me me me me me me me me me me me me me me
me me me me me me me me me me ██ me me me me me me me me me me
me me me me me me me me me ▓▓ ██ ▓▓ me me me me me me me me me
me me me me me me me me ▒▒ ▓▓ ██ ▓▓ ▒▒ me me me me me me me me
me me me me me me me ░░ ▒▒ ▓▓ ██ ▓▓ ▒▒ ░░ me me me me me me me
me me me me me me    ░░ ▒▒ ▓▓ ██ ▓▓ ▒▒ ░░    me me me me me me
me me me me me       ░░ ▒▒ ▓▓ ██ ▓▓ ▒▒ ░░       me me me me me
me me me me ░░ ░░ ░░ ░░ ▒▒ ▓▓ ██ ▓▓ ▒▒ ░░ ░░ ░░ ░░ me me me me
me me me ▒▒ ▒▒ ▒▒ ▒▒ ▒▒ ▒▒ ▓▓ ██ ▓▓ ▒▒ ▒▒ ▒▒ ▒▒ ▒▒ ▒▒ me me me
me me ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ██ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ me me
me ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ me
me me ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ██ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ ▓▓ me me
me me me ▒▒ ▒▒ ▒▒ ▒▒ ▒▒ ▒▒ ▓▓ ██ ▓▓ ▒▒ ▒▒ ▒▒ ▒▒ ▒▒ ▒▒ me me me
me me me me ░░ ░░ ░░ ░░ ▒▒ ▓▓ ██ ▓▓ ▒▒ ░░ ░░ ░░ ░░ me me me me
me me me me me       ░░ ▒▒ ▓▓ ██ ▓▓ ▒▒ ░░       me me me me me
me me me me me me    ░░ ▒▒ ▓▓ ██ ▓▓ ▒▒ ░░    me me me me me me
me me me me me me me ░░ ▒▒ ▓▓ ██ ▓▓ ▒▒ ░░ me me me me me me me
me me me me me me me me ▒▒ ▓▓ ██ ▓▓ ▒▒ me me me me me me me me
me me me me me me me me me ▓▓ ██ ▓▓ me me me me me me me me me
me me me me me me me me me me ██ me me me me me me me me me me
me me me me me me me me me me me me me me me me me me me me me
scheme@(guile-user)> 

larger version with colors: http://paste.textboard.org/830c6de2/raw

267


VIP:

do not edit these