From beaceae39b4e8f3f852af20815c161eea3119734 Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Wed, 6 Mar 2024 15:11:29 +0100 Subject: [PATCH] Get rid of `anagram-p' toy --- README.org | 25 ------------------------- 1 file changed, 25 deletions(-) diff --git a/README.org b/README.org index c177a77..229a418 100644 --- a/README.org +++ b/README.org @@ -4301,31 +4301,6 @@ abbreviation definitions in this file by means of: (setq-default abbrev-mode t)) #+end_src -Listing [[lst:word-games]] defines the =anagram-p= function that might be used games. - -#+caption[Word games]: -#+caption: Word games. -#+name: lst:word-games -#+begin_src emacs-lisp -n :results silent -;; https://funcall.blogspot.com/2022/07/lets-play-wordle.html -;; https://github.com/tabatkins/wordle-list -(defun anagram-p (evil vile) - "Check whether strings EVIL and VILE are anagrams of each other." - (if (string= evil vile) - nil - (string= (cl-sort evil #'<) (cl-sort vile #'<)))) - -;; https://funcall.blogspot.com/2020/01/palindromes-redux-and-sufficiently.html -;; https://irreal.org/blog/?p=8570 -(defun palindrome-p (word) - "Check whether the string WORD is a palindrome." - (cl-do ((head 0 (1+ head)) - (tail (1- (length word)) (1- tail)) - (ok t)) - ((or (not ok) (>= head tail) ok) - (setq ok (= (aref word head) (aref word tail)))))) -#+end_src - *** TODO [[https://dict.org/bin/Dict][DICT.org]] local server fails on Darwin :PROPERTIES: :CUSTOM_ID: sec:writing-dict