Java 8, 172 Bytes

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

ungolfed:

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

Und Alien zurück zu Englisch (171 Bytes):

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 Bytes

Zu übersetzende Zeichenfolge befindet sich in der Variablen 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 Byte

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

Nicht sicher, ob ein kürzeres Programm erhalten werden kann, wenn IgnoreCase->True zusammen mit einer Fallprüfung verwendet wird.

C 178 Bytes

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

Kommentare

• 153 Bytes
• @ceilingcat & c kann in Ordnung sein, wenn die Nummer als Byte1 Byte2 Byte3 gespeichert wird … Zum Beispiel 255 im Speicher als ff 00 00 00, aber wenn es den anderen Endian für 255 gibt Wir haben 00 00 00 ff und drucken die leere Zeichenfolge …

C, 163 162 159 Bytes

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

Kommentare

• Wenn Sie char*t="aeiou"; in die for-Schleife einfügen, wird 1 Byte gespeichert
• 144 Bytes

C #, 133 121 Bytes

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

Bearbeiten (dank milk)

danke 🙂 Ich kenne diese Überladung tatsächlich, habe sie aber beim Schreiben irgendwie komplett vergessen.

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

Kommentare

• Sie können die Überladung Select(char, int) verwenden, damit Sie ‚ nicht i und kann alles in eine Zeile setzen. s=>string.Concat(s.Select((c,i)=>(i="AIUEOaiueo".IndexOf(c))>-1?"OboIniIkiUnuApioboiniikiunuapi".Substring(i*3,3):c+""));

C, 207 202 Bytes (dank 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) Ich hasse es, vor jeder Art von Deklaration den Typ wegzulassen.

2) Ich mag es nicht, unbrauchbaren Code (ohne main () -Funktion) zu setzen.

Verwendung:

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

Kommentare

• Willkommen bei PPCG!
• @MartinEnder, das ‚ ist unerwartet … aber danke 🙂
• (c=getchar())!= EOF kann zu ~(c=getchar())
• 143 Bytes werden

Swift 2.2 196 Bytes

¯ \ _ (ツ) _ / ¯

Golf

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

Kommentare

• Sind die Leerzeichen in var r = [ notwendig?
• Ja, in der Spielplatz-App, wenn Sie ‚ kein Leerzeichen zwischen eine Aufgabe setzen, wird ein Fehler angezeigt und Sie werden aufgefordert, Leerzeichen hinzuzufügen . Swift ist wahrscheinlich eine der schlechtesten Sprachen zum Golfen, aber ich dachte, es würde Spaß machen, es zu versuchen.
• Und es war interessant, dass es mir ‚ nicht gegeben hat Fehler beim Zuweisen einer Variablen zu einem Abschluss. Daher der achselzuckende Mann. Ja, das habe ich auch bemerkt. Deshalb war ich ‚ verwirrt.

Perl 6 , 84 82 Byte

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

Erweitert:

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

Verwendung:

 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 Bytes

(Zeilenumbrüche zur Verdeutlichung hinzugefügt)

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

Nur Nachschlagetabellen und ein boolescher Schalter.

Suchen Sie jeden Buchstaben in der Vokaltabelle (Zeichenfolge). Wenn gefunden, ändern Sie es gemäß der Regel in Tabelle s. Drucken Sie jedes Zeichen gefolgt von einer Zeichenfolge: Wenn ein Vokal gefunden wurde, drucken Sie das Zeichen, das durch den Wert in s geändert wurde, gefolgt vom Rest der in Tabelle ; Wenn kein Vokal gefunden wurde, drucken Sie das Originalzeichen und eine leere Zeichenfolge.

Kommentare

• 145 Bytes

Ruby, 102 93 91 88 78 Bytes

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

Erläuterung:

Führen Sie die Zeile wie ruby -pe "gsub(/[#{b="aeiouAEIOU"}]/){"obounuiniapiikiOboUnuIniApiIki"[b.index($&)*3,3]}" aus. Geben Sie als Nächstes beispielsweise Australia ein, das ausgegeben werden soll: Oboikistroboliniobo.

Es ist ziemlich einfach, alle Vokale durch einen Teilstring zu ersetzen, der auf dem Index des zu ersetzenden Vokals in (b), Zeiten 3 und 3 basiert die nächsten 3 Zeichen in der Übersetzungszeichenfolge.

Kommentare

• Ich vermute die führenden und nachfolgenden Anführungszeichen (und interne Escapezeichen, wenn die Eingabe Anführungszeichen enthält ) in der Ausgabe kann dies disqualifizieren. Sie können jedoch zwei Bytes speichern, indem Sie die Zuweisung von b in den Regexp (/[#{b=...}/).
• Ich denke, das Leerzeichen p $* ist unnötig
• Verwenden Sie das Flag -p, um zusätzliche Bytes zu speichern. ruby -pe 'gsub(/[#{b="aeiouAEIOU"}]/){"obounuiniapiikiOboUnuIniApiIki"[b.index($&)*3,3]}'
• Ich zähle 78 + 2 (-pe). Wie kommt man zu 71?
• @NotthatCharles Sind die für die Ausführung benötigten Zeichen in diesem Fall wirklich wichtig? Ich habe sie nur nicht ‚ gezählt.

TI-BASIC, 201 197 195 Bytes

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 

Zu denken, ich würde einen anderen TI finden -BASIC Antwort hier!

Wie auch immer, die Eingabe ist eine englische Zeichenfolge in Ans.
Die Ausgabe ist die übersetzte Zeichenfolge.

Beispiele:

"HE HE prgmCDGF1A HUnu "Hello Hello prgmCDGF1A Hunullapi 

Erläuterung:
(Zur besseren Lesbarkeit hinzugefügte Zeilenumbrüche. Mehrere Zeilen derselben Zeile werden mit einem : im folgenden Codeblock.)

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" 

Hinweise:

• TI-BASIC ist eine tokenisierte Sprache. Die Anzahl der Zeichen entspricht not gleiche Byteanzahl.

• Kleinbuchstaben in TI-BASIC sind zwei Byte es jeweils.