목록 차이 함수

Question

특히 Lisp 또는 ML 계열의 기존 프로그래밍 언어는 '두 번째 시작까지 첫 번째'라는 의미에서 목록 차이를 계산하는 라이브러리 함수를 가지고 있습니까? 정확하게라고 - 예를 들어, 문자의 목록과 같은 문자열을 고려, 입력이있는 경우 :

abcdef 
def 

그런 다음 출력이

abc 

Answer 1

코드 공통의 리스프 것 :

CL-USER 1 > (defun fusos (s1 s2) 
       (let ((pos (search s2 s1))) 
       (when pos (subseq s1 0 pos)))) 
FUSOS 

CL-USER 2 > (fusos '(a b c d e f) '(d e f)) 
(A B C) 

Answer 2

이미 받아 들여진 답변이 있지만 Common Lisp의 LDIFF ("목록 차이"의 약자)은 여전히 ​​언급할만한 가치가 있습니다. 목록의 요소가 아닌 목록 구조 (목록이 만들어진 cons 셀)를 기반으로하므로 "빼기"목록은 목록의 일부 꼬리로 같음 일치 셀이어야합니다. 좀 더 구체적이지만 목록 차이를 확실히 계산합니다. takeWhile 이후

CL-USER> (let* ((abcdef '(a b c d e f)) 
       (def (cdddr abcdef))) 
      (ldiff abcdef def)) 
(A B C) 

Answer 3

코멘트에 언급과 하스켈은 여기,이 기능을 가지고 당신이 하스켈에서 원하는 결과를 얻을 수있는 방법입니다

takeWhile (flip notElem ys) xs 

귀하의 예제가 될 것

takeWhile (flip notElem "def") "abcdef" 

즉, 목록 ys에 포함되어 있지 않은 한 목록 xs에서 요소를 가져옵니다. ys (또는 xs의 끝에 도달)에 포함 된 요소를 찾으면 즉시 중지합니다.

표준 ML 그것은 다음과 같습니다

fun take_while p [] = [] 
    | take_while p (x::xs) = 
    if p x then x :: take_while p xs 
    else [] 

이 편집 : 위, 나는 사양은 우리의 (임의)의 요소를 발견하면 우리는 즉시, 첫 번째 목록에서 중지 있다는 것을 가정 두 번째 목록. 따라서 takeWhile을 사용하십시오. 그러나 OP에서 실제 사양이 무엇인지는 분명하지 않습니다. 인 경우 입력 (첫 번째 목록)에서 기존 접미사 (두 번째 목록)를 제거하면 솔루션이 물론 다릅니다. 하스켈에서 효율성을 고려하지 않고 다음과 같이 할 수 있습니다 :

removeSuffix [] ys = [] 
removeSuffix xs@(z:zs) ys 
    | xs == ys = [] 
    | otherwise = z : removeSuffix zs ys