private static double[dchar] icmpAbc;
 
static this()
{
    icmpAbc['ç'] = 'c' + .5;
    icmpAbc['ğ'] = 'g' + .5;
    icmpAbc['ı'] = 'h' + .5;
    icmpAbc['ö'] = 'o' + .5;
    icmpAbc['ş'] = 's' + .5;
    icmpAbc['ü'] = 'u' + .5;
    icmpAbc['Ç'] = 'C' + .5;
    icmpAbc['Ğ'] = 'G' + .5;
    icmpAbc['İ'] = 'I' + .5;
    icmpAbc['Ö'] = 'O' + .5;
    icmpAbc['Ş'] = 'S' + .5;
    icmpAbc['Ü'] = 'U' + .5;
}
 
private double sıraNumarası_tr(in dstring dizgi, inout size_t indeks)
{
    return sıraNumarası_tr(cast(dchar[])dizgi, indeks);
}
 
private double sıraNumarası_tr(in dchar[] dizgi, inout size_t indeks)
{
    auto numara = (dizgi[indeks] in icmpAbc);
 
    if (numara) {
        ++indeks;
        return *numara;
 
    } else {
        return cast(double)(std.utf.decode(dizgi, indeks));
    }
}   
unittest
{
    void testDoğruSıra(dchar önceki, dchar sonraki)
    {
        dchar[] öncekiDizgi;
        öncekiDizgi ~= önceki;
 
        dchar[] sonrakiDizgi;
        sonrakiDizgi ~= sonraki;
 
        size_t i1;
        size_t i2;
 
        double sıra1 = sıraNumarası_tr(öncekiDizgi, i1);
        double sıra2 = sıraNumarası_tr(sonrakiDizgi, i2);
 
        debug dout.writefln(öncekiDizgi, ": ", sıra1, "  ",
                            sonrakiDizgi, ": ", sıra2);
 
        assert(sıra1 < sıra2);
    }
 
    testDoğruSıra('c', 'ç');
    testDoğruSıra('ç', 'd');
    testDoğruSıra('I', 'İ');
    testDoğruSıra('İ', 'J');
    testDoğruSıra('s', 'ş');
    testDoğruSıra('ş', 't');
}
 
int cmp_tr(dchar[] ilk, dchar[] son)
{
    size_t i1, i2;
 
    for (;;)
    {
        if (i1 == ilk.length) return i2 - son.length;
        if (i2 == son.length) return ilk.length - i1;
 
        invariant double sıra1 = sıraNumarası_tr(ilk, i1);
        invariant double sıra2 = sıraNumarası_tr(son, i2);
 
        if (sıra1 != sıra2) {
            return cast(int)sıra1 - cast(int)sıra2;
        }
    }
}
unittest
{
    assert(cmp_tr("aa"d.dup, "aaa"d.dup) < 0);
    assert(cmp_tr("aaa"d.dup, "aa"d.dup) > 0);
    assert(cmp_tr("deneme"d.dup, "debeme"d.dup) > 0);
    assert(cmp_tr("çalışkan"d.dup, "öğrenci"d.dup) < 0);
    assert(cmp_tr("TürkçeyeUygun"d.dup, "TürkçeyeUygun"d.dup) == 0);
}