Re-write the following function using a different procedure but produce the same results.
(defun c:cyrds ( / cubic_yards)
(if
(setq cubic_yards
(/
(apply '*
(list
(getreal "\nEnter length: ")
(getreal "\nEnter width: ")
(getreal "\nEnter height: ")
)
)
27.00
)
)
(prompt
(strcat
"\nCubic yards of concrete = "
(rtos cubic_yards 2 2)
)
)
)
(princ)
)