Testul la ex 1 merge și pe liste

[andreiolaru]

(define (list->stream L)
(if(null? L)
'()
(stream-cons (car L) (cdr L))))

[Florin Mihalache]

@andreiolaru-ro Testele trec si daca avem asa:

(define (list->stream L)
  (if (null? L)
      '()
      (stream-cons (car L) (list->stream (cdr L)))))

Aici propun sa adaugam un test pentru cazul (list->stream '()), in care sa verificam (null? (list->stream '()), care, in mod corect, da false (testat pe solutia oficiala)

[Florin Mihalache]

De asemenea, toate testele (inclusiv de la exercitiul 1) trec pentru urmatoarea solutie (proasta):

(define (list->stream L)
  (if (null? L)
      '()
      (cons (car L) (cdr L))))

Aici ne trebuie un test in care sa vedem daca rezultatul intors este o lista sau nu.