Bunun hategüçlü bir kelime olduğunu söylüyorlar . Nedenini bulmak istedim, bu yüzden kelimeye iyi baktım.

Her ünsüzün ondan sonra ünlü olduğu dikkatimi çekti. Bu bana oldukça güçlü görünmesini sağladı, ben de bir kelimeyi güçlü yapan şeyin bu olduğuna karar verdim.

Daha güçlü kelimeler bulmak istiyorum, bu yüzden bunun için bir programa ihtiyacım olacak!

Güçlü kelimeler bulmak

Güçlü kelimeler her ünsüzün (setteki harflerin BCDFGHJKLMNPQRSTVWXZ) bir sesli harfle ( setin içindeki harfler) geldiği sözcüklerdir AEIOUY. Bu kadar. Nothing Else Matters.

Sözcük bir sesli harfle başlarsa, ilk ünsüzden önceki harflerden herhangi biri için endişelenmenize gerek yoktur. Kelimede hiç ünsüz yoksa, otomatik olarak güçlü bir kelimedir!

Güçlü kelimelerin bazı örnekler şunlardır agate, hateve you. agatehala güçlü bir kelime çünkü sesli harfle başlasa da, her ünsüz harfini hala sesli harfle takip ediyor. yougüçlü bir kelime çünkü ünsüzleri yok.

Güçlü kelimeler için uzunluk konusunda herhangi bir kısıtlama yoktur.

Meydan okuma

Boş olmayan bir dizeyi giriş olarak alan bir program veya işlev yazın ve eğer güçlü bir kelime ise yanlış bir değer veya eğer değilse sahte bir değer verir.

Açıklamalar

• Girişi küçük harfli veya büyük harfli almaya karar verebilirsiniz. Cevabınızda hangisini belirtin.
• Kelimeler hiçbir şekilde noktalama işareti içermez. Sette sadece düz harfler bulunur ABCDEFGHIJKLMNOPQRSTUVWXYZ.
• Gerçeği ve sahte değerleri yerine, doğru ve yanlış için geri dönmek için iki farklı ve tutarlı değer seçebilirsiniz. Bunu yaparsanız, cevabınızda seçtiğiniz değerleri belirtin.
  • Alternatif olarak, güçlü bir kelime için sahte bir değer ve güçlü olmayan bir kelime için bir gerçeğe uygun değer yazdırabilirsiniz.

Test durumları

Input      -> Output
hate       -> true
love       -> true
popularize -> true
academy    -> true
you        -> true
mouse      -> true
acorn      -> false
nut        -> false
ah         -> false
strong     -> false
false      -> false
parakeet   -> false

puanlama

Bu kod golf olduğundan , en az bayt olan cevap kazanır!

JavaScript (ES6), 36 28 27 bayt

^{LarsW tarafından önerildiği gibi sonucu ters çevirerek 1 bayt kurtarıldı}

Küçük harflerle giriş yapar. İade falsegüçlü kelime için ve trueolmayan güçlü kelime için.

s=>/[^aeiouy]{2}/.test(s+0)

Nasıl?

Biz eklemek 0iki ardışık olmayan sesli karakterler için giriş dizesi ve görünüm sonunda (non-sesli harf). Bu, bir kelimeyi güçlü olmayan her iki vakayı da kapatmamızı sağlar:

• iki ardışık ünsüz içerir
• veya bir ünsüzle biter

Test durumları

let f =

s=>/[^aeiouy]{2}/.test(s+0)

;[
  "hate", "love", "popularize", "academy", "you", "mouse", "a", "euouae",
  "acorn", "nut", "ah", "strong", "false", "parakeet"
]
.forEach(s => console.log(s + ' --> ' + f(s)))

Python 2,48 bayt

lambda s:'se, F'in`[v in'aeiouy'for v in s+'b']`

(Küçük harf) bir dize alan sve Falsegüçlü olduğunda veya Truedeğilse döndüren adsız bir işlev .

Çevrimiçi deneyin! (OP ile eşleşecek sonuçları ters çevirir)

Nasıl?

Güçlü olmayan kelimeler, bir ünsüzün ardından bir ünsüz veya sonunun bir ünsüz ile bitmesidir.

Kod s+'b', gerekli testi üst üste iki ünsüz için yapmak için sonuna ( ) bir ünsüz ekler .

Değiştirilen kelimedeki her bir harfin, listeyi anlayan bir sesli harf olup olmadığını tespit eder [v in'aeiouy'for v in s+'b'].

