Tugas

Diberikan String sebagai input, tugas Anda adalah untuk menghasilkan 42 hanya jika String input kebetulan persis sebagai berikut:

abbcccddddeeeeeffffffggggggghhhhhhhhiiiiiiiiijjjjjjjjjjkkkkkkkkkkkllllllllllllmmmmmmmmmmmmmnnnnnnnnnnnnnnoooooooooooooooppppppppppppppppqqqqqqqqqqqqqqqqqrrrrrrrrrrrrrrrrrrsssssssssssssssssssttttttttttttttttttttuuuuuuuuuuuuuuuuuuuuuvvvvvvvvvvvvvvvvvvvvvvwwwwwwwwwwwwwwwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzz

Ini dapat menampilkan nilai lain, menghasilkan kesalahan atau tidak menghasilkan sama sekali, jika input tidak sama dengan String yang disebutkan di atas.

Kriteria Kemenangan

Ini adalah kode-golf , jadi kode terpendek dalam byte menang!

Golfscript, 20

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

dengan baris baru, 21 karakter (oleh Nabb)

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

Sebenarnya Nabb mengalahkan milikku, berikut ini solusi orisinil dengan lini baru, 22 karakter

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

Ini hanya menghasilkan string sumber dan hanya membandingkannya dengan string dari stdin.

Ruby 1.9, 46 42 39 karakter

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

Mengasumsikan input tidak diakhiri dengan baris baru.

Program C - 78 89

Sunting: Jangan mencetak 42 ketika ada karakter tambahan.

Asumsikan input tidak memiliki baris baru.

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

Jika awalan tidak cocok, program keluar. Jika awalan cocok tetapi ada 1-3 atau lebih karakter, cetak 2. Jika tidak, menghasilkan perilaku yang tidak ditentukan.

Ini dapat membuat satu karakter lebih pendek dengan mengubah exit(1)ke fork(). Oh, dan pada catatan yang tidak terkait, ingatlah untuk menyimpan dokumen terbuka apa pun , untuk alasan apa pun , sistem Anda akan terkunci.

PHP (60)

Dengan asumsi input disediakan di commandline:

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

Penjelasan : Anda dapat melihat string sebagai struktur segitiga.

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

Baris jdimulai pada indeks i = j*(j+1)/2(itulah rumus angka segitiga). Memecahkan persamaan kuadrat menghasilkan indeks iyang on line j = int((sqrt(8*i+1)-1)/2)dan karenanya mengandung karakter 97 + int((sqrt(8*i+1)-1)/2). Rentang 0-350indeks memungkinkan kami untuk menyederhanakannya 96.5 + sqrt(2*(i+1)), tetapi itu tidak berlaku untuk nilai yang lebih besar.

Sunting : Beralih ke input commandline seperti yang disarankan dalam komentar.
Sunting : Menggunakan operator kondisional untuk menyimpan karakter

Perl, 35 43

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

Membutuhkan Perl 5.10 atau lebih baru (dijalankan dengan -E), tidak ada baris baru dalam input.

Saya lebih suka efek samping regex saya, tetapi kode yang lebih pendek telah berbicara. Ini dia sebagai oleh-oleh. Juga dimaksudkan untuk Perl 5.10 atau lebih baru, tetapi hanya untuk fitur regex maju / eksperimental, jadi hanya popsi baris perintah yang diperlukan.

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

05AB1E , 7 byte (tidak bersaing)

AƶJQi42

Cobalah online!

Penjelasan

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

Hanya melalui beberapa tantangan untuk belajar 05AB1E (dan bermain golf secara umum). Tantangan ini ditandai sebagai aktif kemarin dan saya menemukan solusi singkat, jadi mengapa tidak berbagi? :)

Program Haskell - 71 67 64 57

Mengasumsikan tidak ada baris baru, dan tidak menghasilkan satu baris pun.

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

Pemakaian:

$ 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)-:]

contoh:

f 'oasijfiojasef'

f 23841235

f 'abbccc...'
42

D: 94 Karakter

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

Lebih Jelas:

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

Yang ini membangun string dan membandingkannya dengan argumen baris perintah pertama. Ini lebih pendek dan tidak terlalu rumit daripada kiriman saya yang lain:

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.

(Perhatikan, bahwa versi ini mengasumsikan bahwa cdan ivariabel mulai diinisialisasi pada 0, seperti halnya dalam versi saya Delphi (2010).)

Seperti kiriman saya yang lain, yang ini membutuhkan lebih sedikit karakter jika pembuatan string tidak terjadi dalam suatu fungsi, seperti yang saya lakukan sebelumnya:

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.

Perhatikan bahwa output tidak memerlukan baris baru, jadi WriteLn () menjadi Write ().

PHP - 45 karakter

Saya terkejut tidak ada yang diposting jawaban yang menggunakan hashing. Ini adalah cara yang sangat efisien untuk menguji string yang tepat.

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

Data agak sulit untuk menyalin / menempel karena ada null-byte di tengah kode. Berikut adalah hex-dump kode untuk keperluan pengujian.

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 ef 27 00 54 3f 3a 34 32 3b

Scala 79

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

Pyth, 14

*42qzsm*dhxGdG

Hanya membangun string yang diperlukan, kemudian membandingkannya dengan input dan mengalikannya dengan 42.

Brachylog (2), 15 byte, tantangan tanggal bahasa

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

Cobalah online!

