Програми на Мавці

00_Мавка.м

друк("Приклади програм на Мавці")

01_фібоначі.м

;; ініціалізаця перших двух елементів
t1 = 0
t2 = 1

;; ініціалізаця наступного елкмента (третього)
наступний = t1 + t2

;; Запит на кількість елементів у корисувача
кількість = число(читати("Введіть кількість елементів: "))

;; Напечатати перші два елемента t1 та t2
друк("Послідовність Фібоначчі: %(t1), %(t2), ")

;; надрукувати від 3-го до кількість-ого елемента
перебрати діапазон(3, кількість + 1) як i
    друк("%(наступний), ")
    t1 = t2
    t2 = наступний
    наступний = t1 + t2
кінець

02_очко.м

колода = [6,7,8,9,10,2,3,4,11,
    6,7,8,9,10,2,3,4,11,
    6,7,8,9,10,2,3,4,11,
    6,7,8,9,10,2,3,4,11] ;;* 4

дія перемішувач(acc, el) 
    якщо global.Math.random() > 0.5
        acc.додати(el)
        вернути acc
    інакше
        вернути [el].злити(acc)
    кінець
кінець
колода = колода.скоротити(перемішувач, [])

друк("Пограемо у очко?")
count = 0

поки так
    choice = читати("Будете брати карту? т/н ")
    якщо choice рівно "т"
        current = колода.забрати()
        друк("Вам попалася карта із очками %(current)")
        count += current
        якщо count > 21
            друк("Вибачайте, но ви програли")
            зупинити
        якщо count == 21
            друк("Поздоровляю, вы набрали 21!")
            зупинити
        інакше
            друк("У вас є %(count) очок.")
        кінець
    якщо choice рівно "н"
        друк("У вас %(count) очок і вы закінчили гру.")
        зупинити
    кінець
кінець

друк("До нових зустрічей!")