;;;B ;; (use binary.io) ;; (use binary.pack) ;;;C ;; (use compat.chibi-test) ;; (use compat.norational) ;; (use compat.real-elementary-functions) ;; (use control.cseq) ;; (use control.future) ;; (use control.job) ;; (use control.plumbing) ;; (use control.pmap) ;; (use control.scheduler) ;; (use control.thread-pool) ;; (use crypt.bcrypt) ;;;D ;; (use data.cache) ;; (use data.heap) ;; (use data.ideque) ;; (use data.imap) ;; (use data.priority-map) ;; (use data.queue) ;; (use data.random) ;; (use data.range) ;; (use data.ring-buffer) ;; (use data.skew-list) ;; (use data.sparse) ;; (use data.trie) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use data.ulid) ;; (use dbi) ;; (use dbm) ;; (use dbm.fsdbm) ;; (use dbm.gdbm) ;; (use dbm.ndbm) ;; (use dbm.odbm) ;;;F ;; (use file.filter) ;; (use file.util) ;;;G ;; (use gauche.array) ;; (use gauche.base) ;; (use gauche.bitvector) ;; (use gauche.cgen) ;; (use gauche.charconv) ;; (use gauche.collection) ;; (use gauche.config) ;; (use gauche.configure) ;; (use gauche.connection) ;; (use gauche.dictionary) ;; (use gauche.fcntl) ;; (use gauche.generator) ;; (use gauche.hook) ;; (use gauche.interactive) ;; (use gauche.lazy) ;; (use gauche.listener) ;; (use gauche.logger) ;; (use gauche.mop.instance-pool) ;; (use gauche.mop.propagate) ;; (use gauche.mop.singleton) ;; (use gauche.mop.validator) ;; (use gauche.net) ;; (use gauche.package) ;; (use gauche.parameter) ;; (use gauche.parseopt) ;; (use gauche.partcont) ;; (use gauche.process) ;; (use gauche.record) ;; (use gauche.reload) ;; (use gauche.selector) ;; (use gauche.sequence) ;; (use gauche.syslog) ;; (use gauche.termios) ;; (use gauche.test) ;; (use gauche.threads) ;; (use gauche.time) ;; (use gauche.unicode) ;; (use gauche.uvector) ;; (use gauche.version) ;; (use gauche.vport) ;;;M ;; (use math.const) ;; (use math.mt-random) ;; (use math.prime) ;; (use math.simplex) ;;;O ;; (use os.windows) ;;;P ;; (use parser.peg) ;;;R ;; (use rfc.822) ;; (use rfc.base64) ;; (use rfc.cookie) ;; (use rfc.ftp) ;; (use rfc.hmac) ;; (use rfc.http) ;; (use rfc.icmp) ;; (use rfc.ip) ;; (use rfc.json) ;; (use rfc.md5) ;; (use rfc.mime) ;; (use rfc.quoted-printable) ;; (use rfc.sha) ;; (use rfc.sha1) ;; (use rfc.tls) ;; (use rfc.uri) ;; (use rfc.uuid) ;; (use rfc.zlib) ;;;S ;; (use scheme.base) ;; (use scheme.bitwise) ;; (use scheme.box) ;; (use scheme.bytevector) ;; (use scheme.case-lambda case-lambda) ;; (use scheme.char) ;; (use scheme.charset) ;; (use scheme.comparator) ;; (use scheme.complex) ;; (use scheme.cxr) ;; (use scheme.division) ;; (use scheme.ephemeron) ;; (use scheme.eval) ;; (use scheme.file) ;; (use scheme.finxum) ;; (use scheme.flonum) ;; (use scheme.generator) ;; (use scheme.hash-table) ;; (use scheme.ideque) ;; (use scheme.ilist) ;; (use scheme.inexact) ;; (use scheme.lazy) ;; (use scheme.list) ;; (use scheme.list-queue) ;; (use scheme.load) ;; (use scheme.lseq) ;; (use scheme.mapping) ;; (use scheme.mapping.hash) ;; (use scheme.process-context) ;; (use scheme.r5rs) ;; (use scheme.read) ;; (use scheme.regex) ;; (use scheme.repl) ;; (use scheme.rlist) ;; (use scheme.set) ;; (use scheme.show) ;; (use scheme.sort) ;; (use scheme.stream) ;; (use scheme.text) ;; (use scheme.time) ;; (use scheme.vector) ;; (use scheme.vector.base) ;; (use scheme.vector.c128) ;; (use scheme.vector.c64) ;; (use scheme.vector.f32) ;; (use scheme.vector.f64) ;; (use scheme.vector.s16) ;; (use scheme.vector.s32) ;; (use scheme.vector.s64) ;; (use scheme.vector.s8) ;; (use scheme.vector.u16) ;; (use scheme.vector.u32) ;; (use scheme.vector.u64) ;; (use scheme.vector.u8) ;; (use scheme.write) ;; (use slib) ;; (use srfi.101) ;; (use srfi.106) ;; (use srfi.112) ;; (use srfi.114) ;; (use srfi.118) ;; (use srfi.120) ;; (use srfi.129) ;; (use srfi.13) ;; (use srfi.130) ;; (use srfi.152) ;; (use srfi.154) ;; (use srfi.160) ;; (use srfi.162) ;; (use srfi.170) ;; (use srfi.172) ;; (use srfi.172.functional) ;; (use srfi.173) ;; (use srfi.174) ;; (use srfi.175) ;; (use srfi.178) ;; (use srfi.180) ;; (use srfi.181) ;; (use srfi.185) ;; (use srfi.189) ;; (use srfi.19) ;; (use srfi.192) ;; (use srfi.193) ;; (use srfi.194) ;; (use srfi.196) ;; (use srfi.197) ;; (use srfi.207) ;; (use srfi.209) ;; (use srfi.210) ;; (use srfi.215) ;; (use srfi.216) ;; (use srfi.217) ;; (use srfi.219) ;; (use srfi.221) ;; (use srfi.222) ;; (use srfi.226) ;; (use srfi.227) ;; (use srfi.227.definitions) ;; (use srfi.228) ;; (use srfi.229) ;; (use srfi.232) ;; (use srfi.235) ;; (use srfi.238) ;; (use srfi.239) ;; (use srfi.247) ;; (use srfi.27) ;; (use srfi.29) ;; (use srfi.29.bundle) ;; (use srfi.29.format) ;; (use srfi.37) ;; (use srfi.4) ;; (use srfi.42) ;; (use srfi.43) ;; (use srfi.5) ;; (use srfi.55) ;; (use srfi.60) ;; (use srfi.64) ;; (use srfi.66) ;; (use srfi.69) ;; (use srfi.7) ;; (use srfi.74) ;; (use srfi.78) ;; (use srfi.98) ;; (use sxml.serializer) ;; (use sxml.ssax) ;; (use sxml.sxpath) ;; (use sxml.tools) ;;;T ;; (use text.console) ;; (use text.csv) ;; (use text.diff) ;; (use text.edn) ;; (use text.external-editor) ;; (use text.gap-buffer) ;; (use text.gettext) ;; (use text.html-lite) ;; (use text.info) ;; (use text.multicolumn) ;; (use text.pager) ;; (use text.parse) ;; (use text.progress) ;; (use text.segmented-match) ;; (use text.sql) ;; (use text.template) ;; (use text.tr) ;; (use text.tree) ;; (use text.unicode) ;;;U ;; (use util.combinations) ;; (use util.digest) ;; (use util.dominator) ;; (use util.isomorph) ;; (use util.lcs) ;; (use util.levenshtein) ;; (use util.list) ;; (use util.match) ;; (use util.queue) ;; (use util.rbtree) ;; (use util.record) ;; (use util.relation) ;; (use util.sparse) ;; (use util.stream) ;; (use util.temporal-relation) ;; (use util.toposort) ;; (use util.trie) ;; (use util.unification) ;;;W ;; (use www.cgi) ;; (use www.cgi.test) (import (scheme base) (scheme read) (scheme write) (gauche base) (srfi 152) ) (define yuki9013 (let* ( (ubh (map string->number (string-split (read-line) ","))) (u (car ubh)) (b (car (cdr ubh))) (h (car (cdr (cdr ubh)))) ) (format #t "~,2f~%" (/ (* (+ u b) h) 2)) ) )