print this triangle by rolf

(defun range(a b)(cond((eq a b)(list a))(t (cons a (range (+ a 1) b)))))
(dolist (n (range 2 63))
(dolist (b (range 2 n))
(setq s "")
(setq m n)
(loop (if (eq m 0) (return))
(setq q (mod m b))
(setq s (concatenate 'string (format nil "~c"(code-char(+ 48 (* (cond ((> q 9) 1) (t 0)) 39)q)))s))
(setq m (truncate m b)))
(princ s)
(if (eq b n)(princ (format nil "~%"))(princ " "))))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page