date() =>
** [21 Mar 1989 13 51 24]
What would be printed out by the following POP-11 commands:
length(date()) + length("date")=>
[length(date)]=>
"length(date)"=>
vars date_length;
date() -> date_length;
date_length + date_length -> date_length;
date_length =>area that takes as its argument the
radius of a disk and returns its area (given that an expression to calculate
the area is 3.14159*radius*radius). Incorporate area in a
procedure volume that takes two arguments, representing the radius
and height of a cylinder, and returns its volume (given that the volume of a
cylinder is area*height).