プログラミングのお題スレ Part7

プログラミングのお題 ..

687:デフォルトの名無しさん
15/08/29 12:04:46.74 WkkW5Zl4.net
>>654 Emacs Lisp
(require 'cl-lib)
cl-lib
(defun make-substring-set (str)
(let (l)
(cl-loop for s from 0 to (length str) do
(cl-loop for e from (1+ s) to (length str) do (push (substring str s e) l)))
(cl-remove-duplicates l :test #'string=)))
make-substring-set
(defun f (T A B)
(let ((As (make-substring-set A))
(Bs (make-substring-set B)))
(if (= (length (cl-mapcan #'(lambda (s) (when (cl-find s As :test #'string=) (list s))) Bs)) T)
'YES 'NO)))
f
(let ((T 2) (A "hello") (B "world"))
(f T A B))
YES
(let ((T 2) (A "hi") (B "world"))
(f T A B))
NO
(let ((T 1) (A "o") (B "oxo"))
(f T A B))
YES

次ページ

続きを表示

1を表示