[ Course Documents ] : [ FP Foundations, Scheme ]

Previous Contents Next Keyword Index

Example Scheme Functions: member

• member takes an atom and a list; returns #T if the atom is in the list; () otherwise

      (define (member atm lis)
          (cond
              ((null? lis) '())
              ((equal? atm (car lis)) #t)
              (else (member atm (cdr lis)))
          )
      )