A table with Arabic names

// A table with Arabic names: std.fmt measures width in user-perceived
// characters (grapheme clusters), so a letter with its harakat counts once
// and the columns line up. One formatter is reused for every row.
import std.fmt.fmt;
import std.io.print;

def main(): int {
    let names: vector string = ["مُحَمَّد", "فَاطِمَة", "عَلِيّ", "Sara"];
    let scores: vector f64 = [91.5, 88.25, 79.0, 95.125];
    let title: string = "Name";
    let heading: string = "Score";
    let empty: string = "";
    let line: mutable formatter = new_formatter();
    let h: result uint, fmt_error = format_into(&mutable line, "{:<10}|{:>7}\n{2:-<10}+{2:->7}\n", [fmt_arg.text(&title), fmt_arg.text(&heading), fmt_arg.text(&empty)]);
    let total: mutable f64 = 0.0;
    let i: mutable uint = 0;
    while (i < (length(names) as uint)) {
        let w: result uint, fmt_error = format_into(&mutable line, "{:<10}|{:>7.2}\n", [fmt_arg.text(&names[i]), fmt_arg.f64(scores[i])]);
        total := total + scores[i];
        i := i + 1;
    }
    let label: string = "Average";
    let f: result uint, fmt_error = format_into(&mutable line, "{:<10}|{:>7.3}\n", [fmt_arg.text(&label), fmt_arg.f64(total / 4.0)]);
    let printed: result int, int = print(take_formatter_text(&mutable line));
    return 0;
}

// جدول بأسماء عربية: تقيس المكتبة.تنسيق العرض بالمحارف كما يراها القارئ
// (عناقيد المحارف)، فالحرف مع حركاته يعد مرة واحدة وتصطف الأعمدة. ويعاد
// استعمال منسق واحد لكل الصفوف.
استورد المكتبة.تنسيق.fmt;
استورد std.io.print;

عرف الرئيسية(): عدد {
    دع الأسماء: متجه نص = [«مُحَمَّد», «فَاطِمَة», «عَلِيّ», «Sara»];
    دع الدرجات: متجه ع64 = [91.5, 88.25, 79.0, 95.125];
    دع العنوان: نص = «الاسم»;
    دع الرأس_الثاني: نص = «الدرجة»;
    دع فارغ: نص = «»;
    دع السطر: متغير منسق = أنشئ_منسقا();
    دع ر: نتيجة طبيعي, خطأ_تنسيق = نسق_في(&متغير السطر, "{:<10}|{:>7}\n{2:-<10}+{2:->7}\n", [قيمة_تنسيق.نص(&العنوان), قيمة_تنسيق.نص(&الرأس_الثاني), قيمة_تنسيق.نص(&فارغ)]);
    دع المجموع: متغير ع64 = 0.0;
    دع ف: متغير طبيعي = 0;
    طالما (ف < (الطول(الأسماء) مثل طبيعي)) {
        دع ك: نتيجة طبيعي, خطأ_تنسيق = نسق_في(&متغير السطر, "{:<10}|{:>7.2}\n", [قيمة_تنسيق.نص(&الأسماء[ف]), قيمة_تنسيق.ع64(الدرجات[ف])]);
        المجموع := المجموع + الدرجات[ف];
        ف := ف + 1;
    }
    دع التسمية: نص = «المتوسط»;
    دع ذ: نتيجة طبيعي, خطأ_تنسيق = نسق_في(&متغير السطر, "{:<10}|{:>7.3}\n", [قيمة_تنسيق.نص(&التسمية), قيمة_تنسيق.ع64(المجموع / 4.0)]);
    دع المطبوع: نتيجة عدد, عدد = اطبع(خذ_نص_المنسق(&متغير السطر));
    أرجع 0;
}