結果
問題 | 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,totaltotal = size(x)if (total <=1) theny = xelsepivot = x(total/2)y = [qsort(pack(x, x .lt. pivot)), &pack(x, x .eq. pivot), &qsort(pack(x, x .gt. pivot))]endifend function qsortprogram maininterfacerecursive function qsort(x) result(y)integer,intent(in) ::x(:)integer,allocatable::y(:)end function qsortend interfaceinteger::totalinteger,allocatable::x(:), y(:)read *,totalallocate(x(total))allocate(y(total))read *,(x(i),i=1,total)y = qsort(x)if (mod(total,2).eq.1) thenprint '(f0.1)',y(total/2+1)*1.0elseprint '(f0.1)',(y(total/2)+y(total/2+1)) /2.0endifend program main