結果
問題 |
No.182 新規性の虜
|
ユーザー |
![]() |
提出日時 | 2019-07-01 18:59:29 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
WA
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 920 bytes |
コンパイル時間 | 273 ms |
コンパイル使用メモリ | 35,620 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-18 01:12:53 |
合計ジャッジ時間 | 1,851 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | WA * 3 |
other | WA * 27 |
ソースコード
!-------モジュール module quicksort_function implicit none contains !再帰型副関数 recursive function qsort(x) result(quick) integer(4), allocatable :: quick(:) integer(4), intent(in) :: x(:) integer(4) mid mid=(size(x)/2) if (size(x) > 1) then quick = [qsort(pack(x,x<x(mid))),pack(x,x==x(mid)),qsort(pack(x,x>x(mid)))] else quick = x end if end function qsort end module quicksort_function !------主プログラム program Sort use quicksort_function implicit none integer(4) m,n,i,a integer(4),allocatable :: x(:) integer(4),allocatable :: y(:) read(*,*) n allocate (x(1:n)) allocate (y(1:n)) read(*,*) (x(m),m=1,n) y=qsort(x) do i=1,n if (y(i-1)/=y(i).and.y(i)/=y(i+1)) then a=a+1 end if end do write(*,*) a end program Sort