hg.stevelosh.com > rosalind

src/problems/iev.lisp @ a95ed046cc2c 

NWCK
author Steve Losh <steve@stevelosh.com>
date Fri, 05 Aug 2022 00:16:11 -0400
parents 2735aa6aab79
children (none) 
(defpackage :rosalind/iev (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/iev)

(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)))
    (u:float-string
      ;; It's just a weighted average…
      (* 2 (+ (* dd 1)
              (* dh 1)
              (* dr 1)
              (* hh 3/4)
              (* hr 1/2)
              (* rr 0)))
      4)))