Java 8, 172 바이트

String f(String s){String v="AEIOUaeiou",r="OboUnuIniApiIkiobounuiniapiiki",o="";for(char c:s.toCharArray()){int n=v.indexOf(c);o+=n>-1?r.substring(n*3,n*3+3):c;}return o;} 

고립되지 않음 :

String f(String s){ String v="AEIOUaeiou",r="OboUnuIniApiIkiobounuiniapiiki",o=""; for(char c:s.toCharArray()){ int n=v.indexOf(c); o+=n>-1?r.substring(n*3,n*3+3):c; } return o; } 

그리고 Alien을 다시 영어로 (171 바이트) :

String g(String s){String[] v="AEIOUaeiou".split(""),r="Obo Unu Ini Api Iki obo unu ini api iki".split(" ");for(int i=0;i<v.length;i++)s=s.replaceAll(r[i],v[i]);return s;} 

Ungolfed :

String g(String s){ String[] v="AEIOUaeiou".split(""),r="Obo Unu Ini Api Iki obo unu ini api iki".split(" "); for(int i=0;i<v.length;i++)s=s.replaceAll(r[i],v[i]); return s; } 

Tcl, 75 바이트

번역 할 문자열이 s.

string map {A Obo a obo E Unu e unu I Ini i ini O Api o api U Iki u iki} $s 

Mathematica, 128 바이트

#~StringReplace~{"a"->"obo","A"->"Obo","e"->"unu","E"->"Unu","i"->"ini","I"->"Ini","o"->"api","O"->"Api","u"->"iki","U"->"Iki"}& 

케이스 확인과 함께 IgnoreCase->True를 사용하여 더 짧은 프로그램을 얻을 수 있는지 확실하지 않습니다.

C 178 바이트

char*p[256],*a="obo\0unu\0ini\0api\0iki\0Obo\0Unu\0Ini\0Api\0Iki",*b="aeiouAEIOU";main(c){for(c=0;b[c];++c)p[b[c]]=a+4*c;for(;(c=getchar())>0;)p[c]?printf("%s",p[c]):putchar(c);} 

댓글

• 153 바이트
• @ceilingcat & c는 숫자를 byte1 byte2 byte3으로 저장하면 괜찮을 수 있습니다 … 00 00 00 ff가 있고 void 문자열을 인쇄합니다 …

C, 163 162 159 바이트

 char*t="aeiou";n,k;q(char*x){for(;*x;n<0||(*x=t[n>1?n%2?0:2:n+3])&&k>90||(*x-=32),printf("%c%.2s",*x++,n<0?"":&"bonunipiki"[2*n]))n=strchr(t,tolower(k=*x))-t;}  

댓글

• for 루프에 char*t="aeiou";를 넣으면 1 바이트가 절약됩니다.
• 144 바이트

C #, 133 121 바이트

 s=>{int i;return string.Concat(s.Select(c=>(i ="AIUEOaiueo".IndexOf(c))>-1?"OboIniIkiUnuApioboiniikiunuapi".Substring(i*3,3):c+""));}  

편집 ()

감사합니다. 🙂 실제로이 오버로드를 알고 있지만 이것을 작성할 때 완전히 잊어 버렸습니다.

 s=>string.Concat(s.Select((c,i)=>(i="AIUEOaiueo".IndexOf(c))>-1?"OboIniIkiUnuApioboiniikiunuapi".Substring(i*3,3):c+""));  

댓글

• Select(char, int) 오버로드를 사용할 수 있으므로 ‘ i 모든 것을 한 줄에 넣을 수 있습니다. s=>string.Concat(s.Select((c,i)=>(i="AIUEOaiueo".IndexOf(c))>-1?"OboIniIkiUnuApioboiniikiunuapi".Substring(i*3,3):c+""));

C, 207 202 바이트 (Cyoce 덕분에)

