이 문제를 해결하기 위해 polyphthong 은 모음 만 포함하고 길이는 2 이상인 문자열의 연속 슬라이스로 정의됩니다. 비어 있지 않은 문자열을 입력으로 지정하면 포함 된 모든 polyphthong을 출력해야합니다. .

예를 들어 "abeoic"다음과 같은 연속 슬라이스 (공백으로 구분)가 있습니다.

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

모음 이외의 것을 포함하거나 길이가 2보다 작은 것을 제거하면 원하는 polyphthong이 나타납니다.

eo oi eoi

제출물은 다음 규칙을 준수해야합니다.

• I / O에 대해 소문자 또는 대문자를 선택할 수 있지만 출력 케이스는 입력 케이스와 일치해야합니다.

• 모음은 aeiou(소문자) 및 AEIOU(대문자)입니다. y/ Y는 모음으로 간주되지 않습니다.

• 입력은 인쇄 가능한 ASCII 만 포함합니다.

• polyphthong이 여러 번 나타나는 경우 한 번만 출력하거나 모든 발생을 출력하도록 선택할 수 있습니다.

• 합리적인 I / O 형식 및 방법 이 허용됩니다 (입력 및 출력 모두에 대한 문자 목록도 좋습니다).

테스트 사례

입력-> 출력 (소문자)

r67 ^^ () * 6536782! 87-> []
프로그래밍 퍼즐과 코드 골프-> []
aaand ... 내가 이겼어! -> [ 'aa', 'aa', 'aaa']
아베오 익-> [ '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']

테스트 케이스 3, 6, 당신은 출력 할 수 있습니다 'aa'및 'ee'각각 한 번만 (네 번째 규칙을 참조하십시오).

이것은 code-golf 이며 모든 언어에서 가장 짧은 바이트 제출입니다.

파이썬 2 , 102 97 바이트

-5 바이트에 대한 @JonathanFrech 덕분에

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

온라인으로 사용해보십시오!

소문자 I / O

자바 스크립트 (ES6), 77 75 바이트

소문자로 입력해야합니다. 반복하지 않고 독특한 polyphthong을 출력합니다.

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

테스트 사례

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

어떻게?

우리는 가능한 모든 polyphthong의 트리를 재귀 적으로 빌드하고, 현재 노드가 더 이상 입력에 포함되지 않는 즉시 가지를 잘라 내고 일치하는 모든 노드를 2 자 이상 저장합니다.

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

레티 나 , 23 20 바이트

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

온라인으로 사용해보십시오!

이렇게하면 모든 polyphthong이 인쇄됩니다.

설명

Retina는 모든 겹치는 일치 항목 을 가져 오는 방법 이 있지만 이것이 의미하는 바는 각 위치에서 하나의 일치 항목을 찾는 것입니다. 따라서 동일한 위치에서 여러 개의 일치 항목이있는 경우이 중 하나만 반환합니다. 겹치는 모든 일치 항목을 실제로 얻는 유일한 방법은이 기능을 두 번 사용하는 것입니다. 한 번 왼쪽에서 오른쪽으로, 한 번 오른쪽에서 왼쪽으로 일치하는 것입니다 (먼저 가능한 각 시작 위치에서 가장 긴 일치 항목을 찾은 다음 가능한 결말 위치).

실제 프로그램은 다음과 같습니다.

M!&`[aeiou]+

겹치는 모음을 모두 가져옵니다. 이것이 실제로 의미하는 것은 모든 모음 실행의 모든 ​​접미사를 얻는 것입니다.

r!&`..+

이제 오른쪽에서 왼쪽으로 일치시켜 길이가 2 이상인 모든 접두사를 가져옵니다. 는 M이 프로그램의 마지막 줄 때문에, 여기에 암시 적이다.

QuadS , 20 + 1 = 21 바이트

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

와 o플래그

온라인으로 사용해보십시오!

발생하는 순서대로 :

[aeiou]+ 이 PCRE의 각 경기에서

,\⍵M 경기의 접두사

1↓ 첫 번째 모음을 삭제하십시오 (하나의 모음이 있음)

,/⍵ 모든 접두사 목록을 연결

⊃ 공개 (감소가 /동봉 되기 때문에 )

이것은 Dyalog APL 암묵 함수와 동일합니다.

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

온라인으로 사용해보십시오!

수학, 92 바이트

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

온라인으로 사용해보십시오!

자바 (오픈 JDK 8) , 138 (135) 134 바이트

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

온라인으로 사용해보십시오!

J , 34 29 바이트

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

온라인으로 사용해보십시오!

젤리 , 9 바이트

ẆḟÐḟØcḊÐf

온라인으로 사용해보십시오!

설명

ẆḟÐḟØ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)

Mr. Xcoder 덕분에 -4 바이트

C (gcc) , 104 바이트 (99 바이트는 소문자 만 또는 대문자 만)

그래, 새는거야-뭐?

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

온라인으로 사용해보십시오!

R 137 바이트

마크에 의해 outgolfed !

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]

온라인으로 사용해보십시오!

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
}

