Comment detail

倍数になる13進数 (Nested Flatten)
Emacs Lisp です。C-x C-e とか M-: とか M-x ielm とかで式を評価。
1
2
3
4
(let ((n 10))
  (while (not (zerop (mod (string-to-number (number-to-string n) 13) n)))
    (setq n (+ n 1)))
  n)

Index

Feed

Other

Link

Pathtraq

loading...