Rubyist SNS で世界のナベアツが話題になっていたので、emacs lisp で作ってたみた。 (defun nabep (n &optional base) "n は あほ になる数か?" (or base (setq base 3)) (cond ((= (mod n base) 0) t) ((string-match (format "%d" base) (format "%d" n))…