Split aus "Zwei Verkettete Listen in sich verketten"

[c.rackwitz]

pale dog schrieb:

was? so umständlich geht das?
dafür gibt es doch bestimmt einen fertigen befehl...

mir doch wurscht. sowas reisst man doch in nicht mal 5 minuten runter.

ausserdem ist es scheme. CL haette sicher was built in. bei scheme bin ich mir nicht sicher.

[BorisDieKlinge]

ich hatte mein code in 3,30 min ... hrhrhrhr

[pale dog]

c.rackwitz schrieb:

ausserdem ist es scheme. CL haette sicher was built in. bei scheme bin ich mir nicht sicher.

du bist dir nicht sicher? schemen solltest du dich
dem OP hilfts auch nix, nicht nur wegen der vielen ((((())))))

[c.rackwitz]

das ganze pointer-jonglieren geht einem doch nach ner weile auf den zeiger... ich tu mir sowas schon seit langem nicht mehr an.

[BorisDieKlinge]

ich finds geil *fg*... gehirnjogging....

[LOL ROLF]

BorisDieKlinge schrieb:

ich hatte mein code in 3,30 min ... hrhrhrhr

so sieht er aus

[BorisDieKlinge]

naja grob struktur stimmt denk ich

Ist doch kein komplizierter Algorithmus...glaub ich

[FALSCHES FORUM]

c.rackwitz schrieb:

(define a (list 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29))
(define b (list 2 4 6 8 10 12 14 16 18 20 ))

(define (combine a b)
  (cond ((null? a) b)
        ((null? b) a)
        (else
         (let ((u (car a))
               (v (car b)))
           (cond ((< u v)
                  (cons u
                        (combine (cdr a)
                                 b)))
                 ((< v u)
                  (cons v
                        (combine a
                                 (cdr b))))
                 (else
                  (cons u
                        (combine (cdr a)
                                 (cdr b)))))))))

(equal? (combine a b)
        (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 23 25 27 29))

(equal? (combine a b)
        (combine b a))

Das ist kein ANSI C !!!

[c.rackwitz]

der vorherige code war fuer geordnete listen, auch "sets" genannt.
fuer ungeordnete listen, die einfach nur gezippt werden sollen:

(define a
  (list 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29))

(define b
  (list 2 4 6 8 10 12 14 16 18 20 22 24 26 28))

(define (zip a b)
  (cond ((null? a) b)
        ((null? b) a)
        (else
         (cons (car a)
               (cons (car b)
                     (zip (cdr a)
                          (cdr b)))))))

(zip a b)
(zip b a)

[Gast]

Wenn ihr über Scheme oder irgendwas != C reden wollt, dann geht in das entsprechende Unterforum.