hg.stevelosh.com > rosalind

src/problems/iev.lisp @ 11df545d1a41 

Remove comments, do CONS
author Steve Losh <steve@stevelosh.com>
date Sat, 03 Nov 2018 14:41:39 -0400
parents d6e73cb32b9b
children 474d88a2af2e 
(in-package :rosalind)

(define-problem iev (data stream)
    "1 0 0 1 0 1"
    "3.5000"
  (let* ((dd (read data))
         (dh (read data))
         (dr (read data))
         (hh (read data))
         (hr (read data))
         (rr (read data)))
    (format nil "~,4F"
            ;; It's just a weighted average…
            (* 2 (+ (* dd 1)
                    (* dh 1)
                    (* dr 1)
                    (* hh 3/4)
                    (* hr 1/2)
                    (* rr 0))))))

;; (problem-iev)
;; (solve iev)