Şimdi False, bir satırdaki (güçlü olmayan bir kelimeyi işaret eden) iki sonucu kontrol etmesi gerekiyor `...`, bu listeyi bir dize temsili alarak (kullanarak ) ve varlığını arayarak yapıyor 'se, F'. Bu, içinde bulunan en kısa dizedir 'False, False'ancak hiçbiri 'True, True':; 'False, True'; veya 'True, False'.

Bir örnek düşünürken 'nut', liste anlama her harfi değerlendirir vait 'nutb'varolma 'aeiouy'listesini veren [False, True, False, False], bu listenin dize temsilidir '[False, True, False, False]'içeren 'e, F'burada: '[False, True, Fals>>e, F<<alse]'dolayısıyla işlevini verir Trueo somunu anlamı olduğunu değil güçlü bir kelime.

Jöle ,  10  9 bayt

e€ØY;Ạ11ẇ

Bir karakter listesi alarak ve dönen bir monadik bağlantı:

• 0 eğer güçlü
• 1 eğer değilse

Çevrimiçi deneyin! veya test odasına bakın .

Nasıl?

e€ØY;Ạ11ẇ - Link: list of characters, s      e.g. "hate"  or  "you"  or  "not"
  ØY      - consonant yield                   "BCDFGHJKLMNPQRSTVWXZbcdfghjklmnpqrstvwxz"
e€        - exists in? for €ach letter            [1,0,1,0]   [0,0,0]    [1,0,1]
     Ạ    - all truthy? (1 for any valid input)   1           1          1
    ;     - concatenate                           [1,0,1,0,1] [0,0,0,1]  [1,0,1,1]
      11  - literal eleven
        ẇ - sublist exists?                       0           0          1
          -  N.B.: left of ẇ implicitly makes digits so it looks for the sublist [1,1]

Not: Kullanmanın nedeni Ạsadece kullanmadan önce bir bayt tasarrufu yapmaktır 1(o zamandan beri hemen kullanmak istiyoruz 11).

05AB1E , 8 bayt

kod

žPS¡¦õÊP

05AB1E kodlamasını kullanır .Çevrimiçi deneyin!

açıklama

žPS¡         # Split the string on consonants (bcdfghjklmnpqrstvwxz)
    ¦        # Remove the first element of the array to handle cases when the
               string starts with a consonant
     õÊP     # Check if the empty string is not in the array

Örnek

             # "popularize"
žPS¡         # ['', 'o', 'u', 'a', 'i', 'e']
    ¦        # ['o', 'u', 'a', 'i', 'e']
     õÊ      # [1, 1, 1, 1, 1]
       P     # 1

R , 43 bayt

function(s)grep("[^aeiouy]{2}",paste(s,""))

Çevrimiçi deneyin!

Arnauld'un JavaScript cevabının bir limanı; zayıf kelimeler ve integer(0)güçlü kelimeler için 1 döndürür ; dizenin sonuna bir boşluk ekler .

Bu aslında vectorized; dizgelerin bir vektörüyle, zayıf kelimelerin indekslerini (1 tabanlı) döndürür.

Dyalog APL, 20 bayt

⎕←∧/2∨/0,⍨⍞∊'aeiouy'

Çevrimiçi deneyin!

Haskell , 61 54 bayt

f=and.(zipWith(||)=<<tail).(map(`elem`"aeiouy")).(++"z")

Çevrimiçi deneyin!

zSonunda bir ünsüz vakası işlemek için dize sonunda bir eklemek zorunda kaldı .

Java (OpenJDK 8) , 93 81 bayt

s->{int w=0,p=w,l;for(char c:s)w|=p&(p=l="aeiouy".indexOf(c)>>31);return w+p>=0;}

Çevrimiçi deneyin!

kabuk , 12 bayt

ΛΣX_2m€¨γaıu

Çevrimiçi deneyin!

-4 ile ilgili yardımlarınız için H.PWiz'e teşekkürler . Tutarsız ancak uygun şekilde truthy veya sahte değerler döndürür. -1
için Leo sayesinde , şimdi tutarlı truthy / falsy değeri verir.

Pyth , 18 bayt

:+Q1."2}M>åYà

Tüm test durumlarını doğrulayın.

JS cevap regex "Ödünç" . Bu False, güçlü kelimeler için döner , Trueaksi takdirde

Brachylog , 18 11 10 bayt

,Ḷs₂{¬∈Ẉ}ᵐ

Çevrimiçi deneyin!

Düzgün ve basit (belki de "muhabbet kuşu" gibi son ünsüz olayla başa çıkmak için 2 ekstra ilk bayt hariç).

Güçlü sözler için falsey ve güçlü olmayan sözler için hakikaten.

