Created
November 15, 2020 02:41
-
-
Save tkurtbond/4fc5c8c7cf1b662315801a1da4f9e8fa to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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