From efb4865c81bfef747428303d5388fb1889db5769 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sun, 9 Jun 2024 23:20:44 -0600
Subject: Cleanup repository

---
 spellcheck/dictionary.scm | 37 +------------------------------------
 1 file changed, 1 insertion(+), 36 deletions(-)
 mode change 100644 => 120000 spellcheck/dictionary.scm

(limited to 'spellcheck/dictionary.scm')

diff --git a/spellcheck/dictionary.scm b/spellcheck/dictionary.scm
deleted file mode 100644
index 856fec5..0000000
--- a/spellcheck/dictionary.scm
+++ /dev/null
@@ -1,36 +0,0 @@
-(define-module (dictionary)
-  #:export (create-dictionary
-            dict-occur-ref
-            dict-keys-ref
-            dict-values-ref))
-
-(define (create-dictionary lst)
-  (dictionary-helper (make-hash-table) lst))
-
-(define (dictionary-helper dict rest)
-  "Recursively adds words to DICT."
-  (if (null? rest)
-      dict
-      (begin
-        (dict-inc-word dict (car rest))
-        (dictionary-helper dict (cdr rest)))))
-
-(define (dict-inc-word dict e)
-  "Inserts word E into the DICT, using E
-as a key and the running total of occurances
-as the value."
-  (hashq-set!
-   dict e (1+ (dict-occur-ref dict e))))
-
-(define (dict-occur-ref dict e)
-  "A wrapper for hashq-ref. Returns '0' if an element
-is not present, rather than '#f'."
-  (or (hashq-ref dict e) 0))
-
-(define (dict-keys-ref dict)
-  "Returns a list of all words in the dictionary."
-  (map car (hash-map->list cons dict)))
-
-(define (dict-values-ref dict)
-  "Sums up the total number of occurances for all words."
-  (apply + (map cdr (hash-map->list cons dict))))
diff --git a/spellcheck/dictionary.scm b/spellcheck/dictionary.scm
new file mode 120000
index 0000000..237a3c6
--- /dev/null
+++ b/spellcheck/dictionary.scm
@@ -0,0 +1 @@
+../dictionary/dictionary.scm
\ No newline at end of file
-- 
cgit v1.2.3