,Ḷ               % append a newline (non-vowel) at the end of input, 
                 %   to catch final consonants
     s₂          % the result has some substring of length 2
       {¬∈Ẉ}ᵐ    % where neither of its elements belong to  
                 %   the set of alternate vowels (with "y")

Python 2 , 58 bayt

-30 byte, Arnauld'un JS cevabı kadar basit olabilir .

lambda s:re.search('[^aeiouy]([^aeiouy]|$)',s)<1
import re

Çevrimiçi deneyin!

Perl 5, 31 bayt (30 + 1)

$_=''if/[^aeiouy](?![aeiouy])/

-pKomut satırı bayrağı için +1 bayt . Güçlü bir kelime ise sözcüğü, değilse ise boş dize yazdırır.

Jöle , 11 bayt

e€ØY;1a2\¬Ȧ

Çevrimiçi deneyin!

e€ØY;1a2\¬Ȧ  Main link
 €           For each letter
e            Is it an element of
  ØY         The consonants (excluding Yy)?
    ;1       Append 1 (true) (consonant) to make sure last letter isn't consonant
       2\    For all (overlapping) slices of length 2 (the <link><nilad>\ functionality)
      a      Logical AND of the two values; is it a consonant pair?
         ¬   Logical NOT vectorizing; for each (overlapping) pair, is it not a consonant pair?
          Ȧ  Any and all; make sure all pairs are not consonant pairs

Evet, Jonathan Allan tarafından çok dövüldüğümü biliyorum ama yine de yaklaşımımı paylaşmak istedim: P

Küçük bir miktar Jonathan Allan'ın cevabını çalarak -4 bayt (son harf kenar vakasını kontrol etmek için bir ünsüz eklemek yerine, sadece 1 ekleyin)
miller sayesinde -1 bayt

Awk, 39 bayt

/([^aeiouy]{2}|[^aeiouy]$)/{print "n"}

güçlü nolmayan sözcük için yazdırır , güçlü olmayan sözcük için hiçbir şey (veya yalnızca yeni bir satır)

paketi takip etmek ve küçük harfli girişte ardışık iki sesli harf aramak

test yapmak

$ awk -f strongwork.awk
hate
love
popularize
academy
you
mouse
acorn
n
nut
n
ah
n
strong
n
false
n
parakeet
n

Kotlin , 49 bayt

{Regex(".*[^aeiouy]([^aeiouy].*|$)").matches(it)}

Doğru ve yanlış değiştirildi

Beautified

{
    Regex(".*[^aeiouy]([^aeiouy].*|$)").matches(it)
}

Ölçek

var s:(String)->Boolean =
{Regex(".*[^aeiouy]([^aeiouy].*|$)").matches(it)}
data class TestData(val input: String, val output: Boolean)

fun main(args: Array<String>) {
    val items = listOf(
            TestData("hate", true),
            TestData("love", true),
            TestData("popularize", true),
            TestData("academy", true),
            TestData("you", true),
            TestData("mouse", true),
            TestData("acorn", false),
            TestData("nut", false),
            TestData("ah", false),
            TestData("strong", false),
            TestData("false", false),
            TestData("parakeet", false)
    )

    items
            .filter { s(it.input) == it.output }
            .forEach { throw AssertionError(it.toString()) }

    println("Test Passed")
}

TryItOnline

Dayanarak Arnauld en @ Yanıt

Retina , 23 18 bayt

