diff --git a/config.json b/config.json index 03d6b3a..f7217ae 100644 --- a/config.json +++ b/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", diff --git a/exercises/practice/line-up/.docs/instructions.md b/exercises/practice/line-up/.docs/instructions.md new file mode 100644 index 0000000..9e686ec --- /dev/null +++ b/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 diff --git a/exercises/practice/line-up/.docs/introduction.md b/exercises/practice/line-up/.docs/introduction.md new file mode 100644 index 0000000..ea07268 --- /dev/null +++ b/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. diff --git a/exercises/practice/line-up/.meta/config.json b/exercises/practice/line-up/.meta/config.json new file mode 100644 index 0000000..699f2b2 --- /dev/null +++ b/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" +} diff --git a/exercises/practice/line-up/.meta/example.rkt b/exercises/practice/line-up/.meta/example.rkt new file mode 100644 index 0000000..4b4c9e7 --- /dev/null +++ b/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"])) diff --git a/exercises/practice/line-up/.meta/tests.toml b/exercises/practice/line-up/.meta/tests.toml new file mode 100644 index 0000000..36fdf1d --- /dev/null +++ b/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" diff --git a/exercises/practice/line-up/line-up-test.rkt b/exercises/practice/line-up/line-up-test.rkt new file mode 100644 index 0000000..c7b29a4 --- /dev/null +++ b/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)) diff --git a/exercises/practice/line-up/line-up.rkt b/exercises/practice/line-up/line-up.rkt new file mode 100644 index 0000000..956e5a9 --- /dev/null +++ b/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'"))