الأسس (لغة برمجة)

اشمل "عامة.أسس"؛

عرّف أهلا_بالعالم : حزمة {
  عرّف إبدأ : دالّة () => العدد_الصحيح {
  اطبع("أهلا بالعالم\ج")؛
  أرجع 0
  }
}؛

نفّذ أهلا_بالعالم؛

اشمل "عامة.أسس"؛

عرّف مصفوفات_الفيبوناشي : حزمة {
  عرّف إبدأ : دالّة () {
    عرّف ا : العدد_الصحيح؛

    // إنشاء مصفوفة تحتوي على سلسلة فيبوناشي.
    عرّف مصفوفة_اختبار : مصفوفة[العدد_الصحيح، 10]؛
    مصفوفة_اختبار[0] = 1؛
    مصفوفة_اختبار[1] = 1؛

    لكل (ا = 2، ا < 10، ا = ا+1) {
      مصفوفة_اختبار[ا] = مصفوفة_اختبار[ا-1] + مصفوفة_اختبار[ا-2]؛
    }؛

    // اطبع عناصر المصفوفة.
    لكل (ا = 0، ا < 10، ا = ا+1) {
      اطبع("%d\ج"، مصفوفة_اختبار[ا])؛
    }؛

    أرجع 0
  }
}؛

نفّذ مصفوفات_الفيبوناشي

import "common.alusus";

def HelloWorld : module {
    def main : function() => Int {
    print("Hello World!\n");
    return 0;
    };
};

run HelloWorld;

import "common.alusus";

def ArraysFibonacci : module {
    def main : function() {
        def i : Int;

        // Generates an array whose elements contains Fibonacci sequence.
        def testArray : ary[Int, 10];
        testArray[0] = 1;
        testArray[1] = 1;

        for (i = 2, i < 10, i = i+1) {
            testArray[i] = testArray[i-1] + testArray[i-2];
        };

        // Prints the elements of the array.
        for (i = 0, i < 10, i = i+1) {
            printf("%d\n", testArray[i]);
        };
    }
};

run ArraysFibonacci;