From 7031a9ea16438ec8546fc043999dfbc8410d0fee Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Tue, 13 Dec 2022 21:29:30 +0200
Subject: Rename divide to split

---
 mendeleev.c    | 4 ++--
 mendeleev.hs   | 8 ++++----
 mendeleev.lisp | 4 ++--
 mendeleev.py   | 4 ++--
 4 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/mendeleev.c b/mendeleev.c
index 2ab20e1..770d37b 100644
--- a/mendeleev.c
+++ b/mendeleev.c
@@ -63,7 +63,7 @@ search (size_t *start, size_t *len, size_t shift, char c)
 }
 
 static element_t *
-divide (const char *tail)
+split (const char *tail)
 {
   element_t *head = NULL;
   element_t *last = NULL;
@@ -117,7 +117,7 @@ divide (const char *tail)
 static element_t *
 explode (const char *word)
 {
-  element_t *root = divide (word);
+  element_t *root = split (word);
   for (element_t * el = root; el; el = el->sibs)
     el->next = *el->tail ? explode (el->tail) : NULL;
   return root;
diff --git a/mendeleev.hs b/mendeleev.hs
index cfd6ac5..351003c 100644
--- a/mendeleev.hs
+++ b/mendeleev.hs
@@ -26,9 +26,9 @@ search c = takeWhile start . dropWhile (not . start)
     start (x:_) = toLower x == c'
     c' = toLower c
 
-divide :: String -> [(String, String)]
-divide [] = []
-divide (x:xs) =
+split :: String -> [(String, String)]
+split [] = []
+split (x:xs) =
   if null res
     then [("?", xs)]
     else res
@@ -47,7 +47,7 @@ divide (x:xs) =
             _ -> r'
 
 advance :: ([String], String) -> [([String], String)]
-advance (els, rest) = map collect $ divide rest
+advance (els, rest) = map collect $ split rest
   where
     collect (el, rest') = (el : els, rest')
 
diff --git a/mendeleev.lisp b/mendeleev.lisp
index bdb35ab..a7e7945 100644
--- a/mendeleev.lisp
+++ b/mendeleev.lisp
@@ -41,7 +41,7 @@
                 (setf l (1+ m))))
         (setf (cdr range) (- u (car range))) (return)))
 
-(defun divide (tail)
+(defun split (tail)
   (prog ((range (cons 1 +nelems+))
          (sh 0)
          (r ()))
@@ -57,7 +57,7 @@
         (return (reverse r))))
 
 (defun explode (tail)
-  (let ((sibs (divide tail))
+  (let ((sibs (split tail))
         (next (lambda (x)
                 (cons (car x)
                       (when (string/= "" (cdr x))
diff --git a/mendeleev.py b/mendeleev.py
index 21bc600..11776f6 100644
--- a/mendeleev.py
+++ b/mendeleev.py
@@ -49,7 +49,7 @@ def search(start, length, shift, char):
     return (start, length)
 
 
-def divide(tail):
+def split(tail):
     result = []
 
     start = 0
@@ -71,7 +71,7 @@ def divide(tail):
 
 
 def advance(els, tail):
-    return [(els + [e], t) for (e, t) in divide(tail)]
+    return [(els + [e], t) for (e, t) in split(tail)]
 
 
 def explode(word):
-- 
cgit v1.2.3