aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2022-12-13 21:29:30 +0200
committerIgor Pashev <pashev.igor@gmail.com>2022-12-13 21:31:37 +0200
commit7031a9ea16438ec8546fc043999dfbc8410d0fee (patch)
treedcacd809130a4536da31ee582c71856824cacf40
parent1ac772400a6a3aea8d006ac46337440600017e4b (diff)
downloadmendeleev-7031a9ea16438ec8546fc043999dfbc8410d0fee.tar.gz
Rename divide to split
-rw-r--r--mendeleev.c4
-rw-r--r--mendeleev.hs8
-rw-r--r--mendeleev.lisp4
-rw-r--r--mendeleev.py4
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):