태스크

입력으로 문자열이 주어지면 입력 문자열이 정확히 다음과 같은 경우 42 에만 출력 해야합니다 .

abbcccddddeeeeeffffffggggggghhhhhhhhiiiiiiiiijjjjjjjjjjkkkkkkkkkkkllllllllllllmmmmmmmmmmmmmnnnnnnnnnnnnnnoooooooooooooooppppppppppppppppqqqqqqqqqqqqqqqqqrrrrrrrrrrrrrrrrrrsssssssssssssssssssttttttttttttttttttttuuuuuuuuuuuuuuuuuuuuuvvvvvvvvvvvvvvvvvvvvvvwwwwwwwwwwwwwwwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzz

입력이 위에서 언급 한 문자열과 같지 않으면 다른 값을 출력하거나 오류를 발생 시키거나 전혀 출력하지 않을 수 있습니다.

승리 기준

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다!

골프 스크립트, 20

26,{.97+\{.}*}%=42`*

줄 바꿈, 21 자 (Nabb 제공)

26,{).[96+]*}%n+=42`*

실제로 Nabb이 내 비트를 이겼습니다. 여기에 새로운 줄, 22 자

26,{.97+\{.}*}%n+=42`*

이것은 단순히 소스 문자열을 생성하고 stdin의 문자열과 비교하는 것입니다.

루비 1.9, 46 42 39 자

p (?a..?z).map{|a|a*$.+=1}*""==gets&&42

입력이 개행으로 끝나지 않는다고 가정합니다.

C 프로그램 -78 89

편집 : 추가 문자가있는 경우 42를 인쇄하지 마십시오.

입력에 후행 줄 바꿈이 없다고 가정합니다.

main(i,j){for(i=1;i<27;i++)for(j=i;j--;getchar()==96+i?0:exit(1));puts("42"+!!gets(&i));}

접두사가 일치하지 않으면 프로그램이 종료됩니다. 접두사가 일치하지만 1 ~ 3 자 정도의 추가 문자가 있으면 2를 인쇄합니다. 그렇지 않으면 정의되지 않은 동작이 생성됩니다.

로 변경 exit(1)하면 한 문자를 더 짧게 만들 수 있습니다 fork(). 아, 그리고 관련이없는 메모에서 어떤 이유로 든 시스템이 잠기는 경우를 대비하여 열린 문서를 저장하십시오 .

PHP (60)

입력이 명령 행에 제공되었다고 가정하십시오.

for(;$i<702;)$s.=chr(96.5+sqrt($i+=2));echo$s!=$argv[1]?:42;

설명 : 문자열을 삼각형 구조로 볼 수 있습니다.

j     i   val
0     0   a
1   1-2   bb
2   3-5   ccc
3   6-9   dddd
4 10-14   eeeee
5 15-20   ffffff
      ...

줄 j은 색인에서 시작 i = j*(j+1)/2합니다 (삼각 숫자 공식). 2 차 방정식을 풀면 색인 i이 온라인 상태가되어 j = int((sqrt(8*i+1)-1)/2)문자가 포함됩니다 97 + int((sqrt(8*i+1)-1)/2). 0-350지수 범위는 우리가 그것을 단순화 할 수 없다 96.5 + sqrt(2*(i+1)),하지만 더 이상 큰 값에 대한 사실이 보유하고있다.

편집 : 주석에서 제안한대로 명령 줄 입력으로 전환했습니다.
편집 : 조건부 연산자를 사용하여 문자 저장

펄, 35 43

map$s.=$_ x++$a,a..z;say 42if<>~~$s

-E입력에 줄 바꿈이없는 Perl 5.10 이상 (으로 실행 )이 필요합니다.

나는 부작용 정규 표현식을 더 좋아했지만 더 짧은 코드가 사용되었습니다. 기념품으로 여기 있습니다. Perl 5.10 이상용이지만 고급 / 실험적 정규식 기능에만 사용되므로 p명령 행 옵션 만 필요합니다.

$a=a;$_=/^(??{$b++;$a++."{$b}"}){26}$/&&42

05AB1E , 7 바이트 (비경쟁)

AƶJQi42

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

설명

A       push lowercase alphabet
 ƶ      lift every letter, push it and multiply it by its index
  J     join the list
   Qi   does it equal the input?
     42 push 42 and output implicitly

05AB1E (일반적으로 골프)를 배우기 위해 몇 가지 과제를 겪습니다. 이 도전은 어제 활성화 된 것으로 표시되어 있고 짧은 해결책을 찾았으므로 공유하지 않겠습니까? :)

하스켈 프로그램 -71 67 64 57

후행 줄 바꿈이 없다고 가정하고 하나도 출력하지 않습니다.

f x|x==[c|c<-['a'..'z'],_<-['a'..c]]="42"
main=interact f

용법:

$ echo -n 'abbcccddddeeeeeffffffggggggghhhhhhhhiiiiiiiiijjjjjjjjjjkkkkkkkkkkkllllllllllllmmmmmmmmmmmmmnnnnnnnnnnnnnnoooooooooooooooppppppppppppppppqqqqqqqqqqqqqqqqqrrrrrrrrrrrrrrrrrrsssssssssssssssssssttttttttttttttttttttuuuuuuuuuuuuuuuuuuuuuvvvvvvvvvvvvvvvvvvvvvvwwwwwwwwwwwwwwwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzz' | { ./42; echo; }
42
$ echo -n 'something else' | { ./42; echo; }
42: 42.hs:1:0-54: Non-exhaustive patterns in function f


$

J, 29

f=:42#~((>:#a.{~97+])i.26)-:]

예:

f 'oasijfiojasef'

f 23841235

f 'abbccc...'
42

D : 94 자

void f(S)(S s){S t;foreach(i;0..26)t~=array(repeat(cast(char)(i+'a'),i+1));s==t&&writeln(42);}

더보기 :

void f(S)(S s)
{
    S t;

    foreach(i; 0 .. 26)
        t ~= array(repeat(cast(char)(i + 'a'), i + 1));

    s == t && writeln(42);
}

델파이 164 132

이것은 문자열을 만들고 첫 번째 명령 줄 인수와 비교합니다. 다른 제출물보다 짧고 덜 까다 롭습니다.

var s:string;c,i:int8;begin repeat s:=s+Char(c+97);i:=i-1;c:=c+Ord(i<0);if i<0then i:=c;until c=26;Write(42*Ord(s=ParamStr(1)));end.

(이 버전은 Delphi 버전 (2010)의 경우와 같이 c및 i변수가 0에서 초기화 된 것으로 가정합니다 .)

다른 제출물과 마찬가지로 문자열 작성이 이전과 같이 함수에서 발생하지 않으면 문자 수가 줄어 듭니다.

program a;{$APPTYPE CONSOLE}function s(c,i:byte):string;begin if(i>0)then Exit(Char(c)+s(c,i-1));if(c<122)then Exit(s(c+1,c-95));end;begin if(s(97,1)=ParamStr(1))then Write(42);end.

출력에는 개행이 필요하지 않으므로 WriteLn ()은 Write ()가되었습니다.

PHP-45 자

해싱을 사용한 답변을 게시 한 사람이 아무도 없습니다. 정확한 문자열을 테스트하는 매우 효율적인 방법입니다.

echo md5($argv[1],1)!='¯è a@ÛÚƒ:ïT�p'?:42;

코드 중간에 널 바이트가 있으므로 데이터를 복사 / 붙여 넣기가 어렵습니다. 다음은 테스트 목적으로 코드의 16 진 덤프입니다.

65 63 68 6f 20 6d 64 35 28 24 61 72 67 76 5b 31 5d 2c 31 29 21 3d 27 af e8 a0 61 40 db da 7f 11 0f 83 3a ef 54 00 70 27 3f 3a 34 32 3b

스칼라 79

 if((for(i <- 1 to 26;j<-1 to i)yield(96+i).toChar).mkString==args(0))print(42)

피스, 14

*42qzsm*dhxGdG

필요한 문자열을 작성한 다음 입력과 비교하고 42를 곱하십시오.

Brachylog (2), 15 바이트, 언어 날짜 도전 과제

⊇Ạ∧?o?ọtᵐ~⟦₁+₁₆

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

그리고 지금 여기에서 가장 많이 본 것과 완전히 다른 원리로 작동하는 대답이 있습니다. 이것은 기능 제출입니다 (질문은 어떤 종류의 제출이 바람직한 지 지정하지 않지만 기본적으로 기능이 허용됩니다).

설명

이 대답은 a) 알파벳의 모든 소문자를 포함하고 b) 정렬 된 순서를 가지며 c) 문자열에서 각 문자의 출현 횟수를 연속으로 생성하는 문자열의 정렬을 정의하여 작동합니다. 1부터 시작하는 정수입니다. (그런 문자열이 많지만 특수한 문자열이 가장 짧습니다.) 그런 다음 문자열이 해당 기준을 충족하면 16 개의 고유 문자 수에 16을 더합니다. 끈; 문자열이 질문이 우리에게 특별한 경우를 요구하는 문자열이면 42를 생성하고 다른 모든 경우에는 43을 생성합니다. (문자열이 범주에 속하는 기준 중 하나라도 실패하면 함수는 실패로 끝납니다. 이는 예외를 던지는 것과 같습니다.)

소스 코드를 해석하는 방법은 다음과 같습니다.

⊇Ạ∧?o?ọtᵐ~⟦₁+₁₆
⊇Ạ               {the input} contains all lowercase letters
  ∧              and
   ?o?           the input sorts to itself
                 {and; implied when two conditions overlap}
     ?ọ          the {character, number of occurrences} pairs for the input
       tᵐ        when the second element of each is taken
         ~       create an output that could have been produced by
          ⟦₁     outputting the list of integers from 1 to some input inclusive;
            +₁₆  add 16 to that input {and output it}

R, 60 58

if(readline()==paste0(rep(letters,1:26),collapse=""))cat(42)

if(scan(,"")==paste(rep(letters,1:26),collapse=""))cat(42)

@giusppe의 제안에 감사드립니다

파이썬 (84)

입력의 끝에 후행 줄 바꿈을 가정합니다.

수입 시스템
if ''. join (c * chr (c + 96) 범위 c의 경우 27) + '\ n'== sys.stdin.read () : print 42

파이썬-62 자

print("".join(x*chr(x+96) for x in range(27))==raw_input())*42

펄, ₄₉ 46 자

명령 행이 아닌 프로그램에서 사용

$..=chr($+96)x$ for 1..26;$.eq(pop)&&print '42'

join('',map$_ x++$x,'a'..'z')eq pop&&print'42'

문안 인사

rbo

_{편집 : Ventero에서 아이디어가 찢어졌습니다.}

PHP 92 88 87 자

function _($a){for($i=97;$i<123;$i++)for($j=$i-96;$j;$j--)$b.=chr($i);echo($b==$a)*42;}

편집하다

대체 $j<0와 $j와 return $b==$a?42:0;와echo $b==$a?42:0;

대체 echo $b==$a?42:0;와echo($b==$a)*42;

ECLiPSe 프롤로그-173

c(_,[],_):-!. c(A,M,N):-length(L,N),checklist('='(A),L),append(F,L,M),P is N-1,B is A-1,c(B,F,P). ?- read_string(end_of_file,351,S),string_list(S,L),c(122,L,26),writeln(42).

자바 스크립트 (91 93 94 98 102 116 )

사용법 : a('string'), 42사양에 따라 유효한 경우 또는를 반환 합니다 0.

function a(z){for(i=r='';i++<26;)for(j=i;j--;)r+=String.fromCharCode(i+96);return(z==r)*42}

http://jsfiddle.net/g25M3/6/

편집 : var에서 두 공백을 제거 하고 제거했습니다 for (.

편집 2 : 변경 j>0을 j하고,

1. return (z==r)?42:0; 에
2. return z==r?42:0

편집 3 : 초기화 i로 i=''변경

1. (z==r)?42:0 에
2. (z==r)*42

편집 4 : 변경

1. for(;i<27;i++) 에
2. while(i++<26)

편집 5 : 변경

1. i=r='';while(i++<26) 에
2. for(i=r='';i++<26;) 과
3. for(j=i;j;j--) 에
4. for(j=i;j--;)

자바 스크립트 1.8, 99 자

function c(x)(x.replace(/([a-z])\1*/g,function(m)!(a-m.length)*m.charCodeAt(0)-96-a++,a=1)==0)*a+15

나는 당신이 그것을 이해하기 위해 감히 :)

PHP-59

CLI를 통해 최소 1 개의 입력이 제공되었다고 가정

echo md5($argv[1])!='afe8a06140dbda7f110f833aef540070'?:42;

md5가 기술적으로 해싱 알고리즘과 중복 될 수 있다는 점을 제외하고는 다소 작동합니다.

PowerShell v2 +, 47 바이트

42*(-join(1..26|%{,[char]($_+96)*$_})-ceq$args)

범위 1..26를 구성하고로 루프를 통해 피드를 제공합니다 |%{...}. 반복 할 때마다 쉼표 연산자 를 사용하여 현재의 배열 리터럴에 [char]현재 루프 번호를 곱한 배열 리터럴을 구성합니다 . 우리는 -join모두 함께 문자열을 구성하는 것을 abbcccdddd...다음 대소 문자를 구분 사용하는 -ceq우리의 입력에 대해 비교를 $args중 발생되는, $TRUE또는 $FALSE. PowerShell에서 부울 값은 각각 내재적으로 1또는로 캐스트 될 수 있습니다 . 입력이 있으면 인쇄하고 그렇지 않으면 출력 합니다.042*42abbccc...zzzzzzzzzzzzzzzzzzzzzzzzzz0

K, 26 바이트

{(::;42)x~,/(1+!26)#'.Q.a}
{(::;42)x~,/(1+!26)#'.Q.a}"hello"
{(::;42)x~,/(1+!26)#'.Q.a}"abbcccddddeeeeeffffffggggggghhhhhhhhiiiiiiiiijjjjjjjjjjkkkkkkkkkkkllllllllllllmmmmmmmmmmmmmnnnnnnnnnnnnnnoooooooooooooooppppppppppppppppqqqqqqqqqqqqqqqqqrrrrrrrrrrrrrrrrrrsssssssssssssssssssttttttttttttttttttttuuuuuuuuuuuuuuuuuuuuuvvvvvvvvvvvvvvvvvvvvvvwwwwwwwwwwwwwwwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzz"
42

감사

VBA 91

VBA 답변은 없었지만 작동합니다.

Function f(t)
    For i = 1 To 26
        o = o & String(i, Chr(i + 96))
    Next
    f = -42 * (t = o)
End Function

APL (Dyalog) , 18 17 바이트

42/⍨⍞≡819⌶⎕A/⍨⍳26

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

대문자를 사용하면 4 개의 명백한 바이트를 저장할 수 있습니다.

42 42

/⍨ if (lit.에 의해 복제 됨)

⍞ 문자 입력

≡ ~와 동일하다

819⌶ 소문자

⎕A lphabet

/⍨ 에 의해 복제

⍳ 하나를 통해

26 26

클로저 -61 자

(fn[a](if(=(mapcat #(repeat%(char(+% 96)))(range 1 27))a)42))

다음 사실을 악용합니다.

• Clojure는 문자열을 문자 시퀀스로 자동 해석 할 수 있습니다.
• 1에서 26까지의 숫자 범위를 사용하여 문자를 만들고 올바른 숫자를 반복하여 "올바른"입력을 생성 할 수 있습니다.

자바 스크립트 144

아마도 크게 개선 될 수 있습니다. 재귀는 항상 나에게 먼 곳이었습니다.

압축

function r(a,b,d,c){c++;if(b<d)a+=r(a,b+1,d,c);for(i=0;i<c;i++)a=String.fromCharCode(b)+a;return a}function q(a){if(q==r(a,97,122,0))return 42};

덜 압축

function r(s, c, x, w){        
    w++;
    if(c < x)
        s += r(s, c + 1, x, w);
    for(i = 0; i < w; i++)
        s = String.fromCharCode(c) + s;              
    return s;
}
function q(z){
    if(q==r(z,97, 122, 0))
        return 42;            
}

alert(q("rgrg"));

델파이, 127

var b:Char;c,i:Int8;begin repeat if i<0then i:=c;Read(b);if c+97<>Ord(b)then Exit;i:=i-1;c:=c+Ord(i<0)until i=27;Write(42);end.

이것은 입력에서 문자열을 읽고 입력과 비교하여 입력이 마지막까지 일치 할 때 42를 씁니다 z.

var b:pchar;c,i:byte;begin b:=CmdLine+85;c:=97;i:=1;repeat Inc(b);if b^<>Char(c)then Exit;Dec(i);if i>0then Continue;c:=c+1;i:=c-96;until i=27;Write(42);end.

program a;{$APPTYPE CONSOLE}var b:pchar;c,i:byte;begin b:=CmdLine+85;c:=97;i:=1;repeat Inc(b);if(b^<>Char(c))then Exit;Dec(i);if(i>0)then Continue;c:=c+1;i:=c-96;until(i=27);Write(42);end.

이 버전은이 기술의 이전 버전과 비교할 때 상당히 적은 문자를 절약하는 함수를 사용하지 않습니다.

델파이, 213

program a;{$APPTYPE CONSOLE}function t(b:pchar;c,i:byte):byte;begin repeat Inc(b);if(b^<>Char(c))then Exit(0);Dec(i);if(i>0)then Continue;c:=c+1;i:=c-96;until(i=27);t:=42;end;begin WriteLn(t(CmdLine+77,97,1));end.

델파이의 긴 키워드와 출력을 쓰기 전에 콘솔 응용 프로그램을 초기화해야하기 때문에 아아, 조금 길다.

또한 로컬 실행 파일 경로를 건너 뛰는 데 필요한 오프셋이므로 CmdLine을 77 자씩 늘 렸습니다 (Delphi에는 직접 인수 포인터가 없음). 자신의 설정에 맞게 조정하십시오 (오프셋 <10 일 때 문자가 1보다 적을 수 있음).