Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;;zadanie 1
- (eval '(let (x (lambda-rec (evall expr);;cukier dla list
- (cond
- [(pair? expr) (cond [(eq? (car expr) (quote +)) (+ (car (cdr expr)) (car (cdr (cdr expr))))]
- [(eq? (car expr) (quote -)) (- (car (cdr expr)) (car (cdr (cdr expr))))]
- [(eq? (car expr) (quote *)) (* (car (cdr expr)) (car (cdr (cdr expr))))]
- [(eq? (car expr) (quote /)) (/ (car (cdr expr)) (car (cdr (cdr expr))))]
- )]
- [true expr]))) (x (cons (quote +) (cons 2 (cons 3 null))))))
- ;;list=>cons
- ;;list?('list )=>zamiana na consy
- ;;;zadanie 2
- ;;3 sposób
- ;;pozmieniać nazwy zmienych rozbudowanie składni lambdy lambdy-rec
- ;;gdy trafia na lazy-let podstawianie
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement