Advertisement
Guest User

Untitled

a guest
Apr 19th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.75 KB | None | 0 0
  1. ;;;zadanie 1
  2. (eval '(let (x (lambda-rec (evall expr);;cukier dla list
  3. (cond
  4. [(pair? expr) (cond [(eq? (car expr) (quote +)) (+ (car (cdr expr)) (car (cdr (cdr expr))))]
  5. [(eq? (car expr) (quote -)) (- (car (cdr expr)) (car (cdr (cdr expr))))]
  6. [(eq? (car expr) (quote *)) (* (car (cdr expr)) (car (cdr (cdr expr))))]
  7. [(eq? (car expr) (quote /)) (/ (car (cdr expr)) (car (cdr (cdr expr))))]
  8. )]
  9. [true expr]))) (x (cons (quote +) (cons 2 (cons 3 null))))))
  10.  
  11. ;;list=>cons
  12. ;;list?('list )=>zamiana na consy
  13.  
  14. ;;;zadanie 2
  15.  
  16. ;;3 sposób
  17.  
  18. ;;pozmieniać nazwy zmienych rozbudowanie składni lambdy lambdy-rec
  19. ;;gdy trafia na lazy-let podstawianie
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement