عيد الحب

type Season
    = Spring
    | Summer
    | Autumn
    | Winter

type FlexibleNumber
    = Integer Int
    | Float Float
    | Invalid

integerTwo = Integer 2
invalid = FlexibleNumber.Invalid

let describe flexibleNumber =
    case flexibleNumber of
        Integer i ->
            "Integer: " ++ fromInt(i)

        Float f ->
            "Float: " ++ fromFloat(f)

        Invalid   ->
            "Invalid"

التعليمات

في هذا التمرين، إنه عيد الحب، وأنت وشريكك تخططان للقيام بشيء لطيف معًا. لدى شريكك أفكار كثيرة، وهو يطلب منك الآن تقييم هذه الأفكار، من أجل الوصول إلى النشاط الذي ستمارسانه.

فيما يلي الأفكار التي يقترحها شريكك:

• لعب لعبة لوحية
• الاسترخاء
• مشاهدة فيلم
• الذهاب إلى مطعم

لديك ست مهام تساعدك على اختيار نشاط عيد الحب الخاص بك.

1. عرّف الموافقة

لكل فكرة يقترحها شريكك، تردّ بأحد ثلاثة خيارات: نعم، أو لا، أو ربما.

عرّف النوع المخصص Approval لتمثيل هذه الخيارات بالحالات الثلاث التالية: Yes وNo وMaybe.

2. عرّف المطابخ

اختار شريكك مطعمين محتملين: أحدهما يقدّم المطبخ الكوري والآخر يقدّم المطبخ التركي.

عرّف النوع المخصص Cuisine لتمثيل هذين المطبخين بالحالتين التاليتين: Korean وTurkish.

3. عرّف أنواع الأفلام

هناك أفلام كثيرة جدًا للاختيار من بينها، لذا ولتضييق الخيارات، يذكر شريكك أيضًا نوع الفيلم.

عرّف النوع المخصص Genre لتمثيل الأنواع التالية كحالات: Crime وHorror وRomance وThriller.

4. عرّف النشاط

كما قلنا، اقترح شريكك خمسة أنشطة مختلفة: لعب لعبة لوحية، والاسترخاء، ومشاهدة فيلم، والذهاب إلى مطعم.

عرّف النوع المخصص Activity لتمثيل أنواع الأنشطة هذه:

• BoardGame: لا توجد بيانات مرتبطة.
• Chill: لا توجد بيانات مرتبطة.
• Movie: يحمل Genre الخاص به كبيانات مرتبطة.
• Restaurant: يحمل Cuisine الخاص به كبيانات مرتبطة.

5. قيّم النشاط

أخيرًا، أنت جاهز لتقييم أفكار شريكك. هذا ما تشعر به تجاه فكرة شريكك:

• لعب لعبة لوحية: لا.
• الاسترخاء: لا.
• مشاهدة فيلم: نعم إذا كان فيلمًا رومانسيًا؛ وإلا، فلا.
• الذهاب إلى مطعم: نعم إذا كان المطبخ كوريًا، وربما إذا كان تركيًا.

نفّذ دالة باسم rateActivity تأخذ قيمة Activity وتُرجع Approval بناءً على المشاعر المذكورة أعلاه:

rateActivity (Restaurant Turkish)
-- => Maybe