[ Course Documents ] : [ FP Foundations, Scheme ]

Previous Contents Next Keyword Index

Example Scheme Fns: flat-equal

• flat-equal takes two simple lists as parameters; returns #T if the two simple lists are equal; () otherwise

      (define (flat-equal lis1 lis2)
          (cond
              ((null? lis1) (null? lis2))
              ((null? lis2) '())
              ((eqv? (car lis1) (car lis2))
                  (flat-equal (cdr lis1) (cdr lis2)))
              (else '())
          )
      )