Untuk keperluan tantangan ini, sebuah polyphthong didefinisikan sebagai irisan yang berdekatan dari sebuah String, yang hanya berisi vokal, dan memiliki panjang setidaknya 2. Diberikan String yang tidak kosong sebagai input, tugas Anda adalah untuk mengeluarkan semua polyphthong yang dikandungnya. .

Misalnya, "abeoic"memiliki irisan yang berdekatan berikut ini (dipisahkan ruang):

a b e o i c ab be eo oi ic abe beo eoi oic abeo beoi eoic abeoi beoic abeoic

Menghapus yang mengandung apa pun selain vokal, atau memiliki panjang lebih kecil dari 2, kami mendapatkan poliphong yang kami inginkan:

eo oi eoi

Kiriman Anda harus mematuhi aturan berikut:

• Anda dapat memilih huruf kecil atau besar untuk I / O, tetapi case keluaran harus cocok dengan case input.

• Vokal adalah aeiou(untuk huruf kecil) dan AEIOU(untuk huruf besar). ySaya Ytidak dianggap sebagai vokal.

• Input hanya akan berisi ASCII yang dapat dicetak.

• Jika polyphthong muncul beberapa kali, Anda dapat memilih untuk hanya menghasilkan satu kali atau menampilkan semua kemunculannya.

• Format dan metode I / O yang masuk akal dibolehkan (daftar karakter juga baik-baik saja, baik untuk input maupun output).

Uji Kasus

Input -> Output (huruf kecil)

r67 ^^ () * 6536782! 87 -> []
teka-teki pemrograman dan golf kode -> []
aaand ... aku menang! -> ['aa', 'aa', 'aaa']
abeoic -> ['eo', 'oi', 'eoi']
yah eioo ala -> ['ei', 'io', 'oo', 'eio', 'ioo', 'eioo']
@yabeeeayio__e -> ['ee', 'ee', 'ea', 'io', 'eee', 'eea', 'eeea']
0ioen0aaiosnjksd -> ['io', 'oe', 'aa', 'ai', 'io', 'ioe', 'aai', 'aio', 'aaio']

Perhatikan bahwa untuk kasus uji 3 dan 6, Anda dapat mengeluarkan 'aa'dan 'ee'masing - masing hanya sekali (Lihat aturan keempat).

Ini adalah kode-golf , pengiriman terpendek dalam byte di setiap bahasa menang!

Python 2 , 102 97 byte

terima kasih kepada @JonathanFrech untuk -5 byte

w=input();l=range(len(w)+1)
print{w[a:b]for a in l for b in l if b-a>1<set(w[a:b])<=set('aeiou')}

Cobalah online!

huruf kecil I / O

JavaScript (ES6), 77 75 byte

Mengharapkan input dalam huruf kecil. Menghasilkan polyphthong unik tanpa berulang.

w=>(r=[],g=s=>w.match(s)&&[...'aeiou'].map(c=>g(s+c),s[1]&&r.push(s)))``&&r

Uji kasus

let f =

w=>(r=[],g=s=>w.match(s)&&[...'aeiou'].map(c=>g(s+c),s[1]&&r.push(s)))``&&r

console.log(JSON.stringify(f("r67^^()*6536782!87")))
console.log(JSON.stringify(f("programming puzzles and code golf")))
console.log(JSON.stringify(f("aaand... i won!")))
console.log(JSON.stringify(f("abeoic")))
console.log(JSON.stringify(f("yah eioo ala")))
console.log(JSON.stringify(f("@yabeeeayio__e")))
console.log(JSON.stringify(f("0ioen0aaiosnjksd")))

Bagaimana?

Kami secara rekursif membangun pohon dari semua kemungkinan polyphthong, memangkas cabang segera setelah simpul saat ini tidak terkandung dalam input lagi, dan menyimpan semua node yang cocok minimal 2 karakter.

