Codes: part 21

(do (( a 1 (incf a)))
((>= a 40))
(do (( b 1 (incf b)))
((>= b 40))
(do (( c 1 (incf c)))
((>= c 45))
(if (= (** c 2) (- (** a 3) (** b 3)))
(format t “~2d ~4a ~6d ~8a ~10d ~12a ~14d ~16a~%”
(** c 2) ” = ” c “^2 = ” a “^3 – ” b “^3”))
)
)
)

Advertisements