結果
問題 | No.275 中央値を求めよ |
ユーザー | yusaka |
提出日時 | 2015-09-22 05:37:07 |
言語 | Scheme (Gauche-0.9.14) |
結果 |
AC
|
実行時間 | 137 ms / 1,000 ms |
コード長 | 885 bytes |
コンパイル時間 | 112 ms |
コンパイル使用メモリ | 5,332 KB |
実行使用メモリ | 29,260 KB |
最終ジャッジ日時 | 2023-09-07 04:46:52 |
合計ジャッジ時間 | 3,100 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge14 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 19 ms
11,820 KB |
testcase_01 | AC | 19 ms
11,936 KB |
testcase_02 | AC | 19 ms
12,016 KB |
testcase_03 | AC | 35 ms
12,828 KB |
testcase_04 | AC | 18 ms
12,084 KB |
testcase_05 | AC | 18 ms
11,948 KB |
testcase_06 | AC | 19 ms
12,108 KB |
testcase_07 | AC | 24 ms
12,444 KB |
testcase_08 | AC | 25 ms
12,824 KB |
testcase_09 | AC | 27 ms
12,948 KB |
testcase_10 | AC | 19 ms
12,164 KB |
testcase_11 | AC | 26 ms
12,784 KB |
testcase_12 | AC | 18 ms
11,776 KB |
testcase_13 | AC | 25 ms
12,748 KB |
testcase_14 | AC | 18 ms
11,728 KB |
testcase_15 | AC | 21 ms
12,848 KB |
testcase_16 | AC | 137 ms
29,120 KB |
testcase_17 | AC | 134 ms
29,260 KB |
testcase_18 | AC | 19 ms
12,232 KB |
testcase_19 | AC | 27 ms
13,404 KB |
testcase_20 | AC | 21 ms
12,580 KB |
testcase_21 | AC | 19 ms
12,404 KB |
testcase_22 | AC | 21 ms
12,896 KB |
testcase_23 | AC | 28 ms
13,116 KB |
testcase_24 | AC | 19 ms
12,228 KB |
testcase_25 | AC | 21 ms
12,624 KB |
testcase_26 | AC | 28 ms
13,424 KB |
testcase_27 | AC | 28 ms
13,416 KB |
testcase_28 | AC | 25 ms
12,772 KB |
testcase_29 | AC | 27 ms
13,140 KB |
testcase_30 | AC | 27 ms
12,880 KB |
testcase_31 | AC | 22 ms
12,720 KB |
testcase_32 | AC | 27 ms
12,844 KB |
testcase_33 | AC | 28 ms
15,492 KB |
testcase_34 | AC | 27 ms
12,748 KB |
testcase_35 | AC | 29 ms
13,404 KB |
testcase_36 | AC | 28 ms
13,304 KB |
testcase_37 | AC | 20 ms
12,108 KB |
testcase_38 | AC | 20 ms
12,224 KB |
testcase_39 | AC | 27 ms
13,028 KB |
testcase_40 | AC | 29 ms
13,604 KB |
ソースコード
#!/usr/bin/env gosh (define (read-input) (let ((n (read (open-input-string (read-line)))) (numbers (read (open-input-string (string-append "(" (read-line) ")"))))) (cons n numbers))) (define (sort lst) (define (filter p? lst acc) (if (null? lst) acc (if (p? (car lst)) (filter p? (cdr lst) (cons (car lst) acc)) (filter p? (cdr lst) acc)))) (if (null? lst) '() (append (sort (filter (lambda (x) (<= (car lst) x)) (cdr lst) '())) (list (car lst)) (sort (filter (lambda (x) (> (car lst) x)) (cdr lst) '()))))) (define (get-median lst) (let ((n (car lst)) (ns (sort (cdr lst)))) (if (even? n) (* 0.5 (+ (list-ref ns (/ n 2)) (list-ref ns (- (/ n 2) 1)))) (list-ref ns (div n 2))))) (display (get-median (read-input))) (newline)