src/problems/sset.lisp @ 8f6ef53eac55

ASPC, portability fixes
author Steve Losh <steve@stevelosh.com>
date Mon, 20 Jan 2020 13:41:09 -0500
parents 2735aa6aab79
children (none)
(defpackage :rosalind/sset (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/sset)

;; The cardinality of a power set is 2ⁿ, because you can represent an individual
;; set as a binary string where 1 means the element is included and 0 is not,
;; and there are 2ⁿ possible binary strings of length n.

(define-problem sset (data stream) "3" "8"
  (mod (expt 2 (read data)) 1000000))


#; Scratch --------------------------------------------------------------------