From e8e47e4c5ed36111ed62fa487551648a019dd8d2 Mon Sep 17 00:00:00 2001
From: "Bradley M. Small" <bradley_small@hotmail.com>
Date: Thu, 5 Mar 2020 11:32:15 -0500
Subject: [PATCH] Changing to more common paradigm
---
common-lisp/word-count/word-count.lisp | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/common-lisp/word-count/word-count.lisp b/common-lisp/word-count/word-count.lisp
index 5200c8b..f3260ac 100644
--- a/common-lisp/word-count/word-count.lisp
+++ b/common-lisp/word-count/word-count.lisp
@@ -5,12 +5,12 @@
(in-package #:word-count)
(defun split-string (string &optional (delims '(#\space)))
- (labels ((split-string-r (string delims list)
- (let ((pos-delim (position-if (lambda (char) (position char delims)) string)))
+ (labels ((recurse (string list)
+ (let ((pos-delim (position-if (lambda (char) (member char delims)) string)))
(if pos-delim
- (split-string-r (subseq string (+ 1 pos-delim)) delims (push (subseq string 0 pos-delim) list))
+ (recurse (subseq string (1+ pos-delim)) (push (subseq string 0 pos-delim) list))
(push string list)))))
- (split-string-r string delims '())))
+ (recurse string '())))
(defun count-words (sentence)
(loop
--
GitLab