Perl 5 , 17 바이트 (+1?), 전체 프로그램

s//.*/g;$_=<>=~$_

온라인으로 사용해보십시오!

에서와 같이 p펄 인터프리터에 플래그를 사용하여 호출하십시오 perl -pe 's//.*/g;$_=<>=~$_'. 당 이 문제가 처음 게시 된 기존의 채점 규칙 ,이 플래그를 하나 추가 바이트를 요한다. 에서 최근 규칙 , AFAICT, 그것은 무료로 할 수있다.

어느 쪽이든, 입력 문자열은 stdin에서 별도의 줄 바꿈으로 끝나는 줄에 제공되어야합니다. 1첫 번째 입력 문자열이 두 번째의 하위 문자열이거나 그렇지 않은 경우 아무것도 출력되지 않습니다 (stdout) .

참고 모두 입력 라인 끝에서 줄 바꿈이 있어야합니다, 또는 프로그램이 제대로 작동하지 않습니다. 또는l 펄이 개행을 제거하도록 명령 행 플래그를 호출에 . 유효한 점수 규칙에 따라 1 바이트의 추가 비용이 들거나 들지 않을 수 있습니다. 이 플래그를 사용하면 출력에 개행이 추가됩니다.

원본 버전 (스 니펫, 18 바이트 / 문자)

$x=~s//.*/g,$y=~$x

입력 값은 변수에 제공 $x되며 $y결과는 스칼라 컨텍스트의 표현식 값입니다. 참고 $x과정에서 수정됩니다. (예, $_대신 사용 하는 것을 알고 있습니다.$x 하면 네 개의 문자를 절약 할 수 있지만 약간 치즈 맛이 나는 스 니펫에서 그렇게하는 것이 좋습니다.)

어떻게 작동합니까?

첫 번째 부분 은의 각 문자 사이 $x=~s//.*/g에 문자열을 삽입합니다 . 두 번째 부분 은 정규 표현식으로 취급 하고 일치 합니다. Perl 정규식에서는 0 개 이상의 임의의 문자를 일치시키는 반면 모든 영숫자는 편리하게 일치합니다..*$x$y=~$x$x$y.*

답변

s=->x,y{y=~/#{[*x.chars]*".*"}/}

p s['','z00']        # => 0   (i.e. true)
p s['z00','z00']     # => 0   (i.e. true)
p s['z00','00z0']    # => nil (i.e. false)
p s['anna','banana'] # => 1   (i.e. true)
p s['Anna','banana'] # => nil (i.e. false)

h@(f:l)%(g:m)=f==g&&l%m||h%m;x%y=x<=y

GHCi> :{
GHCi| zipWith (%) [""   , "z00", "z00" , "anna"  , "Anna"]
GHCi|             ["z00", "z00", "00z0", "banana", "banana"]
GHCi| :}
[True,True,False,True,False]

import re;s=lambda x,y:re.search('.*'.join(x),y)

def s(x,y):
 for c in y:
  if x:x=x[c==x[0]:]
 return x==""

X[0]+Y{1$(@={\}*;}/0=!

s(char*x,char*y){return!*x||*y&&s(*x-*y?x:x+1,y+1);}