$
$
1`[^aeiouy]{2}

Çevrimiçi deneyin! Güçlü için 0 çıkış, eğer değilse 1. Karışık durumda desteklemek için 1 bayt ekleyin. Düzenleme: @ovs sayesinde 5 bayt kaydedildi.

Java 8, 53 42 bayt

s->s.matches(".*[^aeiouy]([^aeiouy].*|$)")

-11 bayt yerine , jgetapsell'in Kotlin cevabındaki gibi aynı regex kullanarak .

Burada dene. ( falseeğer güçlüyse; truedeğilse)

Açıklama:

s->               // Method with String parameter and boolean return-type
  s.matches(      //  Checks if the String matches the following regex:
    ".*           //   One or more characters
     [^aeiouy]    //   Followed by a consonant
     ([^aeiouy].* //   Followed by another consonant (+ any more characters)
      |$)")       //   Or the end of the String
                  // End of method (implicit / single-line return statement)

Bu yüzden temel olarak iki bitişik ünsüz bulup bulamayacağımızı veya String'in bir ünsüzle bitip bitmediğini kontrol eder.

Eski cevap ( 53 bayt ):

s->s.matches("[aeiouy]*([a-z&&[^aeiouy]][aeiouy]+)*")

Burada dene. ( trueeğer güçlüyse; falsedeğilse)

Girdi dizgesinin 'strong'-regex ile eşleşip eşleşmediğini görmek için regex kullanır. String#matchesJava’da ^...$, Dize’nin verilen regex ile tamamen aynı olup olmadığını kontrol etmek için otomatik olarak ekleyeceğini unutmayın .

Açıklama ":

 s->                   // Method with String parameter and boolean return-type
  s.matches(           //  Checks if the String matches the following regex:
    "[aeiouy]*         //   0 or more vowels
    ([a-z&&[^aeiouy]]  //     { A consonant,
     [aeiouy]+)        //       plus one or more vowels }
    *")                //    Repeated 0 or more times
                       // End of method (implicit / single-line return statement)

Eşleşmeler yerine bir arama (diğer pek çok yanıtın kullandığı gibi) aslında Java'da daha uzun:
70 bayt :

s->java.util.regex.Pattern.compile("[^aeiouy]{2}").matcher(s+0).find()

Burada dene. ( falseeğer güçlüyse; truedeğilse)

Yakut , 25 bayt

->w{w+?t!~/[^aeiouy]{2}/}

Çevrimiçi deneyin!

Diğer herkes yapıyor, neden Ruby yapamıyor?

SOGL V0.12 , 19 18 bayt

æ"[^ŗy]”ŗ(ŗ|$)”øβ=

Burada dene!

Açıklama:

æ                   push "aeiou"
 "[^ŗy]”            push "[^ŗy]" with ŗ replaced with pop
        ŗ(ŗ|$)”     push `ŗ(ŗ|$)` with ŗ replaced with pop
               øβ   replace in the input that regex with nothing
                 =  check for equality with the original input

05AB1E , 11 bayt

žP¹SåJ1«11å

Çevrimiçi deneyin!

Jonathan'ın algoritmasını kullanır, 0doğru ve 1yanlış için döner .

Swift 3.1 , 85 bayt

import Foundation
{($0+"0").range(of:"[^aeiouy]{2}",options:.regularExpression)==nil}

Burada dene!

Bu, Arnauld'un regex'ini ödünç alır .

Lua, 41 bayt

return#(io.read()..0):match"[^aeiouy]+"<2

Standart girdiden okur

Lua (yük taşıma), 37 bayt

return#((...)..0):match"[^aeiouy]+"<2

İşlev parametrelerinden okur

Giriş küçük harf

Yalnızca ünlü olmayan harflerden (ünsüzler) oluşan bir dizi 2 veya daha fazla bir dizi varsa veya dize sesli olmayan bir harfle bitiyorsa

Doğru / yanlış döndürür

C ++, 195 194 bayt

Zacharý sayesinde -1 bayt

Büyük harf, eğer giriş güçlü bir kelime ise doğru, aksi takdirde false (C ++, örtük döküm kurallarını dışlamak için basit bir int'ye sahiptir, 0 => yanlış, doğru ise)

#include<string>
#define C(p)(v.find(e[p])==size_t(-1))
std::string v="AEIOUY";int s(std::string e){for(int i=0;i<e.size()-1;++i)if(e[i]>64&&e[i]<91&&C(i)&&C(i+1))return 0;return!C(e.size()-1);}

Test edilecek kod:

auto t = {
    "HATE",
    "LOVE",
    "POPULARIZE",
    "ACADEMY",
    "YOU",
    "MOUSE",
    "ACORN",
    "NUT",
    "AH",
    "STRONG",
    "FALSE",
    "PARAKEET"
};

for (auto&a : t) {
    std::cout << (s(a) ? "true" : "false") << '\n';
}

C, 107 Bayt

i,v,w,r,t;a(char*s){w=0;for(r=1;*s;s++){v=1;for(i=6;v&&i;)v=*s^" aeiouy"[i--];r=w&&v?0:r;w=v;}return r&~v;}

Güçlü kelime için 1, zayıf kelime için 0 döndürür . Ana yazıda verilen kelimelerle test edilmiştir.

C (gcc) , 59 bayt

f(char*s){return*s?strcspn(s,"aeiouy")+!s[1]<2?f(s+1):0:1;}

Çevrimiçi deneyin!

PHP, 69 bayt

preg_match("/([^AEIOUY][^AEIOUY]+|[^AEIOUY]$)/",$_SERVER['argv'][1]);

1 döndürür kelime güçlü değil.

CJam, 57 bytes

q{"aeiouy"#W=}%_,:B{_A={_A_)\B(<{=!X&:X;}{0:X;;;}?}&}fA;X

Try it online!

Reads input, converts to 1s for consonants, 0s for vowels. For every consonant, AND predefined variable X (predefined to 1) with next character's value. Output X