To wyzwanie jest hołdem dla zwycięzcy Najlepszego Obrazu na Oscars 2017 La La Land Moonlight !

Napisz funkcję / program, który pobiera ciąg zawierający tylko litery [A-Za-z], cztery symbole, które są wspólne w codziennych zdaniach .,'?i spacjach, i wyprowadza ciąg w stylu La La Land.

Aby być bardziej szczegółowym, weź litery do pierwszej grupy samogłosek i włącznie, i wydrukuj / wydrukuj ją dwukrotnie, dodając spację za każdym razem, a następnie wydrukuj / wydrukuj cały ciąg. y jest samogłoską w tym wyzwaniu. Należy zachować interpunkcję i wielkie litery.

Możesz założyć, że wszystkie ciągi zawierają co najmniej jedną samogłoskę i że wszystkie ciągi zaczynają się na literę.

Przypadki testowe:

Land
La La Land

Moonlight
Moo Moo Moonlight

quEueIng
quEueI quEueI quEueIng

This isn't a single word.
Thi Thi This isn't a single word.

It's fun to play golf
I I It's fun to play golf

Ooo
Ooo Ooo Ooo

I'm okay
I I I'm okay

Hmm, no. There will be at least one vowel, but it can be anywhere.
Hmm, no Hmm, no Hmm, no. There will be at least one vowel, but it can be anywhere.

Why is y a vowel?
Why Why Why is y a vowel?

To jest golf golfowy, więc wygrywa najkrótszy kod w każdym języku. Zalecane są objaśnienia , także w językach głównego nurtu.

Sed 30 bajtów

s/[^aeiouy]*[aeiouy]\+/& & &/i

05AB1E , 23 19 18 bajtów

Zapisano 1 bajt dzięki Okx .

Dlð«žOsSåJTk>£D¹ðý

Wypróbuj online! lub jako pakiet testowy

Wyjaśnienie

 Dl                  # create a lowercase copy of implicit input
   ð«                # append a space
     žO              # push the vowels
       s             # swap lowercase input to the top of the stack
        S            # split into a list of chars
         å           # check each char for membership in the vowel-string
                     # (creates a list with 1 at the index of vowels and 0 for non-vowels)
          J          # join to string
           Tk        # find the index of 10
             >       # increment
              £      # take that many items from input
               D     # duplicate this string
                ¹    # push input
                 ðý  # join the strings by space

Galaretka , 24 22 20 19 14 bajtów

-5 bajtów, wykorzystując lewę z genialnej odpowiedzi Emigny (poszukaj 10 na liście isVowel)

;⁶e€Øyw⁵ḣ@;⁶Ȯ;

Wypróbuj online! (nie jestem pewien, jak zrobić pakiet testowy dla tego pełnego programu)

15 bajtów alternatywnych:

;⁶e€Øyw⁵ḣ@;⁶ẋ2;

Oto pełny pakiet testowy.

W jaki sposób?

;⁶e€Øyw⁵ḣ@;⁶Ȯ; - Main link: string s
 ⁶             - space character
;              - concatenate to s (for all vowel edge case)
    Øy         - vowels + y yield
  e€           - exists in? for €ach (gives a list of isVowel identifiers)
       ⁵       - 10
      w        - index of first sublist (with implicit decimalisation of 10 to [1,0])
        ḣ@     - head with reversed @rguments (start of word up to & including vowel group)
           ⁶   - space character
          ;    - concatenate (start of word up to & including vowel group plus a space)
            Ȯ  - print and yield (hence a full program...
               -     ...the alternative ẋ2 repeats instead in order to return the result)
             ; - join with the input, s
               - implicit print (of the second repetition and input string)

Python, 61 bajtów

import re;lambda x:re.sub('(.*?[aeiouy]+)',r'\1 \1 \1',x,1,2)

Oto pierwszy język nie oparty na wyrażeniach regularnych (wykorzystujący wyrażenie regularne).

