Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (najmniejszy l)
- (if (null? l)
- #f
- (if (null? (cdr l))
- (car l)
- (if (< (car l)(cadr l))
- (najmniejszy (cons(car l)(cddr l)))
- (najmniejszy (cdr l))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement