งาน

กำหนด String เป็น input งานของคุณคือการส่งออก42 เท่านั้นถ้าใส่ String ที่จะเกิดขึ้นตรงต่อไปนี้:

abbcccddddeeeeeffffffggggggghhhhhhhhiiiiiiiiijjjjjjjjjjkkkkkkkkkkkllllllllllllmmmmmmmmmmmmmnnnnnnnnnnnnnnoooooooooooooooppppppppppppppppqqqqqqqqqqqqqqqqqrrrrrrrrrrrrrrrrrrsssssssssssssssssssttttttttttttttttttttuuuuuuuuuuuuuuuuuuuuuvvvvvvvvvvvvvvvvvvvvvvwwwwwwwwwwwwwwwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzz

มันอาจส่งออกค่าอื่นใดสร้างข้อผิดพลาดหรือไม่เอาท์พุทเลยถ้าอินพุตไม่เท่ากับสตริงดังกล่าวข้างต้น

เกณฑ์การชนะ

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดในหน่วยไบต์ชนะ!

Golfscript, 20

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

กับบรรทัดใหม่ 21 ตัวอักษร (โดย Nabb)

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

ที่จริงนับบีเอาชนะฉันนี่คือคำตอบดั้งเดิมสำหรับบรรทัดใหม่ 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)

สมมติว่าอินพุตมีให้ใน commandline:

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(นั่นคือสูตรตัวเลขสามเหลี่ยม) การแก้สมการกำลังสองทำให้ดัชนี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))แต่ที่ไม่ถือเป็นจริงสำหรับค่าขนาดใหญ่

แก้ไข : เปลี่ยนเป็นอินพุตบรรทัดคำสั่งตามที่แนะนำในความคิดเห็น
แก้ไข : ใช้โอเปอเรเตอร์ที่มีเงื่อนไขเพื่อบันทึกอักขระ

Perl, 35 43

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

ต้องการ Perl 5.10 หรือใหม่กว่า (เรียกใช้ด้วย-E) ไม่มีการขึ้นบรรทัดใหม่ในอินพุต

ฉันชอบผลข้างเคียงของฉัน regex ดีกว่า แต่รหัสที่สั้นกว่าพูด นี่มันเป็นของที่ระลึก มีไว้สำหรับ Perl 5.10 หรือใหม่กว่า แต่สำหรับคุณสมบัติ regex ขั้นสูง / ทดลองเท่านั้นดังนั้นจึง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 (และการเล่นกอล์ฟโดยทั่วไป) ความท้าทายนี้ถูกทำเครื่องหมายว่าใช้งานได้เมื่อวานนี้และฉันพบวิธีแก้ปัญหาสั้น ๆ แล้วทำไมไม่แชร์ล่ะ :)

โปรแกรม Haskell - 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);
}

Delphi, 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.

(โปรดทราบว่ารุ่นนี้สันนิษฐานว่าcและiตัวแปรเริ่มต้นที่ค่าเริ่มต้นที่ 0 เช่นเดียวกับกรณีในรุ่น Delphi (2010) ของฉัน)

เช่นเดียวกับการส่งอื่น ๆ ของฉันสิ่งนี้ต้องการอักขระน้อยลงหากการสร้างสายอักขระไม่ได้เกิดขึ้นในฟังก์ชั่นอย่างที่ฉันเคยทำมาก่อน:

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 () กลายเป็นเขียน ()

PHP - 45 ตัวอักษร

ฉันแปลกใจที่ไม่มีใครโพสต์คำตอบใด ๆ ที่ใช้ hashing มันเป็นวิธีการทดสอบขนาดที่มีประสิทธิภาพมากสำหรับสตริงที่แน่นอน

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

ข้อมูลเป็นชนิดของยากที่จะคัดลอก / วางเนื่องจากมี null-byte อยู่ตรงกลางของรหัส นี่คือรหัสฐานสิบหกสำหรับการทดสอบ

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)

Pyth, 14

*42qzsm*dhxGdG

เพียงสร้างสตริงที่จำเป็นแล้วเปรียบเทียบกับอินพุตและคูณด้วย 42

Brachylog (2) 15 ไบต์ภาษาโพสต์วันที่ท้าทาย

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

ลองออนไลน์!

และตอนนี้สำหรับคำตอบที่ทำงานบนหลักการที่แตกต่างอย่างสิ้นเชิงเพื่อให้เห็นมากที่สุดที่นี่ นี่คือการส่งฟังก์ชั่น (คำถามไม่ได้ระบุประเภทของการส่งที่ต้องการ แต่ฟังก์ชั่นได้รับอนุญาตโดยค่าเริ่มต้น)

คำอธิบาย

คำตอบนี้ทำงานโดยการกำหนดประเภทของสตริง: ที่ a) มีตัวอักษรตัวพิมพ์เล็กทั้งหมดของตัวอักษร, b) อยู่ในลำดับการเรียงและ c) ที่ใช้จำนวนที่เกิดขึ้นของตัวละครแต่ละตัวในสตริงสร้างลำดับต่อเนื่อง จำนวนเต็มเริ่มต้นจาก 1 (มันควรจะชัดเจนว่ามีหลายสตริงดังกล่าว แต่สิ่งที่เราต้องการในกรณีพิเศษคือสั้นที่สุด) จากนั้นถ้าสตริงเป็นไปตามเกณฑ์เหล่านั้นเราเพิ่ม 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

Python (84)

ถือว่าขึ้นบรรทัดใหม่ท้ายท้ายอินพุต

sys นำเข้า
ถ้า ''. เข้าร่วม (c * chr (c + 96) สำหรับ c อยู่ในช่วง (27)) + '\ n' == sys.stdin.read (): print 42

Python - 62 ตัวอักษร

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

Perl, ₄₉ 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).

JavaScript (91 93 94 98 102 116 )

การใช้งาน: a('string')ผลตอบแทนถ้าตามสเป็คที่ถูกต้องหรือ420

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/

แก้ไข : ถูกลบออกและตัดออกทั้งสองช่องว่างในvarfor (

แก้ไข 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--;)

JavaScript 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

สมมติว่ามีการป้อนข้อมูลอย่างน้อย 1 รายการบน cli

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

มันทำงานได้มากหรือน้อยยกเว้น md5 นั้นสามารถทำซ้ำทางเทคนิคกับ algo hashing ได้

PowerShell v2 +, 47 ไบต์

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

โครงสร้างช่วงฟีดที่ผ่านห่วงด้วย1..26 |%{...}การวนซ้ำแต่ละครั้งเราใช้ตัวดำเนินการเครื่องหมายจุลภาคเพื่อสร้างอาร์เรย์ตามตัวอักษรของการ[char]คูณด้วยจำนวนลูปปัจจุบัน จากนั้นเรา-joinที่ร่วมกันทั้งหมดเพื่อสร้างสตริงabbcccdddd...แล้วใช้เป็นกรณี ๆ ไป-ceqเปรียบเทียบกับการป้อนข้อมูลของเรา$argsซึ่งจะส่งผลทั้งในหรือ$TRUE $FALSEใน PowerShell ค่าบูลีนสามารถโยนโดยปริยายเป็น1หรือตามลำดับซึ่งเป็นสิ่งที่เกิดขึ้นที่นี่ด้วย0 42*จะพิมพ์ออกหาก42ใส่เป็นabbccc...zzzzzzzzzzzzzzzzzzzzzzzzzzและจะออกเป็น0อย่างอื่น

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

ลองออนไลน์!

สี่ไบต์ที่ชัดเจนสามารถบันทึกได้หากเราได้รับอนุญาตให้ใช้ตัวพิมพ์ใหญ่

42 42

/⍨ ถ้า (lit. จำลองแบบโดย)

⍞ การป้อนอักขระ

≡ เหมือนกันกับ

819⌶ ที่ต่ำลง

⎕A lphabet

/⍨ ทำซ้ำโดย

⍳ หนึ่งผ่าน

26 26

Clojure - 61 ตัวอักษร

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

ใช้ประโยชน์จากข้อเท็จจริงต่อไปนี้:

• Clojure สามารถตีความสตริงใด ๆ โดยอัตโนมัติเป็นลำดับของตัวอักษร
• ฉันสามารถใช้ช่วงของตัวเลขตั้งแต่ 1 ถึง 26 เพื่อสร้างตัวละครและทำซ้ำตัวเลขหรือเวลาที่ถูกต้องเพื่อสร้างอินพุต "ถูกต้อง"

Javascript 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"));

Delphi, 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.

รุ่นนี้ไม่ได้ใช้ฟังก์ชั่นซึ่งบันทึกตัวละครได้ไม่กี่ตัวเมื่อเทียบกับเทคนิคก่อนหน้านี้:

Delphi, 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.

นานหน่อยส่วนใหญ่เป็นเพราะคำหลักที่ยาวของ Delphi และความต้องการเริ่มต้นแอปพลิเคชันคอนโซลก่อนที่พวกเขาจะสามารถเขียนผลลัพธ์

นอกจากนี้โปรดทราบว่าฉันเพิ่ม CmdLine ด้วยตัวอักษร 77 ตัวเนื่องจากเป็นออฟเซ็ตที่ฉันต้องข้ามพื้นที่ปฏิบัติการที่ใช้งานได้ในพื้นที่ของฉัน (Delphi ไม่มีตัวชี้อาร์กิวเมนต์โดยตรง) ปรับให้เข้ากับการตั้งค่าของคุณ (อาจนำไปสู่ ​​1 ตัวอักษรน้อยลงเมื่อชดเชย <10)