Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (remove-first list n)
- (if (or (null? list) (< (length list) n))
- list
- (cdr list)))
- (define (add-el list el)
- (if (null? list)
- el
- (cons (car list) (add-el (cdr list) el))))
- (define (sum list)
- (if (null? list)
- 0
- (+ (car list) (sum (cdr list)))))
- (define (mult list)
- (if (null? list)
- 1
- (* (car list) (mult (cdr list)))))
- (define (sumLast k n)
- (define (getSum list1 k n)
- (cons-stream k (getSum (append (remove-first list1 n) (list k)) (sum (append (remove-first list1 n) (list k))) n)))
- (getSum '() k n))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement