結果
問題 | No.9013 台形の面積 |
ユーザー |
|
提出日時 | 2024-09-12 23:32:00 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
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 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 4 |
ソースコード
;;;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))))