#include <stdio.h> #define r(c,t) case c:printf(t);continue; int main(){int c;while(~(c=getchar())){switch(c){r("a","obo")r("e","unu")r("i","ini")r("o","api")r("u","iki")default:putchar(c);}}return 0;} 

1) 나는 어떤 종류의 선언 앞에 타입을 생략하는 것을 싫어합니다

2) 사용할 수없는 코드를 넣는 것을 정말 좋아하지 않습니다 (main () 함수없이)

사용법 :

c89 cg.c -o cg; echo "Testing" | ./cg 

댓글

• PPCG에 오신 것을 환영합니다!
• @MartinEnder, ‘ 예상치 못한 일이지만 감사합니다 🙂
• (c=getchar())!= EOF는 ~(c=getchar())
• 143 바이트가 될 수 있습니다.

Swift 2.2 196 바이트

¯ \ _ (ツ) _ / ¯

골프

var r = ["a":"obo","e":"unu","i":"ini","o":"api","u":"iki"];var q={(s:String) in var o = "";for var i in s.lowercaseString.characters{o += r[String(i)] != nil ? r[String(i)]!:String(i)};print(o);} 

unGolfed

var r = ["a":"obo","e":"unu","i":"ini","o":"api","u":"iki"] var q={(s:String) in var o = "" for var i in s.lowercaseString.characters { o += r[String(i)] != nil ? r[String(i)]!:String(i) } print(o) } 

댓글

