_{Заголовок викрадений натхненним відповіддю Грега Х'югілла на те, у чому різниця між JavaScript та Java?}

Вступ

Java та JavaScript є найпоширенішими мовами серед програмістів, і в даний час є найпопулярнішими тегами в Stack Overflow. Однак, як всі ми знаємо, окрім подібних імен, вони не мають майже нічого спільного.

На честь однієї з найвідоміших дискусій з програмування, натхненної моїми останніми розчаруваннями в пошуку тегів , я пропоную наступне:

Виклик

Напишіть програму, яка приймає рядок як вхідний. Повертається, carякщо рядок починається з "Java" і не включає "JavaScript". В іншому випадку поверніться carpet.

Приклад введення та виведення

автомобіль:

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

килим:

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

Примітки

• Збіг введення повинен бути нечутливим до регістру
• Тільки можливості для виведення повинні бути carабоcarpet
• Уявні бонусні бали, якщо у вашій відповіді використовуються Java, JavaScript або Regex
• Альтернативна назва: Java - це JavaScript, як шинка - хом'як

Поліглот Java / JavaScript, 108 107 106 байт

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

Запустити як Java

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

Спробуйте в Інтернеті!

Примітка: не довіряйте підсвічування, оскільки вона неправильна. Справжня Java, правильно інтерпретована, виглядає нижче, тому що \u000Aвона інтерпретується на першому кроці компіляції, оскільки \nфактично закінчується коментарем, який розпочався з рядка comment ( //).

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

Запустити як JavaScript

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

Подяки @CowsQuak за версію 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));

Скільки уявних бонусних балів за цю відповідь?

-1 байт завдяки @Nevay у відповіді на Java.

JavaScript, 50 49 байт

Збережено 1 байт завдяки @ValueInk, переставивши регулярний вираз

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

Фрагмент тесту

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 байт

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

Спробуйте в Інтернеті!

1 байт збережено завдяки @Nevay !

C (лише виклики), 131 байт

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

У нього є свої проблеми, але він здає всі надані тести :)

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

Уявні бонусні бали, якщо у вашій відповіді використовуються Java, Javascript або Regex

ну ... ні дякую

05AB1E , 21 байт

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

Спробуйте в Інтернеті!

Python 2 , 68 байт

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

Спробуйте в Інтернеті!

-11 байт завдяки ножагану
-2 байти завдяки Деннісу

C #, 80 78 байт

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

EXCEL Google Таблиці, 89 86 байт

Збережено 3 байти завдяки Тейлору Скотту

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

Бере вхід на A1

Пояснення

=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 байт

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

Спробуйте в Інтернеті!

Желе , 27 байт

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

Спробуйте в Інтернеті!

Ruby , 42 + 1 = 43 байти

Використовує -pпрапор.

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

Спробуйте в Інтернеті!

Сітківка ,  44  37 байт

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

Дякуємо @MartinEnder за те, що ти граєш на 7 байт!

Спробуйте в Інтернеті!

Лист звичайний, 131 125 байт

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

Спробуйте в Інтернеті!

Розмір зменшено завдяки # n = "трюку" Common Lisp.

Пояснення

(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 байт

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

Спробуйте в Інтернеті!

Розгорнуто:

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 байти

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

Excel VBA, 76 байт

Анонімна функція негайного вікна VBE, яка приймає вхід з діапазону [A1]та виводить, car/ carpetстатус у безпосереднє вікно VBE

Не використовує RegExp

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

Python 3 , 95 байт

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

Спробуйте в Інтернеті!

Так, це може бути коротше, але я хотів спробувати використовувати вкладені лямбда!

Perl , 42 байти

Я вважаю, що відповідь stevieb має неправильний вихід (я спробував це сам - він повертає машину для 'javaja JavaScript'). Це має працювати:

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

Mathematica, 82 bytes

regex

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

JAISBaL, 36 bytes

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

Verbose/explanation:

# \# 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 was my first attempt at designing a golfing language, so it's rather quirky... there's no matches or contains, regex or otherwise, so instead we have to split and check the resulting array length... because JAISBaL has a split-by-regex... but no other regex support.... because reasons.

Regex stolen borrowed from @Cows Quack's answer.

Python 2, 69 bytes

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

Currently 1 byte longer than the shortest Python 2 solution.

Try it online!

Perl, 36 bytes

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

Run it as such:

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

Batch, 91 bytes

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

Takes input on STDIN. Batch doesn't have a case insensitive comparison operator but it does have case insensitive string replacement so I can assign a temporary to the first four characters and then case insensitively replace java, which should then result in the empty string. Meanwhile I case insensitively replace javascript in the original string, which should leave it unchanged.

Lua, 96 bytes

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

Perl, 98 84 62 Bytes

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

Try it online!

Thanks to bytepusher

Dart VM, 104 bytes 102 bytes

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

Explanation:

Degolfed:

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

We have our usual main function

We replace p with p[0].toLowerCase(); so that we don't have to declare a new variable (var plus a space would be 4 extra bytes)

We then proceed to do the actual printing

We print car unconditionally and we use inline statements for checking whether to print pet after it or not. If it has the string 'java' at index 0 and does not have 'javascript' in it, we do nothing (we actually append an empty string but it does not have any effect) and otherwise we append pet.

Rust, 97 bytes

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

I'm pretty sure that there is a shorter solution but it's my first try :)

Bracmat, 66 bytes

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

Try it online!