function    script  comb_sort   {
    .@size = getarg(2);
    copyarray .@arr, getarg(0), .@size;
    .@size = .@gap = getarg(2);
    .@gap10 = .@size * 10;
    do {
        if ( .@gap10 > 10 ) {
            .@gap10 = .@gap10 * 10 / 13;
            .@gap = .@gap10 / 10;
        }
        .@i = .@swap = 0;
        while ( .@i + .@gap < .@size ) {
            if ( .@arr[.@i] > .@arr[ .@i + .@gap ] ) {
                .@tmp = .@arr[.@i];
                .@arr[.@i] = .@arr[ .@i + .@gap ];
                .@arr[ .@i + .@gap ] = .@tmp;
                .@swap = 1;
            }
            .@i++;
        }
    } while ( .@swap || .@gap > 10 );
    copyarray getarg(1), .@arr, .@size;
    return;
}
 
prontera,155,185,6  script  test comb sort  100,{
    .@total = 10;
    freeloop 1;
    for ( .@i = 0; .@i < .@total; ++.@i ) {
        .@array[.@i] = rand(100);
    }
    .@time = gettimetick(0);
    callfunc "comb_sort", .@array, .@output, .@total;
    .@endtime = gettimetick(0);
    for ( .@i = 0; .@i < .@total; ++.@i )
        dispbottom .@output[.@i] +"";
    dispbottom "time used -> "+( .@endtime - .@time )+" milli-seconds";
    end;
}