프로그램은 문자열을 입력으로 취하고 모음의 순서를 유지하면서 자음을 반전시킵니다. 모든 문자는 소문자이므로 케이스에 대해 걱정할 필요가 없습니다. 예는 다음과 같습니다.
입력 : a test case.
자음은 여기에 있습니다 t,s,t,c,s. 그것들은 역순으로 나와야합니다. 즉 s,c,t,s,t, 사전 역전 된 문자가있는 동일한 위치로 문자열에 다시 삽입됩니다 : a sect sate.
입력 : well-done. 출력 : nedl-lowe.
reverse the consonants. 출력 : setenne sne cohtosarvr.이것이 가장 짧은 솔루션이이기는 코드 골프입니다.
Y 그것이 무엇인지에 관계없이 모음으로 간주되어야하며 반전되지 않아야합니다.
숫자, 문장 부호, 따옴표 및 기타 기호 ( @#$%^&*(){}[]\|/<>~-_+=`) 뿐만 아니라 다른 것도 입력에 나타날 수 있습니다.
답변:
O#^`[b-z-[eiouy]]
Leaky Nun 덕분에 1 바이트!
Martin 덕분에 4 바이트!
O정렬을 #의미하고 숫자 값으로 정렬하는 것을 의미합니다. 일치하는 문자는 숫자 값을 갖지 않으므로 모든 문자의 가중치는 동일합니다. 0. ^정렬 된 값의 순서를 반대로하는 것을 의미합니다. 안정적인 정렬 덕분에 값이 반대로됩니다.
-[...]수단은 외측 문자 클래스이 클래스 내부 setwise 간의 차이를 수행한다. 이것은 .NET의 일부이며 MSDN 에서 자세한 내용을 읽을 수 있습니다 .
[...&&[^...]].
<[b..z] - [eiouy]>하거나 <:Ll - [aeiouy]>설정합니다
s='';c=()
for x in input():b='{'>x not in'aeiouy'<x;s+=b*'%s'or x;c=(x,)*b+c
print s%c
따옴표로 묶은 문자열로 입력을받습니다. 입력을 반복하여 각 자음을 %sin로 바꿉니다 s. 튜플 c은 자음이 역순으로 저장됩니다. 그런 다음 문자열을 대체 서식 %s의의를 s의 자음과를 c.
자음 검사에 대한 Sp3000 덕분에 자음 나열에 4 바이트가 절약되었습니다.
Øaḟ“<1Ṛż»
e€¢œpżf¢Ṛ$
Øaḟ“<1Ṛż» Helper link. No arguments.
Øa Yield the lowercase alphabet/
“<1Ṛż» Decompress that string, yielding "oui aye".
ḟ Filter; remove the characters from the right string from the left one.
e€¢œpżf¢Ṛ$ Main link. Argument: s (string)
¢ Call the helper link, yielding the string of all consonants.
e€ Test each character of s for membership.
œp Partition s at members/consonants.
$ Combine the three links to the left into a monadic chain.
f¢ Filter by presence in the consonant string.
Ṛ Reverse the result.
ż Zipwith; interleave chunks of non-consonants and reversed consonants.
Martin과 Leaky Nun 덕분에 바이트를 절약하고 Neil에 2 바이트를 절약했습니다!
a=>a.replace(r=/(?[_aeiouy])\w/g,e=>[...a].reverse().join``.match(r)[i++],i=0)
f=
a=>a.replace(r=/(?![aeiouy])[a-z]/g,e=>[...a].reverse().join``.match(r)[i++],i=0)
;
q.onchange=q.onkeydown=q.onkeyup=function(){
o.innerHTML = "";
o.appendChild(document.createTextNode(f(q.value)));
}*{font-family:Consolas,monospace;}<input autocomplete="off" id=q>
<div id=o></div>/(?![aeiouy])[a-z]/g
/(?[_aeiouy])\w/g일?
_합니다. OP가 제자리에 유지하려고하는 기호입니다.
q.onchange=q.onkeydown=q.onkeyup=수 있습니다 q.oninput=.
FD~c{IK_#~c{)oR@(s
또는 새 버전의 경우 16 바이트 :
(for가 모든 문자열 출력을 반환하고 문자열 입력이 있으면 목록 대신 문자열을 반환하는 경우 변경)
FD~c{IK_#~c{)oR@
~c 자음이 들어 있습니다 : bcdfghjklmnpqrstvwxz
F - For i in input:
~c{I - if i in "bcdfghjklmnpqrstvwxz":
_#~c{) - filter(reversed(input), <-- in "bcdfghjklmnpqrstvwxz")
oR@ - ^[o++]
C.~[:~.<@~.@/:~"1@(,.|.)@I.@e.&'bcdfghjklmnpqrstvwxz'
어쩌면 가장 좋은 방법은 아니지만 C.순열을 사용하여 해결할 수 있기 때문에 사용하고 싶었습니다 .
f =: C.~[:~.<@~.@/:~"1@(,.|.)@I.@e.&'bcdfghjklmnpqrstvwxz'
f 'a test case'
a sect sate
f 'well-done'
nedl-lowe
f 'reverse the consonants'
setenne sne cohtosarvr
C.~[:~.<@~.@/:~"1@(,.|.)@I.@e.&'...' Input: s
'...' The list of consonants
e.&'...' Generate a boolean mask where an index is true
if the char at that index in s is a consonant
I.@ Get a list of the true indices
( |.)@ Reverse that list
(,. )@ Join the original and reversed list as columns
/:~"1@ Sort each row of that 2d list
~.@ Take the distinct values in each row
<@ Box them
[:~. Take the distinct boxes - Now represents the
permutation needed to solve this in cycle notation
C.~ Permute s according the cycles and return
tt2Y211Y2'y'hX-m)P5M(
@Luis 덕분에 1 바이트 절약
불행히도 이것의 가장 긴 부분은 자음 ( 2Y211Y2'y'hX-) 목록을 얻는 것 입니다.
설명
% Implicitly grab the input
tt % Duplicate twice
2Y2 % Grab the pre-defined list of all lower-case letters
llY2 % Grab the pre-defined list of lower-case vowels (excluding 'y')
'y'h % Add 'y' to the list of vowels
X- % Find the set difference between these two lists (the consonants)
m % Create a boolean array the size of the input that is true for all consonants
) % Use this as an index to grab all consonants
P % Reverse the order of the consonants
5M % Get the boolean array again
( % Re-assign the flipped consonants with the original consonant locations
% Implicitly dislpay the result
tt2Y211Y2'y'hX-m)P5M(
$_=<>;$r=qr/(?![eiouy])[b-z]/;@a=/$r/g;s/$r/pop@a/ge;print
-0777플래그 로 실행하면 페널티가 +4로 , 펄을 줄 바꿈 모드로 설정하여 줄 바꿈을 올바르게 처리합니다.
STDIN을 통한 입력을 승인하고 STDOUT에 인쇄합니다.
$_=<>; Read the input
$r=qr/(?![eiouy])[b-z]/; Save the regex; we'll be using it twice
@a=/$r/g; Store all the consonants in an array
s/$r/pop@a/ge; Replace each consonant with the final value in the array and pop
print Output the result
s=>s.split(/([^\W\d_aeiouy])/).map((c,i,a)=>i&1?a[a.length+~i]:c).join``
분할 /([^\W\d_aeiouy])/하면 자음이 배열의 홀수 번호 항목으로 떨어집니다. 그런 다음 해당 항목을 배열 끝부터 다시 계산하여 해당 항목을 전환하고 결과를 함께 결합하면 충분합니다.
@Neil에서 놀라운 20 % 절약 편집
파티에 늦었지만 모든 자바 사람들이 뭔가를 놓친 것 같습니다.
a=>a.replace(r=/[^\W\d_aeiouy]/g,_=>c.pop(),c=a.match(r))테스트
f=a=>a.replace(r=/[^\W\d_aeiouy]/g,_=>c.pop(),c=a.match(r))
function test() {
var i=I.value
O.textContent=f(i)
}
test()#I { width:90% }<input id=I oninput="test()" value="reverse the consonants."><pre id=O></pre>c.pop().
저장 (37)는 덕분에 바이트 @manatwork 의 도움을. ;-)
$_=<>;@b=@a=/[^\Waeiou]/g;print$_~~@b?pop@a:$_ for/./g@Lynn Python 솔루션을 Perl로 번역
g”힘이 도움이 될 것입니다 : @s=split//;→ @s=/./g;및 for(@s){push@a,$_ if(/[^\Waeiou]/);}→ @a=/[^\Waeiou]/g;. 내 말은, m//와 g수정 반환 모든 일치의 배열을.
@b=@a=…. 또한 for블록에 단일 명령문이 ;있으면 (이 경우 뒤에 필요하지 않음) 명령문 수정 자로 변환하고 구분 기호를 절약 할 수 print$_~~@b?pop@a:$_ for/./g있습니다. (예, 죄송합니다, 그리워했습니다 : @s변수에 값 을 저장할 필요가 없습니다 .)
!s=s[flipud(i)]=s[i=find(c->'}'>c∉"aeiouy"<"$c",s)]이것은 문자 배열 을 입력으로 취하고 그 자리에서 자음을 뒤집습니다. 온라인으로 사용해보십시오!
소문자 자음 검사에 대한 크레딧은 @ Sp3000으로 이동합니다.
i=find(...,s)술어 ... 가 true를 리턴 하고 변수 i에 저장하는 의 모든 인덱스를 생성합니다 .
c->'}'>c∉"aeiouy"<"$c"세 가지 테스트를 수행하고 모두 긍정적 인 경우에만 true를 반환 합니다 .
'}'>c문자 c 가 { 앞에 오는지 확인합니다 .
"aeiou"문자열 c 가 a 뒤에 오는지 확인합니다 .
c∉"aeiouy"c 가 모음이 아닌지 확인합니다 .
마지막으로 s[i]모든 자음을 산출하고 i 의 반전 된 인덱스에 해당하는 s의s[flipud(i)]=s[i] 위치에 할당합니다 .
∉)을 사용 합니까?
이 도움을 주신 @ Leaky Nun 에게 감사드립니다.
char[]r(char[]s){int i=0,j=0,n=s.length;char[]o=new char[n];for(;i<n;i++){if((s[i]+"").matches("(?![eiouy])[b-z]")){o[j++]=s[i];s[i]=65;}}for(i=0;i<n;i++)if(s[i]==65)s[i]=o[--j];return s;}낡은:
s(String p){int i=0,j=0;char[]s=p.toCharArray(),o=p.toCharArray();for(;i<s.length;i++){if(((s[i]+"").matches("[aeiouy @#$%^&*(){}\\[\\]\\|/\\\\<>~\\-_+=`]")))continue;o[j++]=(s[i]);s[i]='A';}for(i=0;i<s.length;i++)if(s[i]=='A')s[i]=o[--j];return new String(s);}여기 에서 가져온 영감 ❤
String s(String p){
int i = 0, j = 0;
char[]s=p.toCharArray(),o=p.toCharArray();
for (;i<s.length;i++) {
if (((s[i]+"").matches("[aeiouy @#$%^&*(){}\\[\\]\\|/\\\\<>~\\-_+=`]"))) continue;
o[j++] = (s[i]); // Store the consonant into o
s[i] = 'A'; // Put a special character in its place
}
for (i=0;i<s.length;i++)
if (s[i] == 'A') // If special character
s[i] = o[--j]; // Put back the consonant in reverse order
return new String(s);
}0특수 문자로 사용할 수 있으며 ( null문자열에없는 것으로 보장됨) 다음을 통해 확인할 수 있습니다 s[i]<1(음수 문자 없음)
char당신에게 조각 을 할 것 입니다. :)
새로운 답변 :
az=function(x){
y=strsplit(x, NULL)[[1]]
a=regexpr("[bc-df-hj-np-tv-z]", y)
y[a==1]=rev(y[a==1])
paste(y, collapse="")
}
문자열을 x로 사용
az("reverse the consonants")
[1] "setenne sne cohtosarvr"
아래의 오래된 응답 (110 바이트)은 저의 형태가 좋지 않아서 자음을 뒤집 었습니다.
xrev=function(x){y=rev(strsplit(x, NULL)[[1]])
paste(y[is.na(match(y, c("a", "e","i","o","u","y")))], collapse="")}
def f(a):c='bcdfghjklmnpqrstvwxz';b=[x for x in list(a[::-1])if x in c];[b.insert(x,a[x])for x in range(len(a))if a[x]not in c];return''.join(b)
먼저 자음의 반대 목록을 작성한 다음 다른 각 문자를 원래 색인에 다시 삽입합니다.
언 골프 :
s = 'well-done'
reverse = list(s[::-1])
consonants = [i for i in reverse if i in 'bcdfghjklmnpqrstvwxz']
for x in range(len(s)):
if s[x] not in 'bcdfghjklmnpqrstvwxz':
consonants.insert(x,s[x])
print(''.join(consonants))
k="bcdfghjklmnpqrstvwxz";f c((r:q),s)=if c`elem`k then(q,r:s)else(r:q,c:s);f c("",s)=("",c:s);g s=snd$foldr f(filter(`elem`k)s,"")s
최신 정보
@atlasologist의 솔루션을 사용하면 쌍 대신 자음 목록 만 필요하다는 것을 알았습니다.
언 골프
consonants = "bcdfghjklmnpqrstvwxz"
-- Combining function (right fold, improved)
f :: Char -> (String, String) -> (String, String)
f c ((r:rest), s) = if c `elem` consonants then (rest, r:s) else (r:rest, c:s)
f c ("", s) = ("", c:s)
transform :: String -> String
transform s = snd $ foldr f (filter (`elem` consonants) s, "") s
main = do
line <- getLine
putStrLn . transform $ line
낡은
c="bcdfghjklmnpqrstvwxz";n c(a@((f,t):q),s)=if c==f then(q,t:s)else(a,c:s);n c([],s)=([],c:s);g s=let z=filter(`elem`c)s in snd$foldr n(zip (reverse z)z,"")s
자음 쌍의 목록을 만든 다음 해당 목록을 사용하여 각 자음을 대체하는 문자열을 안내합니다.
약간 원시적이지만 대답을 먼저 보지 않고 이것을 파악하고 싶었습니다. :)
if ... then ... else. b) f는 중위 연산자로 작성하는 것이 좋습니다 %. c)의 내측에는 쌍 않아도 ()에서 ((r:q),s). d) 대체 ""와 _의 2 라인 f. 전체적으로 ( k동일하게 유지됨) : c%(r:q,s)|c`elem`k=(q,r:s)|1<2=(r:q,c:s);c%(_,s)=("",c:s);g s=snd$foldr(%)(filter(`elem`k)s,"")s.
s-lang이 더 이상 마지막 인수 괄호를 필요로하지 않기 때문에 1 바이트를 절약했습니다.
r[(?![aeiouy])\w
나는 문자열 조작 골프 언어로 작업하기 시작했습니다 (지금은 이것을하고 싶었습니다).
r주어진 정규 표현식 문자 매 처로 문자열을 되돌립니다 (정규 인수가 제공되지 않으면 기본값은 .)[ 선택적 정규식 인수를 시작합니다. r(?![aeiouy])\w 정규 표현식은 y를 제외한 자음 문자와 일치합니다 (불행히도 JavaScript는 문자 클래스 빼기를 허용하지 않습니다)]일반적으로에 대한 선택적 정규 표현식 인수를 종료 r하지만 마지막 함수이자 마지막 인수이므로 필요하지 않습니다.입력 'this is a string of- stuff.'
s=input('','s');si=regexp(s,'[b-df-hj-np-tv-xz]');s(si)=s(flip(si))
생산 s = ffit is a fgnirt os- ssuht.
si입력 문자열에서 자음의 인덱스입니다. 마지막 문은 인덱싱을 통해 해당 문자를 동일한 문자로 바꾸지 만 반대 순서로 바꿉니다.
-. 질문은 구두점이 유효한 입력이므로 무시해야한다고 말합니다. 또한 input('')변수를 입력으로 받아 들일 수 없으므로 입력을 잡거나 익명 함수를 작성하는 데 사용해야 합니다.
flip문자열을 뒤집는 데 사용할 수 있습니다 .
ansMatlab 콘솔에 기본 입력이 할당되어 있기 때문에을 사용할 수 있습니까?
s=input('')익명의 기능으로이 작업을 수행 하거나 어떻게 해야합니까@(s)
-join(($a=$args|% t*y)|%{if($_-in($c=$a-match'[^\W\d_aeiouy]')){$_=$c[--$i]};$_})덜 골프 :
$a = $args|% toCharArray
$consonants = $a-match'[^\W\d_aeiouy]'
$result = $a|%{if($_-in$consonants){$_=$consonants[--$i]};$_}
-join($result)$i=0;-join($args|% t*y|%{if($_-match'[^\W\d_aeiouy]'){$c=,$_+$c;$_="{$i}";$i++};$_})-f$c해결책:
{x[w]:x(|)w:(&)max x=/:.Q.a except"aeiouy";x}
설명:
자음의 색인을 찾아 반대로 자음으로 바꾸십시오.
{x[w]:x reverse w:where max x=/:.Q.a except "aeiouy";x} / ungolfed
{ ; } / two-statement lambda
.Q.a except "aeiouy" / alphabet (a..z) except vowels
x=/: / equals each-right (returns boolean lists where input is each a consonant)
max / 'or' the results together
where / indices where results are true
w: / save in variable w
reverse / reverse this list
x / index into input at these indices
x[w]: / assign values to x at indices w
x / return x
노트:
자음 목록을 작성하는 세 가지 방법이 있습니다. 솔루션의 하나는 대안보다 약간 낫습니다.
"bcdfghjklmnpqrstvwxz" 22 자 (가장 지루한).Q.a _/0 3 6 11 16 19 21 자 (kinda cool, 각 인덱스 삭제).Q.a except"aeiouy" 19 자 (두 번째로 지루한)def C:"bcdfghjklmnpqrstvwxz";. as$s|[("^","")as$p|[match("([\($p)\(C)]+)";"g").captures[].string]]|.[1]|=(reduce map(length)[]as$l({s:add|explode|reverse|implode,r:[]};.r+=[.s[0:$l]]|.s=.s[$l:])|.r)|if$s[0:1]|inside(C)then[.[1,0]]else . end|transpose|map(add)|add
설명
def consonants:"bcdfghjklmnpqrstvwxz";
. as $s
| [ ("^","") as $p # parse string onto non-consonant
| [match("([\($p)\(consonants)]+)";"g").captures[].string]] # and consonant groups
| .[1] |= (
reduce map(length)[] as $l ( # build new for consonant groups
{s:add|explode|reverse|implode,r:[]} # by adding groups from reversed string
; .r+=[.s[0:$l]] | .s=.s[$l:]
)
|.r
)
| if $s[0:1]|inside(consonants) then [.[1,0]] else . end # put groups into proper order for merge
| transpose | map(add) | add # merge groups into final string
샘플 런
$ jq -MRr 'def C:"bcdfghjklmnpqrstvwxz";. as$s|[("^","")as$p|[match("([\($p)\(C)]+)";"g").captures[].string]]|.[1]|=(reduce map(length)[]as$l({s:add|explode|reverse|implode,r:[]};.r+=[.s[0:$l]]|.s=.s[$l:])|.r)|if$s[0:1]|inside(C)then[.[1,0]]else . end|transpose|map(add)|add' input
a sect sate
nedl-lowe
setenne sne cohtosarvr
s->s.format(s.replaceAll("[^\\W\\d_aeiouy]","%s"),s.chars().mapToObj(c->""+(char)c).filter(c->c.matches("[^\\W\\d_aeiouy]")).reduce("",(x,y)->y+x).split(""))온라인으로 사용해보십시오!
참고 : 컴파일러 경고를 stderr에 인쇄합니다.
설명:
s-> // Lambda function
s.format( // Format a string using the given arguments
s.replaceAll("[^\\W\\d_aeiouy]","%s"), // Generate the format string by replacing all consonants with "%s"
s.chars() // Stream the characters of the input string s
.mapToObj(c->""+(char)c) // Map characters back to strings
.filter(c->c.matches("[^\\W\\d_aeiouy]")) // Filter out vowels and symbols
.reduce("",(x,y)->y+x) // Build the string of consonants in reverse
.split("") // Turn into an array of single-char strings (varargs abuse)
) // Implicit return of the formatted string거짓말하지 않을게, 나의 유일한 목표는 이 대답 을이기는 것이었다
-[...]망막에 특정하거나 특정 .NET 정규 표현식에 또는 내가 지금까지 간과 한 것이 일반적인 정규식 기능입니다?