Same fringe: Difference between revisions

Same fringe (view source)

34 bytes added , 10 years ago

→‎{{header|Scheme}}: bug -- reorder avoids (car '()) when trees differ only in length

Anonymous user

Revision as of 12:20, 23 April 2014 (view source) rosettacode>Bitdiddle (→‎{{header\|Scheme}}: reword & example) ← Older edit		Revision as of 12:32, 23 April 2014 (view source) rosettacode>Bitdiddle (→‎{{header\|Scheme}}: bug -- reorder avoids (car '()) when trees differ only in length) Newer edit →
Line 1,801: (cond ((and (null? l1) (null? l2)) #t) ((~~eq?~~or (~~entry (car~~null? l1~~)) (entry (car l2))~~) ~~(next (ascend l1)~~ (~~ascend~~null? l2))) (not (eq? (entry (~~else~~car #fl1)) (entry (car l2))~~</lang>~~))) #f) (else (next (ascend l1) (ascend l2))))))</lang> {{out}}