結果
問題 | No.275 中央値を求めよ |
ユーザー |
![]() |
提出日時 | 2016-07-22 01:30:21 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 1,000 ms |
コード長 | 826 bytes |
コンパイル時間 | 392 ms |
コンパイル使用メモリ | 35,444 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-06-24 23:53:59 |
合計ジャッジ時間 | 1,526 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 38 |
ソースコード
recursive function qsort(x) result(y) integer,intent(in) ::x(:) integer,allocatable::y(:) integer::pivot,total total = size(x) if (total <=1) then y = x else pivot = x(total/2) y = [qsort(pack(x, x .lt. pivot)), & pack(x, x .eq. pivot), & qsort(pack(x, x .gt. pivot))] endif end function qsort program main interface recursive function qsort(x) result(y) integer,intent(in) ::x(:) integer,allocatable::y(:) end function qsort end interface integer::total integer,allocatable::x(:), y(:) read *,total allocate(x(total)) allocate(y(total)) read *,(x(i),i=1,total) y = qsort(x) if (mod(total,2).eq.1) then print '(f0.1)',y(total/2+1)*1.0 else print '(f0.1)',(y(total/2)+y(total/2+1)) /2.0 endif end program main