Re: Simple math/programming challenge for the "REAL programmer" Feeb

Does emacs lisp count?
;; ------------------
(defun kaprekarp (n)
  (let* ((num (* n n))
         (snum (number-to-string num))
         (num-digits (length (number-to-string n)))
         (num-list (string-split snum "" t))
         (right-side (reverse (take num-digits (reverse num-list))))
         (left-side (reverse (nthcdr num-digits (reverse num-list))))
         (left-side-num (string-to-number (mapconcat 'identity left-side)))
         (right-side-num (string-to-number (mapconcat 'identity right-side))))
    (= n (+ right-side-num left-side-num))))
(defun solve-problem (low high)
  (seq-keep (lambda (x)
              (and (kaprekarp x) x))
            (number-sequence low high)))
(solve-problem 1 100000000)
;; ------------------
A very naive solution, but I am sorry, I am very drunk right now lol
--
(yaxp me) => t