Add auto-module ASDF to save typing. Thanks, jackdaniel
author |
Steve Losh <steve@stevelosh.com> |
date |
Sat, 15 Dec 2018 16:56:57 -0500 |
parents |
11df545d1a41 |
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)