Zapisano 1 bajt dzięki Neilowi .

JavaScript (ES6), 40 46

Edytuj 5 + 1 bajtów zapisanych dzięki @ Arnauld

Zbyt długi w porównaniu do innych używających tej samej sztuczki (jak zwykle)

x=>x.replace(/.*?[aeiouy]+/i,'$& $& $&')

let f=
x=>x.replace(/.*?[aeiouy]+/i,'$& $& $&')

test=`Land
La La Land

Moonlight
Moo Moo Moonlight

queueing
queuei queuei queueing

This isn't a single word.
Thi Thi This isn't a single word.

It's fun to play golf
I I It's fun to play golf

Ooo
Ooo Ooo Ooo

I'm okay
I I I'm okay

Hmm, no. There will be at least one vowel, but it can be anywhere.
Hmm, no Hmm, no Hmm, no. There will be at least one vowel, but it can be anywhere.`
test.split(`\n\n`).forEach(z=>{
  var [i,k]=z.split(`\n`),x=f(i);
  console.log(k==x ? 'OK':'KO',i+'\n'+x);
})

Siatkówka , 24 bajty

i`^.*?[aeiouy]+
$& $& $&

Wypróbuj online!

Partia, 180 bajtów

@echo off
set/ps=
set v=aeiouy
set g=c
set t=
:l
call set w=%%v:%s:~,1%=%%
if %v%==%w% goto %g%
set g=o
:c
set t=%t%%s:~,1%
set s=%s:~1%
goto l
:o
echo %t% %t% %t%%s%

Implementuje maszynę stanu. gśledzi, czy kiedykolwiek widzieliśmy samogłoskę, więc jeśli bieżąca litera nie jest samogłoską, wiemy, czy wydrukować, czy kontynuować z następną literą.

PowerShell , 46 47 41 39 38 bajtów

$args-replace"^.*?[aeiouy]+",(,'$&'*3)

Wypróbuj online!

Dzięki Maarten Bamelis za poprawkę

Zaoszczędź 6 bajtów dzięki Rynant

Zaoszczędzono 2 3 bajty dzięki Joey

Rubin, 31 32 30 bajtów

->s{(s[/.*?[aeiouy]+/i]+' ')*2+s}

Dwa bajty zapisane dzięki GB i Cyoce.

PHP, 55 54 bajtów

Uwaga: wersja zakodowana wykorzystuje kodowanie IBM-850.

echo preg_filter("/^(.*?[aeiouy]+)/i","$1 $1 $0",$argn);
echo preg_filter(~ðíÎÐı└ñ×ÜûÉèåóÈÍðû,~█╬▀█╬▀█¤,$argn);     # Encoded

Uruchom tak:

echo "This isn't a single word." | php -nR 'echo preg_filter(~ðíÎÐı└ñ×ÜûÉèåóÈÍðû,~█╬▀█╬▀█¤,$argn);'

Wyjaśnienie

Po prostu regex zamień na niecierpliwy pasujący dowolny znak na początku łańcucha, a następnie dowolną liczbę samogłosek (użyj iopcji dla niewrażliwości na wielkość liter). Ta grupa przechwytywania jest następnie drukowana dwukrotnie, a następnie cały ciąg.

Poprawki

• Zapisano bajt za pomocą, -Raby $argnudostępnić (Thx Titus)

JavaScript (ES6), 38 bajtów

x=>(y=/.*?[aeiouy]+/i.exec(x)+' ')+y+x

f=
x=>(y=/.*?[aeiouy]+/i.exec(x)+' ')+y+x

<!-- snippet demo: -->
<input list=l oninput=console.log(f(this.value))>
<datalist id=l><option value=Land>
<option value=Moonlight>
<option value=queueing>
<option value="This isn't a single word.">
<option value="It's fun to play golf">
<option value=Ooo>
<option value="I'm okay.">
<option value="Hmm, no. There will be at least one vowel, but it can be anywhere.">
<option value="Why is y a vowel?">

Perl, 25 + 1 ( -pflaga)

s/.*?[aeiouy]+/$& $& $&/i

Perl 6 , 30 bajtów

{S:i/.*?<[aeiouy]>+/{$/xx 3}/}

Wypróbuj online!

C, 202 196 195 193 190 180

i,j,k,m,n;f(char*a){if((a[i/12]-"AEIOUY"[i++%6])%32==0)k=n=24-(i%12);else if(k&&!n--){m=j=(i-13)/12;for(i=0;i<j*2;)printf("%c%c",a[i%j],(i==j-1)*32),i++;printf(" %s", a);}m?:f(a);}

Wypróbuj online!

Rzecz pozostała do golfa:

• Zwiń dwa printf w jeden.

• Drukowanie mojego znaku spacji można zmienić na %*c logikę, jestem pewien.

• Używam warunkowych, które można jakoś usunąć

•j=(i-13)/12 prawdopodobnie może zostać skrócony.

• [AY] sprawdza warunkowe, jeśli ==0to zwykle nie jest konieczne, chociaż obecnie utknąłem na tym (próbowałem zmienić if-else i ==0porzucić całkowicie, ale to wymaga dodania większej liczby {nawiasów} i zwiększenia rozmiaru bajtów)

Sztuczki, których użyłem do gry w golfa:

• Połączono wyszukiwanie podwójnych ciągów pętli za pomocą modulo dla osi x i dzielenia liczb całkowitych dla osi y (ciąg wejściowy vs ciąg samogłoski). (Oś X jest zapętlona dwa razy przed iteracją raz na osi y; pierwszy raz z [AZ] i drugi raz z [az] przy użyciu różnicy wartości znaku 32.

• Ominięto konieczność używania „[AY] i [ay]”, po prostu biorąc odległość między zestawami znaków a modułem 32. W ten sposób, jeśli odległość wynosi 0 (AA) lub jeśli odległość wynosi 32 (aA)

• Ponowne użycie zmiennych całkowitych, które nie są już używane jako zmienne boolowskie.

• Rekurencyjne wywoływanie funkcji z tym samym łańcuchem w celu przetworzenia go i uniknięcia drugiej pętli for.

• Ustaw wartości BOOL na logikę ustawiania innej zmiennej. (np. bool = i = 5;) wybić oba jednym kamieniem.

• Ternary puste - prawdziwe nadużycie exploitów. (GCC)

Czytelny format:

i,j,k,m,n;
f(char*a){
    if((a[i/12]-"AEIOUY"[i++%6])%32==0)
        k=n=24-(i%12);
    else
        if(k&&!n--){
            m=j=(i-13)/12;
            i=0;
            for(;i<j*2;)
               printf("%c%c",a[i%j],(i==j-1)?32:0),i++;
            printf(" %s", a);
        }
    m?:f(a);
}

Powalono 10 bajtów dzięki Keyu Ganowi (w komentarzach)

MATL, 33 bajty

'(^.*?[yY%s]+)'13Y2YD'$1 $1 $1'YX

Wypróbuj w MATL Online

Wyjaśnienie

                % Implicitly grab input as a string
'(^.*?[yY%s]+)' % Push this string literal (regex pattern)
13Y2            % Push the string literal 'AEIUOaeiuo'
YD              % Replace the '%s' in the string with 'AEIUOaeiuo'
'$1 $1 $1'     % Push the string literal to use for replacement which repeats
                % the first match 3 times
YX              % Perform regular expression matching and replacement
                % Implicitly display the result

V , 21 , 20 bajtów

é /ã[aeiouy]«“.
3ä|<

Wypróbuj online!

Wyjaśnienie:

é               " Insert a space
  /             " Jump forward too...
   ã[aeiouy]«. "   The first non-vowel after a vowel
3ä              " Make three copies of
  |             " Everything from the cursor to the first character
   <            " Delete the space we inserted

Hexdump:

00000000: e920 2fe3 5b61 6569 6f75 795d ab93 2e0a  . /.[aeiouy]....
00000010: 33e4 7c3c                                3.|<

Alternatywna wersja (21 bajtów):

Í㨃[aeiouy]«©/± ± &

Wypróbuj online!

Wykorzystuje to śmieszną kompresję wyrażeń regularnych i wciąż udaje mu się wyrzucić tyłek z innych języków golfowych. Dla porównania jest to około dwóch trzecich długości zwykłej wersji „nieskompresowanej”, a mianowicie:

:%s/\v\c(.{-}[aeiou]).*/\1 \1 &

Wyjaśnienie:

Í                               " Replace on every line:
 ã                              "   Case-insensitive
  ¨              ©              "   Capture-group 1
   <131>                        "   Any character, any number of times (non-greedy)
        [aeiouy]«               "   A vowel, repeated once or more
                  <129>         "   Followed by anything
                       /        " Replaced with:
                        ± ±     "   Capture group one twice, with spaces between
                            &   "   The whole matched pattern

Oto zrzut heksowy:

00000000: cde3 a883 5b61 6569 6f75 795d aba9 812f  ....[aeiouy].../
00000010: b120 b120 26                             . . &

Python 3 , 75 68 bajtów

lambda s:(s[:[x in"aAeEiIoOuUyY"for x in s][1:].index(0)+1]+" ")*2+s

Wypróbuj online!

Wyjaśnienie:

Działa, generując wartość logiczną dla każdego znaku w ciągu wejściowym na podstawie tego, czy jest to samogłoska, i znajdując najniższy indeks 0pierwszej nie-samogłoski (z wyłączeniem pierwszego znaku). Zwraca podciąg do tego indeksu dwa razy, oddzielone spacjami i ciągiem oryginalnym.

Clojure, 192 188 181 bajtów

(fn[p](let[[f] p v #(#{\a \e \i \o \u \y}(Character/toLowerCase %))[q r](split-with(if(v f)v #(not(v %)))p)[w _](split-with v r)as #(apply str %)](str(as(repeat 2(str(as q)(as w) \ )))p)))

-4 bajty przez wstawianie first-sp-pred(ups).

-7 bajtów poprzez usunięcie niektórych brakujących spacji

To było o wiele trudniejsze, niż się spodziewałem! Ręcznie parsuję ciąg ... ponieważ wciąż nie udało mi się nauczyć regex: /

Informacje na temat awarii znajdują się w kodzie golfowym:

(defn repeat-prefix-cons [phrase]
  (let [[first-letter] phrase ; Get first letter

        ; Function that checks if a lowercased character is a part of the vowel set
        vowel? #(#{\a \e \i \o \u \y} (Character/toLowerCase %))

        ; cons(onant)? Negation of above
        cons? #(not (vowel? %))

        ; Decide how to split it depending on if the first character is a vowel
        first-sp-pred (if (vowel? first-letter) vowel? cons?)

        ; Split off the first chunk of cons/vowels
        [pre1 r] (split-with first-sp-pred phrase)

        ; Split off the rest of the vowels
        [pre2 r2] (split-with vowel? r)

        ; Shortcut function that turns a list into a string (Basically (join "" some-list-of-strings) )
        as #(apply str %)]

    (str ; ... then concat the prefix in front of the original phrase, and return
      (as ; ...then turn it back into a string since "repeat" returns a list... ^
        (repeat 2 ; ... then repeat it twice (shame Clojure doesn't have string multiplication)... ^
                (str (as pre1) (as pre2) \ ))) ; Concat the 2 prefix parts together with an space at the end... ^
      phrase)))

Python 3 , 101 96 bajtów

s=input()
v=i=0
for c in s:
 w=c in'aAeEiIoOuUyY'
 if v*~-w:break
 v=w;i+=1
print(s[:i],s[:i],s)

Wypróbuj online!

rozwiązanie niebędące wyrażeniem regularnym

Skomentowano:

s=input()
a='aAeEiIoOuUyY'
v=i=0
for c in s:          # for each character in the string
 w=c in a            # w = True if the character is a vowel, else false
                     # true is equivalent to 1  and false to zero
                     # v*(w-1) evaluates only to true (-1 in this case) if v=1 (last character was a vowel) and w=0 (current character is not a vowel)
 if v*(w-1):break    # if so, break the loop
 v=w;i+=1            # increase the counter and set v to w
print(s[:i],s[:i],s)

Ohm , 19 bajtów (CP437), niekonkurujące

Nowy język i jako taki musiałem dodać kilka nowych funkcji, aby ten działał, co niestety sprawia, że ​​jest on niekonkurencyjny (ponieważ luki).

≡┬üC▓αy_ε;TF«u├DQüj

Wyjaśnienie:

≡┬üC▓αy_ε;TF«u├DQüj     Main wire, arguments: s

≡                       Triplicate input
 C                    Push input, all lowercase with concatenated space character
    ▓    ;              Map string into an array with...
     αy_ε                 Boolean: is element a vowel?
          TF«u          Find first occurrence of [true, false]
              ├D        Slice input up to that index and duplicate it
                Q       Reverse stack
                 üj     Join on spaces, implicitly print

PHP, 69 65 53 bajtów

<?=preg_filter("#.*?[aeiouy]+#i","$0 $0 $0",$argn,1);

wymaga PHP 5.3 lub nowszego. Uruchom jako potok z -Flub wypróbuj niektóre wersje online .

Zapisano 4 bajty (i naprawiono kod) z wyrażeniem regularnym skradzionym z @aross;
10 więcej z preg_filterzamiast preg_matchi -F
a dwie z ulepszonym regex.

75 81 bajtów dla wersji innej niż wyrażenia regularne:

for(;$c=$argn[$i++];)($k+=$k^!trim($c,aeiouyAEIOUY))>1?:$w.=$c;echo"$w $w $argn";

wymaga PHP 5 lub nowszego; wymienić ?:ze ?1:dla starszych PHP. Biegnij z-nR

Awaria

for(;$c=$argn[$i++];)       // loop $c through input characters
    ($k+=$k^!                   // 2. !$k and vowel or $k and not vowel: increment $k
        trim($c,aeiouyAEIOUY)   // 1. strip vowels -> vowel=false, non-vowel=true
    )>1                         // 3. if $k>1
    ?                           // do nothing
    :$w.=$c;                    // else append $c to $w
echo"$w $w $argn";          // output

R, 49 bajtów

sub("(.*?[aeiouy]+)","\\1 \\1 \\1",scan(,""),T,T)

Zastąpienie oparte na regeksie, dopasuj wszystko, aż nie będzie samogłoski, przechwyć i zamień je 3 razy.

scanpoczekaj na doubledane wejściowe typu, aby powiedzieć charactertypowi, że musimy podać dwa argumenty, pierwszy to domyślny, pusty ciąg dla stdin, a dla drugiego ocena R pozwala na użycie tylko, cponieważ nie jest dwuznaczna characterw tym kontekście.

Toznacza TRUEi zapisuje trochę znaków jako 4 i 5 parametr, aby podpowiedzieć, aby zignorował wielkość liter i użył PCRE (chciwość nie jest taka sama ze składnią regex R)

4 bajty zapisane dzięki uprzejmości Sumner18 wraz z linkiem Tio do uruchomionego kodu

Java 8, 147 140 bajtów

Gra w golfa:

import java.util.regex.*;s->{Matcher m=Pattern.compile("([^aeiouy]*[aeiouy]+)",2).matcher(s);m.find();return m.group()+" "+m.group()+" "+s;}

Nie golfowany:

import java.util.regex.*;

public class LaLaLandNoWaitMooMooMoonlight {

  public static void main(String[] args) {
    for (String[] strings : new String[][] { { "Land", "La La Land" }, { "Moonlight", "Moo Moo Moonlight" },
        { "queueing", "queuei queuei queueing" }, { "This isn't a single word.", "Thi Thi This isn't a single word." },
        { "It's fun to play golf", "I I It's fun to play golf" }, { "Ooo", "Ooo Ooo Ooo" },
        { "I'm okay", "I I I'm okay" }, { "Hmm, no. There will be at least one vowel, but it can be anywhere.",
            "Hmm, no Hmm, no Hmm, no. There will be at least one vowel, but it can be anywhere." } }) {
      final String input = strings[0];
      final String expected = strings[1];
      final String actual = f(s -> {
        java.util.regex.Matcher m = java.util.regex.Pattern.compile("([^aeiouy]*[aeiouy]+)", 2).matcher(s);
        m.find();
        return m.group() + " " + m.group() + " " + s;
      } , input);
      System.out.println("Input:    " + input);
      System.out.println("Expected: " + expected);
      System.out.println("Actual:   " + actual);
      System.out.println();
    }

  }

  private static String f(java.util.function.Function<String, String> function, String input) {
    return function.apply(input);
  }
}

Uwaga: literał 2w kodzie to wartość java.util.regex.Pattern.CASE_INSENSITIVE.

C, 123 bajty

#define v(x)while(x strchr("AEIOUY",*s&95))++s;
a;f(s,t)char*s,*t;{t=s;v(!)v()a=*s;*s=0;printf("%s %s ",t,t);*s=a;puts(t);}

Zadzwoń jako:

main(){char s[] = "queueing"; f(s);}

Pyke , 22 bajty

l1~V\y+L{$0R+f2<ssDQdJ

Wypróbuj online!

Jest to 4 bajty dłuższe niż powinno być, gdybym wdrożył krótszy sposób uzyskiwania samogłosek, w tym y.

Siatkówka, 24 bajty

i1`.*?[aeiouy]+
$0 $0 $0

