Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
 1 665c255d 2023-08-04 jrmu (defun tan-cf (x k)

 2 665c255d 2023-08-04 jrmu        (labels ((tan-step (i)

 3 665c255d 2023-08-04 jrmu 			  (/ (if (= i 1)

 4 665c255d 2023-08-04 jrmu 				 x

 5 665c255d 2023-08-04 jrmu 			       (square x))

 6 665c255d 2023-08-04 jrmu 			     (- (1- (* i 2))

 7 665c255d 2023-08-04 jrmu 				(if (= i k)

 8 665c255d 2023-08-04 jrmu 				    0

 9 665c255d 2023-08-04 jrmu 				  (tan-step (1+ i)))))))

10 665c255d 2023-08-04 jrmu 	       (tan-step 1)))