_{Titre volé inspiré par la réponse de Greg Hewgill à Quelle est la différence entre JavaScript et Java?}

introduction

Java et JavaScript sont des langages couramment utilisés par les programmeurs et sont actuellement les balises les plus populaires sur Stack Overflow. Cependant, comme nous le savons tous, mis à part des noms similaires, les deux n’ont presque rien en commun.

En l'honneur de l'un des débats les plus célèbres de la programmation et inspiré par mes récentes frustrations en matière de recherche de balises , je propose ce qui suit:

Défi

Ecrivez un programme qui prend une chaîne en entrée. Retourne carsi la chaîne commence par "Java" et n'inclut pas "JavaScript". Sinon, revenez carpet.

Exemple d'entrée et de sortie

voiture:

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

tapis:

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

Remarques

• La correspondance des entrées doit être sensible à la casse
• Seules les possibilités de sortie doivent être caroucarpet
• Points bonus imaginaires si votre réponse utilise Java, JavaScript ou Regex
• Titre alternatif: Java est à JavaScript comme jambon est à hamster

Polyglotte Java / JavaScript, 108 107 106 octets

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

Exécuter en Java

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

Essayez-le en ligne!

Remarque: ne faites pas confiance à la surbrillance car elle est incorrecte. Le vrai Java, correctement interprété, ressemble à ce qui suit, car il \u000Aest interprété dès la première étape de la compilation comme se \nterminant de facto par le commentaire qui a commencé par la ligne comment ( //).

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

Exécuter en JavaScript

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

Crédits à @CowsQuak pour la version JS.

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

Combien de points bonus imaginaires pour cette réponse?

-1 octet grâce à @ Nevay dans la réponse Java.

JavaScript, 50 49 octets

Enregistré 1 octet grâce à @ValueInk en réorganisant les expressions rationnelles

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

Extrait de test

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 octets

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

Essayez-le en ligne!

1 octet enregistré grâce à @Nevay !

C (seulement appelant put), 131 octets

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

Il a ses problèmes, mais il passe tous les tests fournis :)

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

Points bonus imaginaires si votre réponse utilise Java, Javascript ou Regex

bien ... non merci

05AB1E , 21 octets

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

Essayez-le en ligne!

Python 2 , 68 octets

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

Essayez-le en ligne!

-11 octets grâce à notjagan
-2 octets grâce à Dennis

C #, 80 78 octets

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

Excel Google Feuilles, 89 86 octets

3 octets sauvés grâce à Taylor Scott

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

Prend une entrée sur A1

Explication

=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 octets

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

Essayez-le en ligne!

Gelée , 27 octets

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

Essayez-le en ligne!

Rubis , 42 + 1 = 43 octets

Utilise le -pdrapeau.

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

Essayez-le en ligne!

Retina ,  44  37 octets

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

Merci à @MartinEnder d'avoir joué 7 octets au golf!

Essayez-le en ligne!

Common Lisp, 131 à 125 octets

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

Essayez-le en ligne!

Taille réduite grâce au # n = «tour» de Common Lisp.

Explication

(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 octets

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

Essayez-le en ligne!

Déroulé:

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 octets

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

Excel VBA, 76 octets

La fonction de fenêtre immédiate VBE anonyme qui prend l’entrée de la plage [A1]et des sorties est car/carpet status dans la fenêtre immédiate VBE

N'utilise pas RegExp

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

Python 3 , 95 octets

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

Essayez-le en ligne!

Ouais, ça pourrait être plus court mais je voulais essayer d'utiliser un lambda imbriqué!

Perl , 42 octets

Je crois que la réponse de stevieb a un résultat incorrect (essayé moi-même - il retourne car pour "javajavascript"). Cela devrait fonctionner:

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

Mathematica, 82 octets

regex

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

JAISBaL , 36 octets

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

Verbose / explication:

# \# 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 était ma première tentative de conception d’une langue de golf, c’est donc assez bizarre ... il n’ya pas de correspondances ou ne contient pas, regex ou autre, nous devons donc scinder et vérifier la longueur du tableau résultant ... JAISBaL a une division par -regex ... mais pas d'autre support regex .... pour des raisons.

Regex volé emprunté à la réponse de @Cows Quack .

Python 2 , 69 octets

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

Actuellement, 1 octet de plus que la solution Python 2 la plus courte.

Essayez-le en ligne!

Perl , 36 octets

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

Exécutez-le comme tel:

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

Lot, 91 octets

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

Prend une entrée sur STDIN. Batch n'a pas d'opérateur de comparaison insensible à la casse, mais son remplacement de chaîne est insensible à la casse. Par conséquent, je peux affecter temporairement les quatre premiers caractères à un remplacement temporaire, puis remplacer java, ce qui devrait alors donner la chaîne vide. En attendant, je remplace javascript de manière insensible à la casse dans la chaîne d'origine, ce qui devrait le laisser inchangé.

Lua, 96 octets

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

Perl, 98 84 62 octets

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

Essayez-le en ligne!

Merci à bytepusher

Dart VM, 104 octets 102 octets

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

Explication :

Degolfed:

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

Nous avons notre fonction principale habituelle

Nous remplaçons ppar p[0].toLowerCase();pour que nous n'ayons pas à déclarer une nouvelle variable ( varplus un espace serait 4 octets supplémentaires)

Nous procédons ensuite à l'impression réelle

Nous imprimons de manière carinconditionnelle et nous utilisons des instructions en ligne pour vérifier s'il faut imprimer petaprès. S'il contient la chaîne "java" à l'index 0 et qu'il ne contient pas "javascript", nous ne faisons rien (nous ajoutons en fait une chaîne vide mais elle n'a aucun effet), sinon nous ajoutons pet.

Rouille, 97 octets

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

Je suis à peu près sûr qu'il existe une solution plus courte mais c'est mon premier essai :)

Bracmat , 66 octets

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

Essayez-le en ligne!