;; -*- Mode: Irken -*-
(include "lib/core.scm")
(include "lib/pair.scm")
(define (superset? a b)
(every? (lambda (x) (member-eq? x a)) b))
(define (subset? a b)
(every? (lambda (x) (member-eq? x b)) a))
(printn (superset? '(1 2 3) '(1 2 3 4 5)))
(printn (superset? '(1 2 3 4 5) '(1 2 3)))
(printn (superset? '(1 2 3) '(1 2 3)))
(printn (subset? '(1 2 3) '(1 2 3 4 5)))