LIsp / Scheme task to be handled - 31/10/2017 00:54 EDT

HE EXPLANATION AFTER THAT TRY TO USE HIS WAY AND COMMAND ( LOOK UNDER THIS TITLE Wed 10/18/17 Code: 57370 this is the questions : ==> (poke 3 'hello) (one two hello three four) ==> (peek 3) hello ==> (purge 3) (one two three four) ==> (pokeload) Enter new items and then type END: five six seven end (one two three four five six seven) ==> (present) one two three four five six seven () I want you to write defune for each 5 questions please use the code in the note example for answer ==> (defun tens (mylist) (cond ((null mylist) '(() () ())) (t (list (cons (* (car mylist) 10) (car (tens (cdr mylist))) ) (cons (* (car mylist) 50) (cadr (tens (cdr mylist))) ) (cons (* (car mylist) 100) (caddr (tens (cdr mylist))) ) ) ) ) ) please just use the code in the notes thank you Attachments area