Write the following functions on lists in Scheme. The semantics of the functions is described through examples. (1) (define flatten (lambda (l) ... )) ... (flatten ’(a ((b) (c d) (((e --> ’(a b c d e) (2) (define rev (lambda (l) ...)) ... (rev ’(e((b)(c d)(((f --> ’f)))(c d)(b))e)

answer; numerous occupation(s);

only #2 represents an object at rest on a table.

in #1, there is no normal force due to the table; the object is accelerating downward.

in #3, the vertical forces are not balanced; the object is accelerating downward.

in #4, neither the vertical nor the horizontal forces are balanced. the object is accelerating upwards and to the right.

answervisible;