Provide Function Name in Code File

exercises/practice/acronym/acronym-test.el

@@ -4,7 +4,7 @@
 
 ;;; Code
 
-(load-file "acronym.el")
+(declare-function acronym "acronym.el" (phrase))
 
 (ert-deftest basic ()
   (should (equal "PNG" (acronym "Portable Network Graphics"))))

exercises/practice/acronym/acronym.el

@@ -2,10 +2,9 @@
 
 ;;; Commentary:
 
+(defun acronym (phrase)
 ;;; Code:
-
-(require 'cl-lib)
-
+)
 
 (provide 'acronym)
 ;;; acronym.el ends here

exercises/practice/allergies/.meta/example.el

@@ -40,7 +40,7 @@
            *allergens-scores*)))
 
 (defun allergic-to-p (score allergen)
-  "Allergic-to predicate based on SCORE and ALLERGEN."
+  "Check if Allergic to allergen based on SCORE and ALLERGEN."
   (score-matches (cl-assoc allergen *allergens-scores* :test #'string=)
                  score))
 

exercises/practice/allergies/allergies-test.el

@@ -4,7 +4,8 @@
 
 ;;; Code:
 
-(load-file "allergies.el")
+(declare-function allergen-list "allergies.el" (score))
+(declare-function allergic-to-p "allergies.el" (score allergen))
 
 (ert-deftest no-allergies-at-all ()
   (should (equal '() (allergen-list 0))))

exercises/practice/allergies/allergies.el

@@ -2,9 +2,15 @@
 
 ;;; Commentary:
 
+(defun allergen-list (score)
+"List all allergens with a given SCORE."
 ;;; Code:
+)
 
-
+(defun allergic-to-p (score allergen)
+"Check if Allergic to allergen based on SCORE and ALLERGEN."
+;;; Code:
+)
 
 (provide 'allergies)
 ;;; allergies.el ends here

exercises/practice/anagram/anagram-test.el

@@ -4,7 +4,7 @@
 
 ;;; Code:
 
-(load-file "anagram.el")
+(declare-function anagrams-for "anagram.el" (subject candidates))
 
 (ert-deftest no-matches ()
   (should (equal '() (anagrams-for

exercises/practice/anagram/anagram.el

@@ -2,10 +2,9 @@
 
 ;;; Commentary:
 
+(defun anagrams-for (subject candidates)
 ;;; Code:
-
-(require 'cl-lib)
-
+)
 
 (provide 'anagram)
 ;;; anagram.el ends here

exercises/practice/armstrong-numbers/armstrong-numbers-test.el

@@ -4,7 +4,7 @@
 
 ;;; Code:
 
-(load-file "armstrong-numbers.el")
+(declare-function armstrong-p "armstrong-numbers.el" (n))
 
 (ert-deftest armstrong-number-5 ()
   "Single digit numbers are Armstrong numbers"

exercises/practice/armstrong-numbers/armstrong-numbers.el

@@ -2,7 +2,9 @@
 
 ;;; Commentary:
 
+(defun armstrong-p (n)
 ;;; Code:
+)
 
 (provide 'armstrong-numbers)
 ;;; armstrong-numbers.el ends here

exercises/practice/atbash-cipher/atbash-cipher-test.el

@@ -6,7 +6,7 @@
 
 (require 'cl-lib)
 
-(load-file "atbash-cipher.el")
+(declare-function encode "atbash-cipher.el" (plaintext))
 
 (ert-deftest encode-no ()
   (should (equal "ml" (encode "no"))))

exercises/practice/atbash-cipher/atbash-cipher.el

@@ -2,16 +2,10 @@
 
 ;;; Commentary:
 
-
-
-
-;;; Code:
-
 (defun encode (plaintext)
   "Encode PLAINTEXT to atbash-cipher encoding."
-
-  )
-
+  ;;; Code:
+)
 
 (provide 'atbash-cipher)
 ;;; atbash-cipher.el ends here

exercises/practice/binary/binary-test.el

@@ -4,7 +4,7 @@
 
 ;;; Code:
 
-(load-file "binary.el")
+(declare-function to-decimal "binary.el" (binary-string))
 
 (ert-deftest binary-1-is-decimal-1 ()
   (should (= 1 (to-decimal "1"))))

exercises/practice/binary/binary.el

@@ -2,10 +2,9 @@
 
 ;;; Commentary:
 
+(defun to-decimal (binary-string)
 ;;; Code:
-
-
-
+)
 
 (provide 'binary)
 ;;; binary.el ends here

exercises/practice/bob/bob-test.el

@@ -5,8 +5,7 @@
 
 ;;; Code:
 
-(load-file "bob.el")
-
+(declare-function response-for "bob.el" (phrase))
 
 (ert-deftest responds-to-stating-something ()
   (should (string= "Whatever." (response-for "Tom-ay-to, tom-aaaah-to."))))

exercises/practice/bob/bob.el

@@ -2,8 +2,9 @@
 
 ;;; Commentary:
 
+(defun response-for (phrase)
 ;;; Code:
-
+)  
 
 (provide 'bob)
 ;;; bob.el ends here

exercises/practice/crypto-square/crypto-square-test.el

@@ -4,7 +4,7 @@
 
 ;;; Code:
 
-(load-file "crypto-square.el")
+(declare-function encipher "crypto-square.el" (plaintext))
 
 (ert-deftest empty-plaintext-results-in-an-empty-ciphertext ()
   (should (equal "" (encipher ""))))

exercises/practice/crypto-square/crypto-square.el

@@ -2,8 +2,9 @@
 
 ;;; Commentary:
 
+(defun encipher (plaintext)
 ;;; Code:
-
+)
 
 (provide 'crypto-square)
 ;;; crypto-square.el ends here

exercises/practice/difference-of-squares/difference-of-squares-test.el

@@ -4,7 +4,9 @@
 
 ;;; Code:
 
-(load-file "difference-of-squares.el")
+(declare-function sum-of-squares "difference-of-squares.el" (n))
+(declare-function square-of-sum "difference-of-squares.el" (n))
+(declare-function difference "difference-of-squares.el" (n))
 
 (ert-deftest square-of-sum-to-5 ()
   (should (= 225 (square-of-sum 5))))

exercises/practice/difference-of-squares/difference-of-squares.el

@@ -2,8 +2,17 @@
 
 ;;; Commentary:
 
+(defun sum-of-squares (n)
 ;;; Code:
+)
 
+(defun square-of-sum (n)
+;;; Code:
+)
+
+(defun difference (n)
+;;; Code:
+)
 
 (provide 'difference-of-squares)
 ;;; difference-of-squares.el ends here

exercises/practice/etl/etl-test.el

@@ -4,7 +4,7 @@
 
 ;;; Code:
 
-(load-file "etl.el")
+(declare-function etl "etl.el" (data))
 
 
 (defconst mixed-case-input #s(hash-table

exercises/practice/etl/etl.el

@@ -2,8 +2,9 @@
 
 ;;; Commentary:
 
+(defun etl (data)
 ;;; Code:
-
+)
 
 (provide 'etl)
 ;;; etl.el ends here

exercises/practice/gigasecond/gigasecond-test.el

@@ -13,7 +13,7 @@
 
 ;;; Code:
 
-(load-file "gigasecond.el")
+(declare-function from "gigasecond.el" (second minute hour day month year))
 
 (ert-deftest from-lisp-epoch ()
   (should

exercises/practice/gigasecond/gigasecond.el

@@ -7,13 +7,9 @@
 ;; NB: Pay attention to  Emacs' handling of time zones and dst
 ;; in the encode-time and decode-time functions.
 
+(defun from (second minute hour day month year)
 ;;; Code:
-
-
-
-
-
-
+)
 
 (provide 'gigasecond)
 ;;; gigasecond.el ends here

exercises/practice/grains/grains-test.el

@@ -4,7 +4,8 @@
 
 ;;; Code:
 
-(load-file "grains.el")
+(declare-function square "grains.el" (n))
+(declare-function total "grains.el")
 
 (ert-deftest square-1 ()
   (should (= 1 (square 1))))

exercises/practice/grains/grains.el

@@ -2,9 +2,13 @@
 
 ;;; Commentary:
 
+(defun square (n)
 ;;; Code:
+)
 
-
+(defun total ()
+;;; Code:
+)
 
 (provide 'grains)
 ;;; grains.el ends here

exercises/practice/hamming/hamming-test.el

@@ -5,9 +5,7 @@
 
 ;;; Code:
 
-(load-file "hamming.el")
-
-(declare-function hamming-distance "hamming.el")
+(declare-function hamming-distance "hamming.el" (dna1 dna2))
 
 (ert-deftest empty-strands ()
   (should (= 0 (hamming-distance "" ""))))

exercises/practice/hamming/hamming.el

@@ -2,8 +2,9 @@
 
 ;;; Commentary:
 
-;;; Code:
-
+(defun hamming-distance (dna1 dna2)
+;;; Code:  
+)
 
 (provide 'hamming)
 ;;; hamming.el ends here

exercises/practice/hello-world/hello-world-test.el

@@ -5,7 +5,7 @@
 
 ;;; Code:
 
-(load-file "hello-world.el")
+(declare-function hello "hello-world.el")
 
 (ert-deftest hello-world-test ()
   (should (string= (hello) "Hello, World!")))

exercises/practice/leap/leap-test.el

@@ -3,7 +3,7 @@
 ;;; Commentary:
 
 ;;; Code:
-(load-file "leap.el")
+(declare-function leap-year-p "leap.el" (year))
 
 (ert-deftest vanilla-leap-year ()
   (should (leap-year-p 1996)))

exercises/practice/leap/leap.el

@@ -2,8 +2,9 @@
 
 ;;; Commentary:
 
+(defun leap-year-p (year)
 ;;; Code:
-
+)
 
 (provide 'leap-year-p)
 ;;; leap.el ends here

exercises/practice/luhn/luhn-test.el

@@ -5,7 +5,8 @@
 ;;; Code:
 
 (require 'cl-lib)
-(load-file "luhn.el")
+
+(declare-function luhn-p "luhn.el" (str))
 
 (ert-deftest an-empty-string ()
   (should-not (luhn-p "")))

exercises/practice/luhn/luhn.el

@@ -2,10 +2,9 @@
 
 ;;; Commentary:
 
+(defun luhn-p (str)
 ;;; Code:
-
-
-
+)
 
 (provide 'luhn)
 ;;; luhn.el ends here

exercises/practice/nucleotide-count/nucleotide-count-test.el

@@ -4,7 +4,7 @@
 
 ;;; Code:
 
-(load-file "nucleotide-count.el")
+(declare-function nucleotide-count "nucleotide-count.el" (sequence))
 
 
 (defun sort-pairs (lst fn)

exercises/practice/nucleotide-count/nucleotide-count.el

@@ -2,8 +2,9 @@
 
 ;;; Commentary:
 
+(defun nucleotide-count (sequence)
 ;;; Code:
-
+)
 
 (provide 'nucleotide-count)
 ;;; nucleotide-count.el ends here

exercises/practice/pangram/pangram-test.el

@@ -5,7 +5,7 @@
 
 ;;; Code:
 
-(load-file "pangram.el")
+(declare-function is-pangram "pangram.el" (phrase))
 
 (ert-deftest sentence-empty ()
   (should (equal nil (is-pangram ""))))