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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

w

Connecting to %s