Skip to content

Instantly share code, notes, and snippets.

@tkurtbond

tkurtbond/kelvin-celsius-and-fahrenheit.lisp

Last active December 30, 2021 18:29
Show Gist options
  • Save tkurtbond/9f8777bf16490499b79be3eb187d6c1f to your computer and use it in GitHub Desktop.
Save tkurtbond/9f8777bf16490499b79be3eb187d6c1f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
kelvin-celsius-and-fahrenheit.lisp
(loop for f from -20 to 220
do (let ((c (* (/ 5 9) (- f 32)))
(k (+ 273.15 (* (/ 5 9) (- f 32)))))
(format t "~6,2f℉ ~6,2f℃ ~6,2fK~%" f c k)))
(loop for f from -20 to 220
for c = (* (/ 5 9) (- f 32))
for k = (+ 273.15 (* (/ 5 9) (- f 32)))
do (format t "~6,2f℉ ~6,2f℃ ~6,2fK~%" f c k))
(use-package :iterate)
(iter (for f from -20 to 220)
(let ((c (* (/ 5 9) (- f 32)))
(k (+ 273.15 (* (/ 5 9) (- f 32)))))
(format t "~6,2f℉ ~6,2f℃ ~6,2fK~%" f c k)))
(iter (for f from -20 to 220)
(for c = (* (/ 5 9) (- f 32)))
(for k = (+ 273.15 (* (/ 5 9) (- f 32))))
(format t "~6,2f℉ ~6,2f℃ ~6,2fK~%" f c k))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment