7 lines
155 B
Text
7 lines
155 B
Text
(defun gamma (x)
|
|
(* (sqrt (/ (* 2 %pi%)
|
|
x))
|
|
(expt (/ x %e%) x)))
|
|
|
|
(each ((i 1..11))
|
|
(put-line (pic "##.######" (gamma (/ i 3.0)))))
|