[ prog / sol / mona ]

prog


The Forced Indentation Of Code

10 2022-01-30 02:02

The Forced Indentation Of Code
The Forced Resumption Of Memes

scheme@(guile-user)> (display ((lambda (rec xjoin n s) ((lambda (z) (rec xjoin (- (* 2 n) 1) (lambda (k) (string-append (rec xjoin (- (* 2 n) 1) (lambda (j) (if (< (abs (- n 1 j)) (- n 1 (abs (- n 1 k)))) z s)) " ") "\n")) "")) (rec xjoin (string-length s) (lambda (k) " ") ""))) (lambda (f . args) (apply f (cons f args))) (lambda (self n fun sep) (if (<= n 0) "" (if (= n 1) (fun 0) (string-append (self self (- n 1) fun sep) sep (fun (- n 1)))))) 7 "memes"))
memes memes memes memes memes memes memes memes memes memes memes memes memes
memes memes memes memes memes memes       memes memes memes memes memes memes
memes memes memes memes memes                   memes memes memes memes memes
memes memes memes memes                               memes memes memes memes
memes memes memes                                           memes memes memes
memes memes                                                       memes memes
memes                                                                   memes
memes memes                                                       memes memes
memes memes memes                                           memes memes memes
memes memes memes memes                               memes memes memes memes
memes memes memes memes memes                   memes memes memes memes memes
memes memes memes memes memes memes       memes memes memes memes memes memes
memes memes memes memes memes memes memes memes memes memes memes memes memes
scheme@(guile-user)> 
267


VIP:

do not edit these