• var r = [ 필요하십니까?
• 예, 놀이터 앱에서 과제 사이에 공백을 삽입하지 않으면 ‘ 오류가 발생하고 공백을 추가하라는 메시지가 표시됩니다. . Swift는 아마도 골프에 가장 나쁜 언어 중 하나 일 것입니다.하지만 시도해 보는 것이 재미있을 것이라고 생각했습니다.
• 그리고 흥미로 웠습니다. ‘ 클로저에 변수를 할당 할 때 오류가 발생했습니다. 그래서 어깨를 으쓱하는 남자
• 네 저도 알아 차 렸습니다. 그래서 ‘ 혼란 스러웠습니다.

Perl 6 , 84 82 바이트

 {my%o=<a obo e unu i ini o api u iki>;S:i:g[<{%o.keys}>]=%o{$/.lc}.samecase($/~"a")}  

 {my%o=<a obo e unu i ini o api u iki>;S:i:g[<[aeiou]>]=%o{$/.lc}.samecase($/~"a")}  

확장 :

 # bare block lambda with implicit parameter ｢$_｣ { # create the mapping my %v = <a obo e unu i ini o api u iki>; # replace vowels in ｢$_｣ S :ignorecase :global [ <[aeiou]> ] = # replace them with: %v{ $/.lc } # change it to be the same case as what was matched, and a lowercase letter .samecase( $/ ~ "a" ) }  

사용법 :

 my &english-to-alien = {my%o=<a obo e unu i ini o api u iki>;S:i:g[<[aeiou]>]=%o{$/.lc}.samecase($/~"a")} say english-to-alien "Australia"; # Oboikistroboliniobo  

C-192 바이트

(명확성을 위해 줄 바꿈 추가)

 int c,j,b;main(){ char*f[]={"bo","nu","ni","pi","ki",""}, s[]={14,16,0,-14,-12}; while(c=getchar()){for(b=j=0;j<10;++j) {if(c=="aeiouAEIOU"[j]){c+=s[j%=5];b=1;break;}} printf("%c%s",c,f[b?j:5]);}}  

조회 테이블과 부울 스위치 만 있으면됩니다.

모음 표 (문자열)에서 각 문자를 찾습니다. 발견되면 s 표의 규칙에 따라 수정합니다. 각 문자 다음에 문자열을 인쇄합니다. 모음이 발견되면 s의 값으로 수정 된 문자와 ; 모음을 찾지 못한 경우 원래 문자와 빈 문자열을 인쇄합니다.

설명

• 145 바이트

Ruby, 102 93 91 88 78 바이트

gsub(/[#{b="aeiouAEIOU"}]/){"obounuiniapiikiOboUnuIniApiIki"[b.index($&)*3,3]} 

설명 :

ruby -pe "gsub(/[#{b="aeiouAEIOU"}]/){"obounuiniapiikiOboUnuIniApiIki"[b.index($&)*3,3]}"와 같은 줄을 실행하고 다음 유형 (예 : Australia)을 실행하면 다음과 같이 출력됩니다. Oboikistroboliniobo.

매우 간단합니다. (b)에서 교체 할 모음의 색인에 따라 모든 모음을 하위 문자열로 교체하고 번역 문자열의 다음 3 자.

코멘트

• 앞뒤 따옴표가 의심됩니다 (입력에 따옴표가있는 경우 내부 이스케이프 ) 출력에서이를 실격시킬 수 있습니다. 어쨌든 b를 Regexp (/[#{b=...}/)로 변환합니다.
• p $* 공간이 불필요하다고 생각합니다.
• -p 플래그를 사용하여 추가 바이트를 저장합니다. ruby -pe 'gsub(/[#{b="aeiouAEIOU"}]/){"obounuiniapiikiOboUnuIniApiIki"[b.index($&)*3,3]}'
• 78 + 2를 계산합니다 (-pe). 71은 어떻게 얻나요?
• @NotthatCharles는이 경우 실행에 필요한 문자가 정말 중요합니까? 방금 ‘ 세지 않았습니다.

TI-BASIC, 201 197 195 바이트

Ans+" →Str1:"AEIOUaeiou→Str2:"OUIAIouiai→Str3:"bonunipiki→Str4:1→X:While X<length(Str1:inString(Str2,sub(Str1,X,1→A:5fPart(.2A→B:If A:sub(Str1,1,X-1)+sub(Str3,A,1)+sub(Str4,2B-1,2)+sub(Str1,X+1,length(Str1)-X→Str1:X+1+2(A>0→X:End:sub(Str1,1,length(Str1)-1 

다른 TI를 찾을 것이라고 생각하기 위해 -BASIC 대답은 여기에 있습니다!

어쨌든 입력은 Ans의 영어 문자열입니다.
출력은 번역 된 문자열입니다.

예 :

"HE HE prgmCDGF1A HUnu "Hello Hello prgmCDGF1A Hunullapi 

설명 :
(가독성을 위해 줄 바꿈이 추가되었습니다. 같은 줄의 여러 줄은 : 다음 코드 블록에 있습니다.)

Ans+" →Str1 ;append a space to the input string and store the result ; in "Str1" "AEIOUaeiou→Str2 ;store the upper- and lowercase vowels in "Str2" "OUIAIouiai→Str3 ;store the beginning letter of each corresponding translated ; vowel in "Str3" "bonunipiki→Str4 ;store the remaining letters of each translated vowel ; in "Str4" 1→X ;store 1 in "X" While X<length(Str1 ;loop until all English letters have been checked inString(Str2,sub(Str1,X,1→A ;get the current letter and store its index in "Str2" ; into "A" 5fPart(.2A→B ;get which translated vowel end should be used ; B ranges from 1 to 5 If A ;if the current letter is a vowel sub(Str1,1,X-1) ;extract the substring of the input before the ; current letter : +sub(Str3,A,1) ;append the translated vowel start : +sub(Str4,2B-1,2) ;append the translated vowel end : +sub(Str1,X+1,length(Str1)-X ;append the remaining substring of the input : →Str1 ;store the result of these concatenations into "Str1" X+1+2(A>0→X ;check if A>0 (if the current letter was a vowel) ; if true, increment "X" by three ; if false, increment "X" by one End sub(Str1,1,length(Str1)-1 ;remove the trailing space and store the result in "Ans" ;implicit print of "Ans" 

참고 :

• TI-BASIC은 토큰 화 된 언어입니다. 문자 수는 가 아닙니다. / em> 동일한 바이트 수

• TI-BASIC의 소문자는 2 바이트입니다. 각각.