Wypróbuj online

Python 3 , 130 102 bajtów

w=input();a='';v=0
for i in w:
	if i in 'aeiouyAEIOUY': v=1
	elif v:
		break
	a+=i
a+=' ';print(a*2+w)

Wypróbuj online!

Nie używa żadnej funkcji i żadnych bibliotek zewnętrznych! (Chyba że drukowanie i dane wejściowe są liczone jako funkcje, które pełnią).

Działa, sprawdzając, czy wydostaje się ze spółgłosek na początku tytułu do „strefy samogłoskowej”. Jeśli znajduje się w „strefie samogłosek” i wykrywa spółgłoskę, drukuje tytuł.

Zaoszczędź 28 bajtów dzięki @LliwTelracs

MATLAB / Octave, 58 51 bajtów

7 bajtów zapisanych dzięki @HughNolan

@(x)regexprep(x,'(^.*?[aeiouyAEIOUY]+)','$1 $1 $1')

Tworzy anonimową funkcję o nazwie, ansktórą można wywołać przekazując do niej ciąg znaków:ans('Land')

Demo online

W celu zapewnienia zgodności z MATLAB-em $0należy zastosować zamiast $1powyższej funkcji.

C (gcc) , 111 110 bajtów

*d="AEIOUYaeiouy";b;f(char*a){b=strcspn(a,d);write(printf(" "),a,write(1,a,b+strspn(a+b,d)));printf(" %s",a);}

Wypróbuj online!

To właśnie wykorzystuje funkcje biblioteczne strspn()i strcspn()i wykorzystuje kolejność gcc ocenia parametry funkcyjne. Nieco mniej golfa

*d="AEIOUYaeiouy";b;
f(char*a){
  b=strcspn(a,d);
  write(printf(" "),a,write(1,a,b+strspn(a+b,d)));
  printf(" %s",a);
}

Dzięki @gastropner za -1.

Pyth - 24 bajty

jd[Ke:Q"^.*?[aeiou]+"1KQ

Pakiet testowy .