Schéma de la fusion de deux listes en une seule

comment concevoir une fonction de fusion de deux listes en une seule liste.
le premier élément de la première liste sera le premier élément de la nouvelle liste et le premier élément de la deuxième liste sera le deuxième élément de la nouvelle liste
(a,b,c,d,e,f), (g,h,i) sera (a,g,b,h,c,i,d,e,f,)

OriginalL'auteur John | 2012-09-28

  1. 6

    La procédure que vous essayez de mettre en œuvre est connue comme interleave ou merge. Parce que cela ressemble à des devoirs, je ne peux pas vous laisser un droit de réponse, je vais plutôt vous diriger dans la bonne direction; remplir les espaces vides:

    (define (interleave lst1 lst2)
  (cond ((null? lst1)     ; If the first list is empty
         <???>)           ; ... return the second list.
        ((null? lst2)     ; If the second list is empty
         <???>)           ; ... return the first list.
        (else             ; If both lists are non-empty
         (cons (car lst1) ; ... cons the first element of the first list
               <???>))))  ; ... make a recursively call, advancing over the first
                          ; ... list, inverting the order used to pass the lists.
    Je vous remercie beaucoup.
    Downvoter: des commentaires à ce sujet?
    Je suis juste deviner mais les Downvoter peut-être s'opposer à la "parce que cela ressemble à des devoirs". J'ai eu cette même question en ce moment et je suis à l'aide de système dans un environnement de travail. Peut-être le Downvoter a été mis hors tension par la présomption c'est la question des devoirs à la maison d'origine. Encore une fois, je suis juste deviner.
    J'en doute, un beaucoup mes réponses sont écrites en supposant que l'OP est en train de faire des devoirs à faire et ne donnent que des conseils, comme ci-dessus. Tant que la réponse est correcte (ce qui est), il n'y a pas de raison de downvote pour que
    Je n'en disconviens pas donner de conseils est/peut-être la bonne. Je suis suggère simplement que l'opposition est le public accusation. En général, les gens n'aiment pas être accusé de nefariousness lorsque les innocents questions sont soulevées.

    OriginalL'auteur Óscar López

  2. 13

    Ici est purement fonctionnelle et récursive de la mise en œuvre dans R6RS

    (define (merge l1 l2)
      (if (null? l1) l2
          (if (null? l2) l1
              (cons (car l1) (cons (car l2) (merge (cdr l1) (cdr l2)))))))

    OriginalL'auteur Aslan986

  3. 1

    Il n'est pas nécessaire de vérifier les deux listes: Voici une version simple: 

        (define (interleave lx lz)
  (cond
    [(empty? lx) lz]
    [else (cons (first lx)(interleave lz (rest lx)))]))


(check-expect(interleave '() '())'())
(check-expect(interleave '(X X X X X X) '(O O O O O))
             (list 'X 'O 'X 'O 'X 'O 'X 'O 'X 'O 'X))
(check-expect(interleave '(1 2 3) '(a b c d e f))
             (list 1 'a 2 'b 3 'c 'd 'e 'f))

    OriginalL'auteur wolrah