結果

問題 No.9013 台形の面積
ユーザー keidenkeiden
提出日時 2024-09-12 23:32:00
言語 Scheme
(Gauche-0.9.14)
結果
AC  
実行時間 97 ms / 2,000 ms
コード長 6,292 bytes
コンパイル時間 126 ms
コンパイル使用メモリ 6,688 KB
実行使用メモリ 28,672 KB
最終ジャッジ日時 2024-09-12 23:32:03
合計ジャッジ時間 1,722 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 96 ms
28,544 KB
testcase_01 AC 97 ms
28,672 KB
testcase_02 AC 93 ms
28,544 KB
testcase_03 AC 93 ms
28,288 KB
testcase_04 AC 94 ms
28,544 KB
testcase_05 AC 96 ms
28,544 KB
testcase_06 AC 96 ms
28,544 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

;;;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))
  )
)
0