1function test139 2%TEST139 merge sort, special cases 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: Apache-2.0 6 7fprintf ('test139 --------------- merge sort, special cases\n') ; 8rng ('default') ; 9 10n = 1e6 ; 11I = 42 * ones (n,1) ; 12J = (1:n)' ; 13K = 100 * ones (n,1) ; 14 15I0 = int64 (I) ; 16J0 = int64 (J) ; 17K0 = int64 (K) ; 18 19IJ1 = sortrows ([I0 J0]) ; 20[a b] = GB_mex_msort_2 (I0, J0, 2) ; 21assert (isequal (IJ1, [a b])) ; 22 23IJ3 = sortrows ([I0 J0 K0]) ; 24[a b c] = GB_mex_msort_3 (I0, J0, K0, 2) ; 25assert (isequal (IJ3, [a b c])) ; 26 27IJ1 = sortrows ([J0 I0]) ; 28[a b] = GB_mex_msort_2 (J0, I0, 2) ; 29assert (isequal (IJ1, [a b])) ; 30 31fprintf ('test139 --------------- all tests passed\n') ; 32