fork download
  1. ; merry christmas from pascal bourguinon
  2.  
  3. (loop with height = 18
  4. for i below height
  5. for w = (truncate (+ i (* (/ i 8) (sin (/ (* pi i) 2)))))
  6. for l = (format nil "~A~V{*~}~A" (if (zerop (random 5)) "i " " ") (* 2 w) '(()) (if (zerop (random 6)) " i" " "))
  7. do (format t "~VA~A~%" (- (+ 2 height) (truncate (length l) 2)) "" l)
  8. finally (loop repeat 3 do (format t "~VA||||~%" height "")))
Success #stdin #stdout 0.01s 25684KB
stdin
Standard input is empty
stdout
                     
                   ** 
                  **** 
                  **** 
                ******** 
              i ********** 
              ************ 
              ************ 
             ************** 
          ******************** i
          ******************** 
           ****************** 
         ********************** 
      **************************** 
      **************************** i
       ************************** 
    i ****************************** 
 ************************************** 
                  ||||
                  ||||
                  ||||