Add line-up

config.json

@@ -222,6 +222,14 @@
         "prerequisites": [],
         "difficulty": 2
       },
+      {
+        "slug": "line-up",
+        "name": "Line Up",
+        "uuid": "dc8e1fd9-8d1a-4d61-b686-971e959edd38",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 2
+      },
       {
         "slug": "list-ops",
         "name": "List Ops",

exercises/practice/line-up/.docs/instructions.md

@@ -0,0 +1,19 @@
+# Instructions
+
+Given a name and a number, your task is to produce a sentence using that name and that number as an [ordinal numeral][ordinal-numeral].
+Yaʻqūb expects to use numbers from 1 up to 999.
+
+Rules:
+
+- Numbers ending in 1 (unless ending in 11) → `"st"`
+- Numbers ending in 2 (unless ending in 12) → `"nd"`
+- Numbers ending in 3 (unless ending in 13) → `"rd"`
+- All other numbers → `"th"`
+
+Examples:
+
+- `"Mary", 1` → `"Mary, you are the 1st customer we serve today. Thank you!"`
+- `"John", 12` → `"John, you are the 12th customer we serve today. Thank you!"`
+- `"Dahir", 162` → `"Dahir, you are the 162nd customer we serve today. Thank you!"`
+
+[ordinal-numeral]: https://en.wikipedia.org/wiki/Ordinal_numeral

exercises/practice/line-up/.docs/introduction.md

@@ -0,0 +1,7 @@
+# Introduction
+
+Your friend Yaʻqūb works the counter at a deli in town, slicing, weighing, and wrapping orders for a line of hungry customers that gets longer every day.
+Waiting customers are starting to lose track of who is next, so he wants numbered tickets they can use to track the order in which they arrive.
+
+To make the customers feel special, he does not want the ticket to have only a number on it.
+They shall get a proper English sentence with their name and number on it.

exercises/practice/line-up/.meta/config.json

@@ -0,0 +1,19 @@
+{
+  "authors": [
+    "BNAndras"
+  ],
+  "files": {
+    "solution": [
+      "line-up.rkt"
+    ],
+    "test": [
+      "line-up-test.rkt"
+    ],
+    "example": [
+      ".meta/example.rkt"
+    ]
+  },
+  "blurb": "Help lining up customers at Yaʻqūb's Deli.",
+  "source": "mk-mxp, based on previous work from Exercism contributors codedge and neenjaw",
+  "source_url": "https://forum.exercism.org/t/new-exercise-ordinal-numbers/19147"
+}

exercises/practice/line-up/.meta/example.rkt

@@ -0,0 +1,20 @@
+#lang racket
+
+(provide format-message)
+
+(define (format-message name number)
+  (string-append name
+                 ", you are the "
+                 (number->string number)
+                 (suffix number)
+                 " customer we serve today. Thank you!"))
+
+(define (suffix n)
+  (match (list (modulo n 10) (modulo n 100))
+    [(list 1 11) "th"]
+    [(list 2 12) "th"]
+    [(list 3 13) "th"]
+    [(list 1 _) "st"]
+    [(list 2 _) "nd"]
+    [(list 3 _) "rd"]
+    [else "th"]))

exercises/practice/line-up/.meta/tests.toml

@@ -0,0 +1,67 @@
+# This is an auto-generated file.
+#
+# Regenerating this file via `configlet sync` will:
+# - Recreate every `description` key/value pair
+# - Recreate every `reimplements` key/value pair, where they exist in problem-specifications
+# - Remove any `include = true` key/value pair (an omitted `include` key implies inclusion)
+# - Preserve any other key/value pair
+#
+# As user-added comments (using the # character) will be removed when this file
+# is regenerated, comments can be added via a `comment` key.
+
+[7760d1b8-4864-4db4-953b-0fa7c047dbc0]
+description = "format smallest non-exceptional ordinal numeral 4"
+
+[e8b7c715-6baa-4f7b-8fb3-2fa48044ab7a]
+description = "format greatest single digit non-exceptional ordinal numeral 9"
+
+[f370aae9-7ae7-4247-90ce-e8ff8c6934df]
+description = "format non-exceptional ordinal numeral 5"
+
+[37f10dea-42a2-49de-bb92-0b690b677908]
+description = "format non-exceptional ordinal numeral 6"
+
+[d8dfb9a2-3a1f-4fee-9dae-01af3600054e]
+description = "format non-exceptional ordinal numeral 7"
+
+[505ec372-1803-42b1-9377-6934890fd055]
+description = "format non-exceptional ordinal numeral 8"
+
+[8267072d-be1f-4f70-b34a-76b7557a47b9]
+description = "format exceptional ordinal numeral 1"
+
+[4d8753cb-0364-4b29-84b8-4374a4fa2e3f]
+description = "format exceptional ordinal numeral 2"
+
+[8d44c223-3a7e-4f48-a0ca-78e67bf98aa7]
+description = "format exceptional ordinal numeral 3"
+
+[6c4f6c88-b306-4f40-bc78-97cdd583c21a]
+description = "format smallest two digit non-exceptional ordinal numeral 10"
+
+[e257a43f-d2b1-457a-97df-25f0923fc62a]
+description = "format non-exceptional ordinal numeral 11"
+
+[bb1db695-4d64-457f-81b8-4f5a2107e3f4]
+description = "format non-exceptional ordinal numeral 12"
+
+[60a3187c-9403-4835-97de-4f10ebfd63e2]
+description = "format non-exceptional ordinal numeral 13"
+
+[2bdcebc5-c029-4874-b6cc-e9bec80d603a]
+description = "format exceptional ordinal numeral 21"
+
+[74ee2317-0295-49d2-baf0-d56bcefa14e3]
+description = "format exceptional ordinal numeral 62"
+
+[b37c332d-7f68-40e3-8503-e43cbd67a0c4]
+description = "format exceptional ordinal numeral 100"
+
+[0375f250-ce92-4195-9555-00e28ccc4d99]
+description = "format exceptional ordinal numeral 101"
+
+[0d8a4974-9a8a-45a4-aca7-a9fb473c9836]
+description = "format non-exceptional ordinal numeral 112"
+
+[06b62efe-199e-4ce7-970d-4bf73945713f]
+description = "format exceptional ordinal numeral 123"

exercises/practice/line-up/line-up-test.rkt

@@ -0,0 +1,89 @@
+#lang racket/base
+
+(require "line-up.rkt")
+
+(module+ test
+  (require rackunit rackunit/text-ui))
+
+(module+ test
+  (define suite
+    (test-suite
+     "line-up tests"
+
+     (test-equal? "format smallest non-exceptional ordinal numeral 4"
+                  (format-message "Gianna" 4)
+                  "Gianna, you are the 4th customer we serve today. Thank you!")
+
+     (test-equal? "format greatest single digit non-exceptional ordinal numeral 9"
+                  (format-message "Maarten" 9)
+                  "Maarten, you are the 9th customer we serve today. Thank you!")
+
+     (test-equal? "format non-exceptional ordinal numeral 5"
+                  (format-message "Petronila" 5)
+                  "Petronila, you are the 5th customer we serve today. Thank you!")
+
+     (test-equal? "format non-exceptional ordinal numeral 6"
+                  (format-message "Attakullakulla" 6)
+                  "Attakullakulla, you are the 6th customer we serve today. Thank you!") 
+
+     (test-equal? "format non-exceptional ordinal numeral 7"
+                  (format-message "Kate" 7)
+                  "Kate, you are the 7th customer we serve today. Thank you!")
+
+     (test-equal? "format non-exceptional ordinal numeral 8"
+                  (format-message "Maximiliano" 8)
+                  "Maximiliano, you are the 8th customer we serve today. Thank you!")
+
+     (test-equal? "format exceptional ordinal numeral 1"
+                  (format-message "Mary" 1)
+                  "Mary, you are the 1st customer we serve today. Thank you!")
+
+     (test-equal? "format exceptional ordinal numeral 2"
+                  (format-message "Haruto" 2)
+                  "Haruto, you are the 2nd customer we serve today. Thank you!")
+
+     (test-equal? "format exceptional ordinal numeral 3"
+                  (format-message "Henriette" 3)
+                  "Henriette, you are the 3rd customer we serve today. Thank you!")
+
+     (test-equal? "format smallest two digit non-exceptional ordinal numeral 10"
+                  (format-message "Alvarez" 10)
+                  "Alvarez, you are the 10th customer we serve today. Thank you!")
+
+     (test-equal? "format non-exceptional ordinal numeral 11"
+                  (format-message "Jacqueline" 11)
+                  "Jacqueline, you are the 11th customer we serve today. Thank you!")
+
+     (test-equal? "format non-exceptional ordinal numeral 12"
+                  (format-message "Juan" 12)
+                  "Juan, you are the 12th customer we serve today. Thank you!")
+
+     (test-equal? "format non-exceptional ordinal numeral 13"
+                  (format-message "Patricia" 13)
+                  "Patricia, you are the 13th customer we serve today. Thank you!")
+
+     (test-equal? "format exceptional ordinal numeral 21"
+                  (format-message "Washi" 21)
+                  "Washi, you are the 21st customer we serve today. Thank you!")
+
+     (test-equal? "format exceptional ordinal numeral 62"
+                  (format-message "Nayra" 62)
+                  "Nayra, you are the 62nd customer we serve today. Thank you!")
+
+     (test-equal? "format exceptional ordinal numeral 100"
+                  (format-message "John" 100)
+                  "John, you are the 100th customer we serve today. Thank you!")
+
+     (test-equal? "format exceptional ordinal numeral 101"
+                  (format-message "Zeinab" 101)
+                  "Zeinab, you are the 101st customer we serve today. Thank you!")
+
+     (test-equal? "format non-exceptional ordinal numeral 112"
+                  (format-message "Knud" 112)
+                  "Knud, you are the 112th customer we serve today. Thank you!")
+
+     (test-equal? "format exceptional ordinal numeral 123"
+                  (format-message "Yma" 123)
+                  "Yma, you are the 123rd customer we serve today. Thank you!")))
+
+  (run-tests suite))

exercises/practice/line-up/line-up.rkt

@@ -0,0 +1,6 @@
+#lang racket
+
+(provide format-message)
+
+(define (format-message name number)
+  (error "Please implement 'format-message'"))