ðŸŽ‰ Exercism Research is now launched. Help Exercism, help science and have some fun at research.exercism.io ðŸŽ‰

eigenhombre's solution

to Two Fer in the Emacs Lisp Track

Published at Aug 06 2020 · 0 comments
Instructions
Test suite
Solution

`Two-fer` or `2-fer` is short for two for one. One for you and one for me.

``````"One for X, one for me."
``````

When X is a name or "you".

If the given name is "Alice", the result should be "One for Alice, one for me." If no name is given, the result should be "One for you, one for me."

Source

https://en.wikipedia.org/wiki/Two-fer

Submitting Incomplete Solutions

It's possible to submit an incomplete solution so you can see how others have completed the exercise.

two-fer-test.el

``````;;; two-fer-test.el --- Tests for Two-fer (exercism)

;;; Commentary:
;; Common test data version: 1.2.0 4fc1acb

;;; Code:

(ert-deftest no-name-given ()
(should (string= (two-fer) "One for you, one for me.")))

(ert-deftest a-name-given ()
(should (string= (two-fer "Alice") "One for Alice, one for me.")))

(ert-deftest another-name-given ()
(should (string= (two-fer "Bob") "One for Bob, one for me.")))

(provide 'two-fer-test)

;;; two-fer-test.el ends here``````
``````;;; two-fer.el --- Two-fer Exercise (exercism)

;;; Commentary:

;;; Code:

(defun two-fer (&optional arg)
(let ((who (or arg "you")))
(concat "One for " who ", one for me.")))
(provide 'two-fer)
;;; two-fer.el ends here``````