Skip to content

Instantly share code, notes, and snippets.

@tkurtbond
Created November 15, 2020 02:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tkurtbond/4fc5c8c7cf1b662315801a1da4f9e8fa to your computer and use it in GitHub Desktop.
Save tkurtbond/4fc5c8c7cf1b662315801a1da4f9e8fa to your computer and use it in GitHub Desktop.
(defun flesh-to-stone-weight (human-weight)
"Calculate how much a human of HUMAN-WEIGHT pounds would weigh if they were
converted into granite."
(interactive "nHuman weight in pounds: ")
(let* ((human-density 63.1) ; lb/ft^3
(granite-density 168) ; lb/ft^3
(granite-weight (* (/ human-weight human-density) granite-density)))
(message "A human of %f pounds would weigh %f pounds
if converted to granite."
human-weight granite-weight)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment