- プログラミングのお題スレ Part5
193 ：デフォルトの名無しさん[sage]：2014/10/04(土) 07:30:23.67 ID:P7Lnn5/7 - >>178 Emacs Lisp
(require 'cl-lib)
cl-lib
(cl-loop for a from 2 to 13 do
(cl-loop for b from 1 to 13 do
(cl-loop for c from 2 to 13 do
(let* ((l (list a b c))
(d (- (length l) (cl-count 1 l) (cl-count 2 l) (cl-count 3 l))))
(let ((s (format "この文字列には1が%d個，2が%d個，3が%d個，1から3以外の数字が%d個ある。" a b c d)))
(when (and (= (cl-count ?1 s) a)
(= (cl-count ?2 s) b)
(= (cl-count ?3 s) c)
(= (length (cl-remove-if-not (lambda (c) (or (and (<= ?4 c) (<= c ?9)) (= c ?0))) s)) d))
(print s)))))))
"この文字列には1が4個，2が1個，3が3個，1から3以外の数字が1個ある。"
nil
|
|