펄 5, 53 +1 (-p)

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

온라인으로 사용해보십시오

PowerShell , 93 88 바이트

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

온라인으로 사용해보십시오!

소문자 또는 대문자 I / O (또는 혼합!)를 사용합니다.

Exploded Substrings 에 대한 내 답변에서 코드를 빌려 모든 하위 문자열 을 얻은 다음 정규 표현식 -match에 해당하는 문자열을 가져옵니다 ^[aeiou]{2,}$. 이러한 문자열은 파이프 라인에 남아 있으며 출력은 암시 적입니다.

하스켈 , 148 137 130 123 118 바이트

-11 바이트에 대한 @Laikoni 덕분에 골프 팁, 또 다른 -7 바이트 및 또 다른 -5 바이트를 가리켜 총 -30 바이트에 대해 -7 바이트를 더 얻었습니다.

이것은 Haskell에 적합한 것처럼 보였지만 결과는 동의하지 않는 것 같습니다. 나는 Haskell이 결국 괜찮은 선택이라고 생각합니다. subsequences그래도 작동 방식에 여전히 짜증이납니다 .

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]

온라인으로 사용해보십시오!

펄, 45 바이트

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

R , 120 바이트 110 바이트

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

온라인으로 사용해보십시오!

작동 원리

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 바이트

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

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 105 바이트

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

아마도 많은 골프가 남아있을 것입니다.

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 바이트

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

온라인으로 사용해보십시오!

05AB1E , 10 바이트

Œʒg≠}ʒžMм_

온라인으로 사용해보십시오!

설명 :

Œʒ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 바이트

소문자 입력에 대한 포인터를 허용하고 표준 출력에서 ​​공백으로 구분 된 문자열을 생성하는 함수 :

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

테스트 프로그램

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

데모

'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 ]

설명

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

데비안 리눅스에 GCC를 사용하여, 나는 호환되지 않는 암시 적 선언과 함께 도망하는 것 strchr()하고 printf(). 다른 플랫폼이 필요할 수 있습니다 <stdio.h>및<string.h> 포함되어야한다.

온라인으로 사용해보십시오 (Javascript 필요).

APL (Dyalog) , 53 바이트

이것은 인 Dfn( D에 irect F unctio N ). 사용법은 p '<argument>'입니다. 공정한 경고 : 이것은 input > 8 charactersTIO에서 매우 효율적이지 않고 시간 초과 되지만 충분한 시간이 주어지면 정상적으로 작동합니다.

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

온라인으로 사용해보십시오!

16 바이트의 @ Adám에 감사합니다!

작동 방식 :

코드를 작은 부분으로 나누면 이해하기 쉽습니다.

• Part 1- G←⊃,/{(,v∘.,⊢)⍣⍵⊢v←'aeiou'}¨⍳≢1↓⍵: 함수의이 부분은 (오른쪽) 인수의 길이를 사용하여 벡터 aeiou를 여러 번 혼합하여 가능한 모든 조합을 생성합니다.[2, length(right arg)] 모음의 합니다.
• Part 2- (G∊⊃,/⌽,\∘⌽¨,\⌽⍵)/:이 부분은 입력의 하위 문자열에 속하는 G의 요소를 확인합니다. 1입력에 존재하는 모음 조합의 색인에 0's'가 있고 그렇지 않은 곳에 's'를 포함 하여 부울 벡터를 반환합니다 . 그런 다음 결과 벡터가 ( /) 위에 매핑 G되어 정확한 값에 해당하는 요소가 반환됩니다.

그러면 모든 것이에 할당됩니다 p. 필요p← 하지 않기 때문에 바이트 수에 포함되지 않으므로 함수를 더 쉽게 사용할 수 있습니다.

하스켈 , 74 바이트

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

온라인으로 사용해보십시오!

루비 2.4, 100 바이트

(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]+$/}

이것이 골프를위한 첫 번째 시도이며이 코드를 단축 할 수있는 방법이 많이 있다고 확신합니다.

루비 , 80 바이트

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

온라인으로 사용해보십시오!

Pyth , 15 바이트

f&tT!-T"aeoi".:

온라인으로 사용해보십시오!

확실히 골프를 탈 수 있기 때문에 설명을 작성하기 전에 더 잘하고 싶습니다.

T-SQL (SQL Server 2014), 281 바이트

;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

에 의해 입력

declare @ varchar(max) = 'abeoic'

공통 테이블 표현식 s을 사용 하여 입력을 정렬 된 개별 문자로 분리 한 다음 두 번째 공통 테이블 표현식 c을 사용하여 모든 정렬 된 조합을 생성하고 모음이 아닌 것을 버립니다.

SQL 바이올린

PHP, 139 바이트

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

온라인 데모

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

작동 원리

인접한 문자로 구성된 하위 문자열 (길이 2로 시작)을 선택하고 문자열을 따라 이동하십시오. 모음 만 포함 된 하위 문자열을 수집합니다. 더 긴 하위 문자열로 반복하십시오.

문자열 'abcdef'의 경우 다음과 같은 하위 문자열이 생성되고 확인됩니다.

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