Add phone-number exercise

config.json

@@ -206,6 +206,14 @@
         "prerequisites": [],
         "difficulty": 3
       },
+      {
+        "slug": "phone-number",
+        "name": "Phone Number",
+        "uuid": "dd3ab667-8743-4761-af2d-781fc80959f9",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 3
+      },
       {
         "slug": "protein-translation",
         "name": "Protein Translation",

exercises/practice/phone-number/.docs/instructions.md

@@ -0,0 +1,32 @@
+# Instructions
+
+Clean up user-entered phone numbers so that they can be sent SMS messages.
+
+The **North American Numbering Plan (NANP)** is a telephone numbering system used by many countries in North America like the United States, Canada or Bermuda.
+All NANP-countries share the same international country code: `1`.
+
+NANP numbers are ten-digit numbers consisting of a three-digit Numbering Plan Area code, commonly known as *area code*, followed by a seven-digit local number.
+The first three digits of the local number represent the *exchange code*, followed by the unique four-digit number which is the *subscriber number*.
+
+The format is usually represented as
+
+```text
+(NXX)-NXX-XXXX
+```
+
+where `N` is any digit from 2 through 9 and `X` is any digit from 0 through 9.
+
+Your task is to clean up differently formatted telephone numbers by removing punctuation and the country code (1) if present.
+
+For example, the inputs
+
+- `+1 (613)-995-0253`
+- `613-995-0253`
+- `1 613 995 0253`
+- `613.995.0253`
+
+should all produce the output
+
+`6139950253`
+
+**Note:** As this exercise only deals with telephone numbers used in NANP-countries, only 1 is considered a valid country code.

exercises/practice/phone-number/.meta/config.json

@@ -0,0 +1,19 @@
+{
+  "authors": [
+    "BNAndras"
+  ],
+  "files": {
+    "solution": [
+      "phone-number.arr"
+    ],
+    "test": [
+      "phone-number-test.arr"
+    ],
+    "example": [
+      ".meta/example.arr"
+    ]
+  },
+  "blurb": "Clean up user-entered phone numbers so that they can be sent SMS messages.",
+  "source": "Exercise by the JumpstartLab team for students at The Turing School of Software and Design.",
+  "source_url": "https://turing.edu"
+}

exercises/practice/phone-number/.meta/example.arr

@@ -0,0 +1,62 @@
+provide: clean end
+
+is-alpha = lam(char :: String) -> Boolean:
+  cp = string-to-code-point(string-to-lower(char))
+  (cp >= 97) and (cp <= 122)
+end
+
+is-numeric = lam(char :: String) -> Boolean:
+  cp = string-to-code-point(string-to-lower(char))
+  (cp >= 48) and (cp <= 57)
+end
+
+WHITELIST = [list: " ", "+", "(", ")", ".", "-"]
+
+fun clean(phone-number):
+  digits = string-explode(phone-number).foldl(
+    lam(elt, acc):
+      ask:
+        | WHITELIST.member(elt) then:
+          acc
+        | is-alpha(elt) then:
+          raise("letters not permitted")
+        | not(is-numeric(elt)) then:
+          raise("punctuations not permitted")
+        | otherwise:
+          acc.push(elt)
+      end
+    end,
+    [list: ]
+  ).reverse()
+
+  ask:
+    | digits.length() < 10 then:
+      raise("must not be fewer than 10 digits")
+    | digits.length() > 11 then:
+      raise("must not be greater than 11 digits")
+    | (digits.length() == 11) and (digits.get(0) <> "1") then:
+      raise("11 digits must start with 1")
+    | otherwise:
+      truncated =
+        if digits.length() == 10: 
+          digits
+        else:
+          digits.drop(1)
+        end
+
+      area-code-start = truncated.get(0)
+      exchange-code-start = truncated.get(3)
+      ask:
+        | area-code-start == "0" then:
+          raise("area code cannot start with zero")
+        | area-code-start == "1" then:
+          raise("area code cannot start with one")
+        | exchange-code-start == "0" then:
+          raise("exchange code cannot start with zero")
+        | exchange-code-start == "1" then:
+          raise("exchange code cannot start with one")
+        | otherwise:
+          truncated.join-str("")
+      end
+  end
+end

exercises/practice/phone-number/.meta/tests.toml

@@ -0,0 +1,84 @@
+# 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.
+
+[79666dce-e0f1-46de-95a1-563802913c35]
+description = "cleans the number"
+
+[c360451f-549f-43e4-8aba-fdf6cb0bf83f]
+description = "cleans numbers with dots"
+
+[08f94c34-9a37-46a2-a123-2a8e9727395d]
+description = "cleans numbers with multiple spaces"
+
+[598d8432-0659-4019-a78b-1c6a73691d21]
+description = "invalid when 9 digits"
+include = false
+
+[2de74156-f646-42b5-8638-0ef1d8b58bc2]
+description = "invalid when 9 digits"
+reimplements = "598d8432-0659-4019-a78b-1c6a73691d21"
+
+[57061c72-07b5-431f-9766-d97da7c4399d]
+description = "invalid when 11 digits does not start with a 1"
+
+[9962cbf3-97bb-4118-ba9b-38ff49c64430]
+description = "valid when 11 digits and starting with 1"
+
+[fa724fbf-054c-4d91-95da-f65ab5b6dbca]
+description = "valid when 11 digits and starting with 1 even with punctuation"
+
+[c6a5f007-895a-4fc5-90bc-a7e70f9b5cad]
+description = "invalid when more than 11 digits"
+include = false
+
+[4a1509b7-8953-4eec-981b-c483358ff531]
+description = "invalid when more than 11 digits"
+reimplements = "c6a5f007-895a-4fc5-90bc-a7e70f9b5cad"
+
+[63f38f37-53f6-4a5f-bd86-e9b404f10a60]
+description = "invalid with letters"
+include = false
+
+[eb8a1fc0-64e5-46d3-b0c6-33184208e28a]
+description = "invalid with letters"
+reimplements = "63f38f37-53f6-4a5f-bd86-e9b404f10a60"
+
+[4bd97d90-52fd-45d3-b0db-06ab95b1244e]
+description = "invalid with punctuations"
+include = false
+
+[065f6363-8394-4759-b080-e6c8c351dd1f]
+description = "invalid with punctuations"
+reimplements = "4bd97d90-52fd-45d3-b0db-06ab95b1244e"
+
+[d77d07f8-873c-4b17-8978-5f66139bf7d7]
+description = "invalid if area code starts with 0"
+
+[c7485cfb-1e7b-4081-8e96-8cdb3b77f15e]
+description = "invalid if area code starts with 1"
+
+[4d622293-6976-413d-b8bf-dd8a94d4e2ac]
+description = "invalid if exchange code starts with 0"
+
+[4cef57b4-7d8e-43aa-8328-1e1b89001262]
+description = "invalid if exchange code starts with 1"
+
+[9925b09c-1a0d-4960-a197-5d163cbe308c]
+description = "invalid if area code starts with 0 on valid 11-digit number"
+
+[3f809d37-40f3-44b5-ad90-535838b1a816]
+description = "invalid if area code starts with 1 on valid 11-digit number"
+
+[e08e5532-d621-40d4-b0cc-96c159276b65]
+description = "invalid if exchange code starts with 0 on valid 11-digit number"
+
+[57b32f3d-696a-455c-8bf1-137b6d171cdf]
+description = "invalid if exchange code starts with 1 on valid 11-digit number"

exercises/practice/phone-number/phone-number-test.arr

@@ -0,0 +1,73 @@
+include file("phone-number.arr")
+
+check "cleans the number":
+  clean("(223) 456-7890") is "2234567890"
+end
+
+check "cleans numbers with dots":
+  clean("223.456.7890") is "2234567890"
+end
+
+check "cleans numbers with multiple spaces":
+  clean("223 456   7890   ") is "2234567890"
+end
+
+check "invalid when 9 digits":
+  clean("123456789") raises "must not be fewer than 10 digits"
+end
+
+check "invalid when 11 digits does not start with a 1":
+  clean("22234567890") raises "11 digits must start with 1"
+end
+
+check "valid when 11 digits and starting with 1":
+  clean("12234567890") is "2234567890"
+end
+
+check "valid when 11 digits and starting with 1 even with punctuation":
+  clean("+1 (223) 456-7890") is "2234567890"
+end
+
+check "invalid when more than 11 digits":
+  clean("321234567890") raises "must not be greater than 11 digits"
+end
+
+check "invalid with letters":
+  clean("523-abc-7890") raises "letters not permitted"
+end
+
+check "invalid with punctuations":
+  clean("523-@:!-7890") raises "punctuations not permitted"
+end
+
+check "invalid if area code starts with 0":
+  clean("(023) 456-7890") raises "area code cannot start with zero"
+end
+
+check "invalid if area code starts with 1":
+  clean("(123) 456-7890") raises "area code cannot start with one"
+end
+
+check "invalid if exchange code starts with 0":
+  clean("(223) 056-7890") raises "exchange code cannot start with zero"
+end
+
+check "invalid if exchange code starts with 1":
+  clean("(223) 156-7890") raises "exchange code cannot start with one"
+end
+
+check "invalid if area code starts with 0 on valid 11-digit number":
+  clean("1 (023) 456-7890") raises "area code cannot start with zero"
+end
+
+check "invalid if area code starts with 1 on valid 11-digit number":
+  clean("1 (123) 456-7890") raises  "area code cannot start with one"
+end
+
+check "invalid if exchange code starts with 0 on valid 11-digit number":
+  clean("1 (223) 056-7890") raises "exchange code cannot start with zero"
+end
+
+check "invalid if exchange code starts with 1 on valid 11-digit number":
+  clean("1 (223) 156-7890") raises "exchange code cannot start with one"
+end

exercises/practice/phone-number/phone-number.arr

@@ -0,0 +1,5 @@
+provide: clean end
+
+fun clean(phone-number):
+  raise("please implement the clean function")
+end