jerk.lisp

; https://www.reddit.com/r/programmingcirclejerk/comments/8ebz88/the_major_difference_between_java_and_golang_is/dxuq7l0/

(defun square-val (x y str len)
  (cond
    ((eql y 0) (elt str x))
    ((eql x 0) (elt str y))
    ((and (eql x len) (eql y len)) (elt str 0))
    ((eql y len) (elt str (- len x)))
    ((eql x len) (elt str (- len y)))
    (t #\Space)))

(defun print-square (str)
  (let ((len (1- (length str))))
    (loop for y from 0 to len do
          (format t "      ") ;brutally practical indent
          (loop for x from 0 to len 
                for chr = (square-val x y str len)
                do (format t "~C " chr))
          (terpri))))

(print-square "BRUTALLY OPTIMIZED")