Dan sekarang untuk jawaban yang bekerja pada prinsip yang sama sekali berbeda dengan yang paling banyak dilihat di sini. Ini adalah pengiriman fungsi (pertanyaan tidak menentukan jenis pengiriman apa yang diinginkan, tetapi fungsi diizinkan secara default).

Penjelasan

Jawaban ini bekerja dengan mendefinisikan semacam string: yang a) berisi semua huruf kecil dari alfabet, b) dalam urutan, dan c) yang mengambil jumlah kemunculan setiap karakter dalam string menghasilkan urutan berturut-turut bilangan bulat mulai dari 1. (Seharusnya jelas bahwa ada banyak string seperti itu, tetapi yang kita ingin kasus khusus adalah yang terpendek.) Kemudian jika string memenuhi kriteria tersebut, kita menambahkan 16 ke jumlah karakter berbeda dalam tali; ini akan menghasilkan 42 jika string adalah satu pertanyaan yang meminta kita untuk kasus khusus, dan setidaknya 43 dalam semua kasus lainnya. (Jika string gagal salah satu kriteria untuk masuk ke dalam kategori, fungsi akan berakhir dengan kegagalan, yang seperti melempar pengecualian.)

Berikut cara menafsirkan kode sumber:

⊇Ạ∧?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)

Terima kasih atas sarannya oleh @giusppe

Python (84)

Mengasumsikan baris tambahan di akhir input.

impor sys
jika ''. join (c * chr (c + 96) untuk c dalam kisaran (27)) + '\ n' == sys.stdin.read (): cetak 42

Python - 62 karakter

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

Perl, ₄₉ 46 karakter

untuk digunakan dalam suatu program, bukan pada baris perintah

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

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

Salam

rbo

_{Sunting: Ide yang diambil dari Ventero}

PHP 92 88 87 karakter

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

SUNTING

Diganti $j<0dengan $jdan return $b==$a?42:0;denganecho $b==$a?42:0;

Diganti echo $b==$a?42:0;denganecho($b==$a)*42;

ECLiPSe Prolog - 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 )

Penggunaan:, a('string')mengembalikan 42jika valid menurut spesifikasi, atau 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/

Sunting : Dihapus vardan dihilangkan dua spasi di for (.

Sunting 2 : Diubah j>0menjadi j, dan

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

Sunting 3 : Inisialisasi idengan i='', ubah

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

Sunting 4 : Ubah

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

Sunting 5 : Ubah

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

JavaScript 1.8, 99 karakter

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

Saya menantang Anda untuk membuatnya masuk akal :)

PHP - 59

Asumsikan setidaknya 1 input diberikan pada klien

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

Ini lebih atau kurang berfungsi, kecuali bahwa md5 secara teknis dapat memiliki duplikasi dengan hashing algo.

PowerShell v2 +, 47 byte

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

Membangun rentang 1..26, mengumpankannya melalui loop dengan|%{...} . Setiap iterasi kami menggunakan operator koma untuk membangun array literal dari arus [char]dikalikan dengan nomor loop saat ini. Kami kemudian -joinbersama-sama membangun string abbcccdddd...dan kemudian menggunakan -ceqperbandingan case-sensitive terhadap input kami $args, yang akan menghasilkan salah satu $TRUEatau $FALSE. Di PowerShell, nilai Boolean dapat secara implisit dilemparkan sebagai 1atau 0, masing-masing, yang terjadi di sini dengan 42*. Akan mencetak 42jika inputnya abbccc...zzzzzzzzzzzzzzzzzzzzzzzzzzdan akan menampilkan 0sebaliknya.

K, 26 Bytes

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

Terima kasih

VBA 91

Tidak ada jawaban VBA tetapi ini berfungsi:

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 byte

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

Cobalah online!

Empat byte jelas dapat disimpan jika kita diizinkan menggunakan huruf besar.

42 42

/⍨ if (lit. direplikasi oleh)

⍞ input karakter

≡ identik dengan

819⌶ yang lebih rendah

⎕A Sebuah lfabet

/⍨ direplikasi oleh

⍳ satu lewat

26 26

Clojure - 61 karakter

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

Memanfaatkan fakta-fakta berikut:

• Clojure dapat menafsirkan string apa pun secara otomatis sebagai urutan karakter
• Saya dapat menggunakan rentang angka dari 1 hingga 26 untuk membuat karakter dan mengulanginya dengan angka atau waktu yang tepat untuk menghasilkan input "benar"

Javascript 144

Mungkin bisa ditingkatkan secara signifikan, rekursi selalu menjadi hal yang jauh bagi saya.

Terkompresi

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};

Kurang Terkompresi

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.

Yang ini membaca string dari input, membandingkannya saat berjalan, menulis 42 ketika input cocok sampai yang terakhir 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.

Versi ini tidak menggunakan fungsi, yang menyimpan beberapa karakter jika dibandingkan dengan versi sebelumnya dari teknik ini:

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.

Sayangnya agak lama, sebagian besar karena kata kunci yang panjang Delphi, dan kebutuhan untuk menginisialisasi aplikasi konsol sebelum mereka dapat menulis output.

Perhatikan juga bahwa saya menambah CmdLine dengan 77 karakter, karena itu adalah offset yang saya perlukan untuk melewati executablepath lokal saya (Delphi tidak memiliki pointer argumen langsung). Sesuaikan agar sesuai dengan pengaturan Anda sendiri (bisa menyebabkan 1 karakter lebih sedikit saat offset <10).