_{Başlık çalınmış esinlenerek Greg Hewgill cevabı için JavaScript ve Java arasındaki fark nedir?}

Giriş

Java ve JavaScript, programcılar arasında yaygın olarak kullanılan dillerdir ve şu anda Stack Overflow'ta en popüler etiketlerdir. Ancak hepimizin bildiği gibi, benzer isimler dışında, ikisinin de ortak hiçbir yanı yok.

Programlamanın en rezil tartışmalarından birinin şerefine ve etiket arama konusundaki son sıkıntılarımdan ilham alarak aşağıdakileri öneriyorum:

Meydan okuma

Bir dizgeyi girdi olarak alan bir program yazın. carDize "Java" ile başlıyorsa ve "JavaScript" içermiyorsa geri dönün . Aksi takdirde geri dönün carpet.

Örnek Giriş ve Çıkış

araba:

java
javafx
javabeans
java-stream
java-script
java-8
java.util.scanner
java-avascript
JAVA-SCRIPTING
javacarpet

halı:

javascript
javascript-events
facebook-javascript-sdk
javajavascript
jquery
python
rx-java
java-api-for-javascript
not-java
JAVASCRIPTING

notlar

• Giriş eşleşmesi büyük / küçük harf duyarlı olmamalıdır
• Yalnızca çıktı için olasılıklar carveyacarpet
• Cevabınız Java, JavaScript veya Regex kullanıyorsa hayali bonus puanları
• Alternatif Başlık: Java jambon hamster olduğu gibi JavaScript için

Java / JavaScript Polyglot, 108 107 106 bayt

//\u000As->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

Java olarak çalıştır

//\u000As->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

Çevrimiçi deneyin!

Not: vurguyu yanlış olduğu için güvenmeyin. Düzgün bir şekilde yorumlanan gerçek Java, aşağıdaki gibi görünüyor çünkü \u000Aderlemenin ilk adımında \n, yorum satırındaki yorum ile başlayan fiili olarak bitiyor //.

//
s->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

JavaScript olarak çalıştır

//\u000As->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

JS sürümü için @CowsQuak kredileri.

let f=

//\u000As->s.matches("(?i)(?!.*javascript)java.*"/*
a=>/(?!.*javascript)^java/i.test(a/**/)?"car":"carpet"

var a=["java","javafx","javabeans","java-stream","java-script","java-8","java.util.scanner","javascript","java-avascript","javascript-events","facebook-javascript-sdk","javajavascript","jquery","python","rx-java","java-api-for-javascript","not-java"];

for(var s of a) console.log(s.padStart(a.reduce((x,y)=>x.length>y.length?x:y).length) + "=>" + f(s));

Bu cevap için kaç tane hayali bonus puanı?

Java cevabındaki @Nevay sayesinde -1 bayt .

JavaScript, 50 49 bayt

Regex yeniden düzenleyerek @ValueInk sayesinde 1 bayt kaydedildi

a=>/javascript|^(?!java)/i.test(a)?"car":"carpet"

Test pasajı

let f=

a=>/javascript|^(?!java)/i.test(a)?"carpet":"car"

var a=["java","javafx","javabeans","java-stream","java-script","java-8","java.util.scanner","java-avascript","javascript","javascript-events","facebook-javascript-sdk","javajavascript","jquery","python","rx-java","java-api-for-javascript","not-java"];

for(var s of a) console.log(s.padStart(a.reduce((x,y)=>x.length>y.length?x:y).length) + "=>" + f(s));

Java (OpenJDK 8) , 92 82 72 58 57 bayt

s->s.matches("(?i)(?!.*javascript)java.*")?"car":"carpet"

Çevrimiçi deneyin!

@Nevay sayesinde 1 bayt kurtarıldı !

C (yalnızca arama yapan koyarlar), 131 bayt

f(int*s){char r[]="carpet";~*s&'AVAJ'||(r[3]=0);for(;*s&255;*(int*)&s+=1)~*s&'AVAJ'||~s[1]&'IRCS'||~s[2]&'TP'||(r[3]='p');puts(r);}

Sorunları var ama verilen tüm testlerden geçiyor :)

g(int* s)
{
  char r[] = "carpet";
  ~*s&'AVAJ' || (r[3]=0);
  for(;*s & 255; *(int*)&s +=1)
    ~*s&'AVAJ' || ~s[1]&'IRCS' || ~s[2]&'TP' || (r[3]='p');
  puts(r);
}

Cevabınız Java, Javascript veya Regex kullanıyorsa hayali bonus puanları

