; mische.scm

'(3 5 7 9 11 13 17)
'(4 5 6 7 8 9)
(define
  (mische liste-a liste-b neue-liste)
  (cond
    ((null? liste-a) (append (reverse neue-liste) liste-b))
    ((null? liste-b) (append (reverse neue-liste) liste-a))
    ((< (car liste-a) (car liste-b))
     (mische (cdr liste-a) liste-b (cons (car liste-a) neue-liste)))
    (else
     (mische liste-a (cdr liste-b) (cons (car liste-b) neue-liste)))))
(mische '(3 5 7 9 11 13 17) '(4 5 6 7 8 9) '())