結果

問題 No.275 中央値を求めよ
ユーザー yusakayusaka
提出日時 2015-09-22 05:18:57
言語 Scheme
(Gauche-0.9.14)
結果
RE  
実行時間 -
コード長 794 bytes
コンパイル時間 54 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 16,640 KB
最終ジャッジ日時 2024-07-19 08:35:43
合計ジャッジ時間 2,048 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 RE -
testcase_01 RE -
testcase_02 RE -
testcase_03 RE -
testcase_04 RE -
testcase_05 RE -
testcase_06 RE -
testcase_07 RE -
testcase_08 RE -
testcase_09 RE -
testcase_10 RE -
testcase_11 RE -
testcase_12 RE -
testcase_13 RE -
testcase_14 RE -
testcase_15 RE -
testcase_16 RE -
testcase_17 RE -
testcase_18 RE -
testcase_19 RE -
testcase_20 RE -
testcase_21 RE -
testcase_22 RE -
testcase_23 RE -
testcase_24 RE -
testcase_25 RE -
testcase_26 RE -
testcase_27 RE -
testcase_28 RE -
testcase_29 RE -
testcase_30 RE -
testcase_31 RE -
testcase_32 RE -
testcase_33 RE -
testcase_34 RE -
testcase_35 RE -
testcase_36 RE -
testcase_37 RE -
testcase_38 RE -
testcase_39 RE -
testcase_40 RE -
権限があれば一括ダウンロードができます

ソースコード

diff # 

#!/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))))
  (append (sort (filter (lambda (x) (< (car lst) x)) '()))
          (car lst)
	  (sort	(filter (lambda (x) (> (car lst) x)) '()))))

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