;; -*- 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)))