w => (                      // given the input w
  r = [],                   // r = array of results
  g = s =>                  // g = recursive function taking s
    w.match(s) &&           // if w contains s:
    [...'aeiou'].map(c =>   //   for each vowel c:
      g(s + c),             //     do a recursive call with s + c
      s[1] &&               //     if s is at least 2-character long:
      r.push(s)             //       push it into r
    )                       //   end of map()
)``                         // initial call to g() with s = ''
&& r                        // return r

Retina , 23 20 byte

M!&`[aeiou]+
r!&`..+

Cobalah online!

Ini mencetak semua kemunculan polyphthong.

Penjelasan

Retina memang memiliki cara untuk mendapatkan semua pertandingan yang tumpang tindih , tetapi apa artinya ini adalah bahwa ia akan mencari satu pertandingan dari setiap posisi. Jadi jika ada beberapa pertandingan dari posisi yang sama, ini hanya akan mengembalikan salah satunya. Satu-satunya cara untuk benar-benar mendapatkan semua pertandingan yang tumpang tindih adalah menggunakan fitur ini dua kali, sekali mencocokkan dari kiri ke kanan dan sekali dari kanan ke kiri (sehingga kami pertama-tama mendapatkan kecocokan terpanjang dari setiap posisi awal yang memungkinkan, dan kemudian kami juga mendapatkan semua kecocokan untuk posisi akhir yang mungkin).

Jadi program yang sebenarnya:

M!&`[aeiou]+

Dapatkan semua vokal yang tumpang tindih. Apa ini sebenarnya berarti untuk mendapatkan semua sufiks dari semua vokal berjalan.

r!&`..+

Sekarang dapatkan semua awalan dengan panjang minimal 2, dengan mencocokkan dari kanan ke kiri. Ini Mtersirat di sini, karena ini adalah baris terakhir dari program.

QuadS , 20 + 1 = 21 byte

⊃,/⍵
[aeiou]+
1↓,\⍵M

dengan obendera

Cobalah online!

Dalam urutan hal-hal yang terjadi:

[aeiou]+ pada setiap pertandingan PCRE ini

,\⍵M awalan Pertandingan

1↓ jatuhkan yang pertama (yang memiliki satu vokal)

,/⍵ merangkai semua daftar awalan

⊃ mengungkapkan (karena pengurangan /terlampir)

Ini setara dengan fungsi diam APL Dyalog:

{⊃,/⍵}'[aeiou]+'⎕S{1↓,\⍵.Match}⍠'OM'1

Cobalah online!

Mathematica, 92 byte

Select[Join@@Partition[r,i,1]~Table~{i,2,Length[r=(S=Characters)@#]},SubsetQ[S@"aeiou",#]&]&

Cobalah online!

Java (OpenJDK 8) , 138 135 134 byte

s->{String e,x="";for(int i=0,j,y=s.length();i<=y;i++)for(j=y;j>i;x+=e.matches("[aeiou]{2,}")?e+" ":"")e=s.substring(i,j--);return x;}

Cobalah online!

J , 34 29 byte

(*/@e.&'aeoui'*1<#)\\.#&,<\\.

Cobalah online!

Jelly , 9 byte

ẆḟÐḟØcḊÐf

Cobalah online!

Penjelasan

ẆḟÐḟØcḊÐf  Main Link
Ẇ          Get all (contiguous) sublists
  Ðḟ       Filter; remove all elements where the result is truthy:
 ḟ  Øc     Filter; remove all vowels; if it's truthy, then it contains non-vowels
       Ðf  Filter; keep elements where the result is truthy:
      Ḋ    Dequeue; return all but the first element (truthy if the length was at least 2)

-4 byte terima kasih kepada Tn. Xcoder

C (gcc) , 104 byte (99 byte hanya dengan huruf kecil atau huruf besar saja)

Ya, bocor - lalu apa?

#include<string.h>
a;f(char*s){*s&&f(s+1);for(a=strspn(s=strdup(s),"AEIOUaeiou");a>1;)s[a--]=0,puts(s);}

Cobalah online!

R , 137 byte

dikalahkan oleh Mark !

function(S)(x=unlist(sapply((s=el(strsplit(S,"[^aeiou]")))[nchar(s)>1],function(x)substring(x,1:(n=nchar(x)),rep(n:1,e=n)))))[nchar(x)>1]

Cobalah online!

function(S){
 s <- el(strsplit(S,"[^aeiou]"))            # split on non-vowels
 s <- s[nchar(s)>1]                         # vowel groups of length at least 2
 p <- function(x){                          # generates all substrings of inputs
  n <- nchar(x)
  start <- 1:n
  stop <- rep(n:1, n)                       # this will generate dups
  substring(x, start, stop)

 }
 q <- unlist(sapply(s, p))                  # all substrings
 q <- q[nchar(q)>1]                         # all length-2 or more substrings
}

Perl 5, 53 +1 (-p)

/[aeiou]{2,}(?{$h{$&}++})(?!)/g;$_=join$",sort keys%h

Cobalah secara Online

PowerShell , 93 88 byte

param($a)0..($b=$a.count-1)|%{($i=$_)..$b|%{-join$a[$i..$_]}}|?{$_-match'^[aeiou]{2,}$'}

Cobalah online!

Gunakan huruf kecil / huruf besar I / O (atau campuran!).

Pinjam kode dari jawaban saya pada Substring Meledak untuk mendapatkan semua substring, kemudian tarik keluar yang regex -matchterhadap ^[aeiou]{2,}$- yaitu, mereka yang setidaknya dua vokal panjangnya dan hanya vokal. String-string tersebut ditinggalkan di jalur pipa dan hasilnya tersirat.

Haskell , 148 137 130 123 118 byte

Berkat @Laikoni untuk -11 byte, lebih lanjut -7 byte dengan mengarahkan saya ke tips golf, -7 byte, dan lagi -5 byte, untuk total -30 byte kekalahan.

Ini sepertinya cocok untuk Haskell tetapi hasilnya tampaknya tidak setuju. Saya kira Haskell adalah pilihan yang baik-baik saja. Saya masih kesal dengan cara subsequenceskerjanya.

import Data.List
v=(`elem`"aeiou")
p s=nub$do x<-groupBy((.v).(&&).v)s;[y|y@(c:_:_)<-subsequences x,v c,y`isInfixOf`x]

Cobalah online!

Perl, 45 byte

local $,=" ";print $_=~/(?=([AEIOU]{2,}))/ig;

R , 120 byte, 110 byte

function(x){k=nchar(x);i=k:1;e=expand.grid(i,i[-1]);grep("^[aeiou]+$",mapply(substr,x,e[,2],e[,2]+e[,1]),v=T)}

Cobalah online!

Bagaimana itu bekerja

function(x){                  #initalize the anonymous function where input is stored in x
  k=nchar(x)                  #set k to the number of characters in x
  i=k:1                       #create vector of integers from k to 1
  e=expand.grid(i,i[-1])      #create matrix of full outer join on i 
                              #except in the second column, limit i to being less than k
  grep("^[aeiou]+$",          #search for strings made of only vowels
       mapply(substr,         #map the substring function
              x,              #with x as the string to subset
              e[,2],          #start at the second column of the outer join
              e[,2]+e[,1]     #end at the sum of the sum of the first and second columns
       ),
       v=T                    #if a match is found, return it's value
  )
}                             #by default, R returns the last line of a function

C, 119 byte

f(char*s){*s&&f(s+1);char*t,*b=calloc(strlen(s),1);for(t=b;*s==65|*s==69|*s==73|*s==79|*s==85;b[1]&&puts(b))*t++=*s++;}

Cobalah online!

JavaScript (ES6), 105 byte

s=>eval('a=[];l=i=s.length;while(i--){j=l;while(j--)if(/^[aeiou]{2,}$/.test(t=s.slice(i,j)))a.push(t)}a')

Mungkin masih banyak golf yang harus dilakukan.

let f=
s=>eval('a=[];l=i=s.length;while(i--){j=l;while(j--)if(/^[aeiou]{2,}$/.test(t=s.slice(i,j)))a.push(t)}a')
console.log(JSON.stringify(f('r67^^()*6536782!87')))
console.log(JSON.stringify(f('programming puzzles and code golf')))
console.log(JSON.stringify(f('aaand... i won!')))
console.log(JSON.stringify(f('abeoic')))
console.log(JSON.stringify(f('yah eioo ala')))
console.log(JSON.stringify(f('@yabeeeayio__e')))
console.log(JSON.stringify(f('0ioen0aaiosnjksd')))

Perl 5 , 44 +1 ( -n) = 45 byte

map{say}/(?=([aeiou]{$.}))/g while$.++<y///c

Cobalah online!

05AB1E , 10 byte

Œʒg≠}ʒžMм_

Cobalah online!

Penjelasan:

Œʒg≠}ʒžMм_  
Π           Push all substrings (abeoic => a, b, e, ..., eoi, eoc, ... abeioc)
 ʒ  }        Filter elements for which result is 1
  g≠            Push 1 if length is != 1, 0 otherwise
     ʒ       Filter elements for which result is 1
      žMм       Remove all occurences of 'aeiou' from element
         _      Negative bool: push 1 if length == 0, 0 otherwise

C, 105 75 byte

Sebuah fungsi yang menerima pointer ke input huruf kecil, dan menghasilkan string yang dipisahkan ruang pada output standar:

i;f(char*p){for(i=strspn(p,"aeiou");i>1;)printf("%.*s ",i--,p);*p&&f(p+1);}

Program uji

#include <stdio.h>

int main(int argc, char **argv)
{
    for (int i = 1;  i < argc;  ++i) {
        char *in = argv[i];
        printf("'%s' -> [ ", in);
        f(in);
        puts("]");
    }
}

Demo

'r67^^()*6536782!87' -> [ ]
'programming puzzles and code golf' -> [ ]
'aaand... i won!' -> [ aaa aa aa ]
'abeoic' -> [ eoi eo oi ]
'yah eioo ala' -> [ eioo eio ei ioo io oo ]
'@yabeeeayio__e' -> [ eeea eee ee eea ee ea io ]
'0ioen0aaiosnjksd' -> [ ioe io oe aaio aai aa aio ai io ]

Penjelasan

#include <string.h>
#include <stdio.h>

void find_polyphthongs(char *p)
{
    /* from longest polyphthong substring down to 2 */
    for (int i = strspn(p,"aeiou");  i >= 2;  --i) {
        /* print exactly [p .. p+i] */
        printf("%.*s ", i, p);
    }

    /* tail-recurse to next char */
    if (*p) {
        find_polyphthongs(p+1);
    }
}

Menggunakan GCC di Debian Linux, saya sepertinya lolos dengan deklarasi implisit yang tidak kompatibel dari strchr()dan printf(). Platform lain mungkin mengharuskan <stdio.h>dan <string.h>untuk disertakan.

Cobalah secara online (memerlukan Javascript).

APL (Dyalog) , 53 byte

Ini adalah Dfn( d irect f unctio n ). Penggunaan adalah p '<argument>'. Peringatan yang adil: ini tidak terlalu efisien dan waktu habis untuk input > 8 charactersdi TIO, tetapi bekerja secara normal ketika diberikan waktu yang cukup.

p←{(G∊⊃,/⌽,\∘⌽¨,\⌽⍵)/G←⊃,/{(,v∘.,⊢)⍣⍵⊢v←'aeiou'}¨⍳≢1↓⍵}

Cobalah online!

Terima kasih kepada @ Adám selama 16 byte!

Bagaimana itu bekerja:

Ini lebih mudah dipahami jika kita memecah kode dalam porsi yang lebih kecil:

• Bagian 1 - G←⊃,/{(,v∘.,⊢)⍣⍵⊢v←'aeiou'}¨⍳≢1↓⍵: Bagian ini dari fungsi mengambil panjang argumen (kanan) dan mencampur vektor aeiouitu sendiri berkali-kali, menghasilkan setiap kombinasi yang mungkin dari [2, length(right arg)]vokal.
• Bagian 2 - (G∊⊃,/⌽,\∘⌽¨,\⌽⍵)/: Bagian ini memeriksa elemen G yang merupakan anggota dari substring input. Ini mengembalikan vektor boolean, dengan 1's di indeks kombinasi vokal yang ada di input dan 0di mana mereka tidak. Vektor yang dihasilkan kemudian dipetakan ( /) di atas G, mengembalikan elemen yang sesuai dengan nilai-nilai yang sebenarnya.

Semuanya kemudian ditugaskan p. p←tidak termasuk dalam jumlah byte karena itu tidak perlu , itu hanya membuat penggunaan fungsi lebih mudah.

Haskell , 74 byte

f[]=[]
f(h:t)=filter(all(`elem`"aeiou"))[h:take i t|i<-[1..length t]]++f t

Cobalah online!

Ruby 2.4, 100 byte

(2..(b=(a=gets).size-1)).to_a.flat_map{|i|(0..(b-i)).to_a.map{|j|a[j,i]}}.select{|k|k=~/^[aeiou]+$/}

Ini adalah upaya pertama saya bermain golf, dan saya yakin ada banyak cara untuk mempersingkat kode ini.

Ruby , 80 byte

->s{[*0..z=s.size-2].product([*2..z]).map{|v|s[*v][/[aeiou]{2,}/]}.uniq.compact}

Cobalah online!

Pyth , 15 byte

f&tT!-T"aeoi".:

Cobalah online!

Jelas golf, saya ingin lebih baik sebelum menulis penjelasan.

T-SQL (SQL Server 2014), 281 byte

;with s as(select substring(@,1,1)C,stuff(@,1,1,'')D,1 R union all select substring(D,1,1),stuff(D,1,1,''),R+1from s where len(D)>0),c as(select R i,C w from s where C LIKE'[aeiou]'union all select R,w+C from c join s ON i+1=R where s.C LIKE'[aeiou]')select w from c where len(w)>1

Masukan diberikan oleh

declare @ varchar(max) = 'abeoic'

Menggunakan ekspresi tabel umum suntuk meledakkan input menjadi beberapa huruf yang diurutkan, dan kemudian ekspresi tabel umum kedua cuntuk menghasilkan semua kombinasi yang diurutkan, membuang non vokal.

SQL Fiddle

PHP, 139 byte

function y($s){$p=[];$l=strlen($s);for($i=2;$i<=$l;$i++)for($j=0;$j<=$l-$i;$j++)strspn($a=substr($s,$j,$i),'aeiou')==$i&&$p[]=$a;return$p;}

Demo online

function yreadable($s)
{
    $p = [];
    $l = strlen($s);
    for($i=2; $i<=$l; $i++)
        for($j=0; $j<=$l-$i; $j++)
            strspn($a=substr($s,$j,$i),'aeiou')==$i
            && $p[] = $a;
    return $p;
}

Bagaimana itu bekerja

Pilih sub-string (dimulai dengan panjang 2) yang terdiri dari karakter yang berdekatan dan bergerak di sepanjang string. Kumpulkan sub-string yang hanya berisi vokal. Ulangi dengan sub-string yang lebih panjang.

Untuk string 'abcdef' ini adalah substring yang dihasilkan dan diperiksa:

'ab','bc','cd','de','ef'
'abc','bcd','cde','def'
'abcd','bcde','cdef'
'abcde','bcdef',
'abcdef'