結果

問題 No.275 中央値を求めよ
コンテスト
ユーザー MOD9cXWdOsRxvPy
提出日時 2022-10-02 19:00:43
言語 Scheme
(Gauche-0.9.15)
結果
RE  
実行時間 -
コード長 305 bytes
コンパイル時間 249 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 16,384 KB
最終ジャッジ日時 2024-12-25 15:37:41
合計ジャッジ時間 2,237 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample RE * 3
other RE * 38
権限があれば一括ダウンロードができます

ソースコード

diff # 

#!/usr/bin/env gosh

(define (med v)
  (inexact (vector-find-median < v 0))
  )

(define (str->vec str)
  (list->vector
   (map (^x (string->number x))
	(string-split str " ")))
  )

(define (main _)
  (let* ([_ (read-line)]
	 [str (read-line)])
    (display (med (str->vec str)))
    )
  (newline)
  0)
0