Merge branch 'exercism:main' into phone-number-install-packages-el-fix

Author: borderite

exercises/practice/list-ops/.docs/instructions.append.md

@@ -1,4 +1,4 @@
-# Emacs Lisp Track specific functions
+## Emacs Lisp track specific functions
 
 * `list-empty-p` (*given a list, return if the list is empty*)
 * `list-sum` (*given a list of numbers, return the sum of all elements*)

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

@@ -0,0 +1,11 @@
+# Instructions Append
+
+In addition to the function, _numbers_, that cleans up phone numbers, you need to write two more functions, _area-code_ and _pprint_ in the Emacs Lisp track. 
+
+Each of the extra functions takes the phone number as its only parameter.
+
+The first function _area-code_ extracts the area code from the input, while the second function _pprint_ transforms the input to a string in the format of 
+```
+(NXX) NXX-XXXX
+```
+where `N` and `X` are as described above.

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

@@ -1,6 +1,6 @@
 # Instructions
 
-Clean up user-entered phone numbers so that they can be sent SMS messages.
+Clean up 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`.

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

@@ -10,15 +10,15 @@
 (declare-function pprint "phone-number.el" (num))
 
 (ert-deftest cleans-number-test ()
-  (should (equal (numbers "(123) 456-7890") "1234567890")))
+  (should (equal (numbers "(223) 456-7890") "2234567890")))
 
 
 (ert-deftest cleans-numbers-with-dots-test ()
-  (should (equal (numbers "123.456.7890") "1234567890")))
+  (should (equal (numbers "223.456.7890") "2234567890")))
 
 
 (ert-deftest valid-when-11-digits-and-first-is-1-test ()
-  (should (equal (numbers "11234567890") "1234567890")))
+  (should (equal (numbers "12234567890") "2234567890")))
 
 
 (ert-deftest invalid-when-11-digits-test ()
@@ -40,15 +40,15 @@
 
 
 (ert-deftest area-code-test ()
-  (should (equal (area-code "1234567890") "123")))
+  (should (equal (area-code "2234567890") "223")))
 
 
 (ert-deftest pprint-test ()
-  (should (equal (pprint "1234567890") "(123) 456-7890")))
+  (should (equal (pprint "2234567890") "(223) 456-7890")))
 
 
 (ert-deftest pprint-full-us-phone-number-test ()
-  (should (equal (pprint "11234567890") "(123) 456-7890")))
+  (should (equal (pprint "12234567890") "(223) 456-7890")))
 
 
 (provide 'phone-number)