iyi ... hayır, teşekkürler

05AB1E , 21 bayt

lD'¦‚å≠sη'îáå*„¾„ƒ´#è

Çevrimiçi deneyin!

Python 2,68 bayt

k=input().lower();print'car'+'pet'*(k[:4]!='java'or'javascript'in k)

Çevrimiçi deneyin!

-Jagan olmayanlar için 11 byte
- Dennis sayesinde 2-byte

C #, 80 78 bayt

s=>(s=s.ToLower()).StartsWith("java")&!s.Contains("javascript")?"car":"carpet"

EXCEL Google Sayfaları, 89 86 Bayt

Taylor Scott sayesinde 3 bayt kurtardı

=LEFT("carpet",6-3*ISERR(SEARCH("javascript",A1))+3*ISERR(IF(SEARCH("java",A1)=1,1,1/0

A1'de bir girdi alır

açıklama

=LEFT("carpet",6-3*ISERR(SEARCH("javascript",A1))+3*ISERR(IF(SEARCH("java",A1)=1,1,1/0)))

 SEARCH("javascript",A1)        #Case-Insensitive Find, returns error if not found  
 ISERR(                         #Returns string true if error, False if not
 3*ISERR(                       #Forces TRUE/False as integer, multiplies by 3
 IF(SEARCH("java",A1)=1,1,1/0)  #If java found, returns integer. if 1, java begins string
                                #so returns 1, which will be turned into 0 by iserr.
                                #Else returns 1/0, which will be turned into 1 by iserr.
 LEFT(                          #Returns digits from the left, based upon count.

vim, 58 bayt

gUU:s/.*JAVASCRIPT.*/Q/g
:s/^JAVA.*/car
:s/[A-Z].*/carpet

Çevrimiçi deneyin!

Jöle , 27 bayt

,“Ẋṣ“®Ẓȷ»ŒlwЀ/Ḅn2‘×3“¢Ẹị»ḣ

Çevrimiçi deneyin!

Ruby , 42 + 1 = 43 bayt

-pBayrağı kullanır .

$_="car#{"pet"if~/javascript|^(?!java)/i}"

Çevrimiçi deneyin!

Retina ,  44  37 bayt

Ai`^(?!.*javascript)java
.+
pet
^
car

7 byte'lık golf için @MartinEnder'e teşekkürler!

Çevrimiçi deneyin!

Ortak Lisp, 131 125 bayt

(lambda(s)(format()"car~@[pet~]"(or(<(length s)4)(not(#1=string-equal"java"(subseq s 0 4)))(search"javascript"s :test'#1#))))

Çevrimiçi deneyin!

Common Lisp'in # n = “numarası” sayesinde boyut küçültülmüş .

açıklama

(lambda (s)                 ; anonymous function
  (format                   ; use of format string to produce the result
    ()                      ; the result is a string
    "car~@[pet~]"           ; print "car", then print "pet" when:
    (or (< (length s) 4)    ; the string is less then 4 characters or
        (not (string-equal "java" (subseq s 0 4)))     ; does not start with java or
        (search "javascript" s :test 'string-equal)))) ; contains javascript

C (tcc), 144 136 bayt

a;f(s){char*t=s;for(;*t;a=!strncmp(s,"java",4))*t=tolower(*t++);for(t=s;*t;)s=strncmp(t++,"javascript",10)&&s;puts(a*s?"car":"carpet");}

Çevrimiçi deneyin!

unrolled:

a;
f(s)
{
    char *t = s;
    for (; *t; a = !strncmp(s, "java", 4))
        *t = tolower(*t++);
    for (t=s; *t;)
        s = strncmp(t++, "javascript", 10) && s;
    puts(a*s ? "car"  :"carpet");
}

Excel, 84 bayt

="car"&IF(AND(ISERR(SEARCH("javascript",A1)),IFERROR(SEARCH("java",A1),2)=1),,"pet")

Excel VBA, 76 Bayt

Menzilde girdi [A1]ve çıktı alan anonim VBE acil pencere işlevi VBE acil durum penceresine car/ carpetdurumudur

RegExp kullanmaz

?"car"IIf(InStr(1,[A1],"Java",1)*(InStr(1,[A1],"JavaScript",1)=0),"","pet")

Python 3 , 95 bayt

g=lambda s:(lambda r:'car' if r[:4]=='java' and 'javascript' not in r else 'carpet')(s.lower())

Çevrimiçi deneyin!

Evet, daha kısa olabilirdi ama iç içe lambda kullanmayı denemek istedim!

Perl , 42 bayt

Stevieb'in cevabının yanlış çıktı olduğuna inanıyorum (kendim denedim - o 'javajavascript' için arabayı döndürür). Bu çalışmalı:

say/^java/i&&!/javascript/i?'car':'carpet'

Mathematica, 82 bayt

regex

If[#~StringMatchQ~RegularExpression@"(?i)(?!.*javascript)^java.*","Car","Carpet"]&

JAISBaL , 36 bayt

℠℘(?!.*javascript)^java.*}͵Ucar½Upet

Ayrıntılı / açıklama:

# \# enable verbose parsing #\
tolower                           \# [0] convert the top value of the stack to lowercase #\
split (?!.*javascript)^java.*}    \# [1] split the top value of the stack by (?!.*javascript)^java.*} #\
arraylength                       \# [2] push the length of the array onto the stack #\
print3 car                        \# [3] print car #\
!if                               \# [4] if the top value on the stack is falsy, skip the next statement #\
print3 pet                        \# [5] print pet #\

JAISBaL bir golf dili tasarlamadaki ilk girişimdi, bu yüzden oldukça ilginç ... eşleşme veya içerik yok, regex veya başka bir şey var, bu yüzden sonuçta elde edilen dizi uzunluğunu bölmek ve kontrol etmek zorundayız ... -regex ... ama başka regex desteği yok .... çünkü sebepler.

Regex çalınan @Cows Quack'in cevabından ödünç alındı .

Python 2,69 bayt

f=input().lower().find
print'car'+'pet'*(f('java')!=~f('javascript'))

Şu anda en kısa Python 2 çözümünden 1 byte daha uzun.

Çevrimiçi deneyin!

Perl , 36 bayt

say/^java(?!script)/i?"car":"carpet"

Gibi çalıştırın:

perl -nE 'say/^java(?!script)/i?"car":"carpet"' java.txt

Toplu iş, 91 bayt

@set/ps=
@set t=%s:~0,4%
@if "%t:java=%%s:javascript=%"=="%s%" (echo car)else echo carpet

STDIN'de girişi ele alır. Toplu büyük / küçük harf duyarlı bir karşılaştırma işlecine sahip değildir, ancak büyük küçük harf duyarsız dize değiştirme özelliğine sahiptir, böylece ilk dört karaktere geçici olarak atayabilirim ve sonra boş dize ile sonuçlanacak şekilde java'yı duyarsız biçimde değiştirebilirim. Bu arada, orijinal dizgede javascript'i duyarsızca değiştiriyorum, bu da değişmeden bırakmalı.

Lua, 96 bayt

function(x)return x:lower():match"^java"and not x:lower():match"javascript"and"car"or"carpet"end

Perl, 98 84 62 Bayt

sub a{"car".($_[0]=~/javascript/i||$_[0]!~/^java/i?'pet':'');}

Çevrimiçi deneyin!

Bytepusher sayesinde

Dart VM, 104 bayt 102 bayt

main(p){p=p[0].toLowerCase();print("car${p.indexOf('java')==0&&p.indexOf('javascript')<0?'':'pet'}");}

Açıklama :

Degolfed:

main(p)
{
    p = p[0].toLowerCase();
    print("car${p.indexOf('java') == 0 && p.indexOf('javascript') < 0 ? '' : 'pet'}");
}

Her zamanki ana işleve sahibiz

Biz değiştirmek pile p[0].toLowerCase();yeni bir değişken bildirmek zorunda kalmamak için ( varartı bir boşluk 4 ekstra bayt olacaktır)

Daha sonra gerçek baskı işlemine devam ediyoruz

carKoşulsuz yazdırıyoruz ve petsonrasında yazdırılıp yazdırılmayacağını kontrol etmek için satır içi ifadeler kullanıyoruz . 0 dizininde 'java' dizesi varsa ve içinde 'javascript' yoksa, hiçbir şey yapmayız (aslında boş bir dize ekleriz, ancak herhangi bir etkisi yoktur) ve aksi takdirde ekleriz pet.

Pas, 97 bayt

let s=if Regex::new(r"^javascript|^!java$").unwrap().is_match("javascript"){"carpet"}else{"car"};

Daha kısa bir çözüm olduğuna eminim ama bu benim ilk denemem :)

Bracmat , 66 bayt

(f=.pet:?b&@(low$!arg:(? javascript ?|java ?&:?b|?))&str$(car !b))

Çevrimiçi deneyin!