At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia deserunt mollitia animi, id est laborum et dolorum fuga.
Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus.
Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores alias consequatur aut perferendis doloribus asperiores repellat.
Try to use terminal recursivity since you're trying to work from the end to the start.
It should be something like...
(define (lod-clean list)
(lod-clean-aux list '()))
(define (lod-clean-aux list r)
((empty? list) r)
((> (car list) 0) (lod-clean-aux (cdr list) (append r (list (car list))))))))
First method works only to call the aux method that actually does the job. It should work though I can't test it at the moment.
car = first
cdr = rest
r = aux list to which values are passed to and will be returned in the end.
@veryconfused, Try putting several 0's at the end of your test list. It's only removing the very last 0 (not all but one). Also, if your test list ends with a non-zero number you're not returning a list.
Your base cases seem to be where you've put the important logic. You're modifying the return value, so once you reach the base case you'll start returning from the recursive calls, and all you'll do is cons the head of the list to the return value.
I created another function, zeros?, which returns #t if the list is empty or full of zeros. As I cdr down the list in lod-clean I check zeros? each time. When it's #t I start returning, and cons the car of the current list to the return value. I don't like it because in the worst case (a list of all zeros with a non-zero at the very end) it's O(n^2). And it's not even tail recursive. (It's been a long time since I've had to think in Scheme.)
@Narsat, I couldn't get your code to return anything with any test case.