Java 8, 172 bajty

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

I Alien z powrotem do angielskiego (171 bajtów):

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 bajtów

Ciąg do przetłumaczenia znajduje się w zmiennej 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 bajtów

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

Nie mam pewności, czy krótszy program można uzyskać, używając IgnoreCase->True razem ze sprawdzaniem wielkości liter.

C 178 bajtów

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

Komentarze

• 153 bajty
• @ceilingcat & c może być w porządku, jeśli zapisze liczbę jako bajt1 bajt2 bajt3 … Na przykład 255 w pamięci jako ff 00 00 00, ale jeśli istnieje inny endian dla 255 mamy 00 00 00 ff i wypisujemy void string …

C, 163 162 159 bajtów

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

Komentarze

• umieszczenie char*t="aeiou"; w pętli for zapisuje 1 bajt
• 144 bajty

C #, 133 121 bajtów

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

Edytuj (dzięki milk)

dziękuję 🙂 Właściwie znam to przeciążenie, ale jakoś zupełnie o nim zapomniałem, pisząc to ..

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

Komentarze

• Możesz użyć przeciążenia Select(char, int), więc nie ' nie musisz deklarować i i umieści to wszystko w jednej linii. s=>string.Concat(s.Select((c,i)=>(i="AIUEOaiueo".IndexOf(c))>-1?"OboIniIkiUnuApioboiniikiunuapi".Substring(i*3,3):c+""));

C, 207 202 bajty (dzięki 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) Nienawidzę pomijać typu przed jakąkolwiek deklaracją

2) Nie lubię umieszczać bezużytecznego kodu (bez funkcji main ())

Użycie:

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

Komentarze

• Witamy w PPCG!
• @MartinEnder, to ' jest nieoczekiwane … ale dziękuję 🙂
• (c=getchar())!= EOF może stać się ~(c=getchar())
• 143 bajty

Swift 2.2 196 bajtów

¯ \ _ (ツ) _ / ¯

Gra w golfa

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

Komentarze

• Czy spacje znajdują się w var r = [ konieczne?
• Tak, w aplikacji placów zabaw, jeśli nie ' nie wstawisz spacji między przydziałem, spowoduje to błąd i poprosi o dodanie spacji . Swift jest prawdopodobnie jednym z najgorszych języków do gry w golfa, ale pomyślałem, że fajnie by było spróbować.
• Co ciekawe, nie ' nie dał mi tego błąd podczas przypisywania zmiennej do zamknięcia. Stąd wzruszający ramionami mężczyzna
• tak, też to zauważyłem. To ' powód, dla którego byłem zdezorientowany.

Perl 6 , 84 82 bajty

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

Rozwinięty:

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

Użycie:

 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 bajty

(dla przejrzystości dodano nowe wiersze)

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

Wystarczy przeglądać tabele i przełącznik boolowski.

Wyszukaj każdą literę w tabeli (ciągu) samogłosek; jeśli zostanie znaleziony, zmodyfikuj go zgodnie z regułą w tabeli s. Wydrukuj każdy znak, po którym następuje ciąg: jeśli znaleziono samogłoskę, wypisuje znak zmodyfikowany przez wartość w s, po którym następuje reszta sylaby przechowywanej w tabeli f; jeśli samogłoska nie została znaleziona, wydrukuj oryginalny znak i pusty ciąg.

Komentarze

• 145 bajtów

Ruby, 102 93 91 88 78 bajtów

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

Wyjaśnienie:

Wykonaj linię taką jak ruby -pe "gsub(/[#{b="aeiouAEIOU"}]/){"obounuiniapiikiOboUnuIniApiIki"[b.index($&)*3,3]}", wpisz następną, na przykład Australia, powinna wypisać: Oboikistroboliniobo.

To całkiem proste, zamień wszystkie samogłoski na podciąg na podstawie indeksu zastępowanej samogłoski w (b), razy 3 i następne 3 znaki w ciągu tłumaczenia.

Komentarze

• Podejrzewam początkowe i końcowe cudzysłowy (i wewnętrzne znaki specjalne, jeśli dane wejściowe mają cudzysłowy ) w danych wyjściowych może to zdyskwalifikować. W każdym razie możesz zaoszczędzić dwa bajty, przenosząc przypisanie b do Regexp (/[#{b=...}/).
• Myślę, że spacja p $* jest niepotrzebna
• Użyj flagi -p, aby zapisać dodatkowe bajty. ruby -pe 'gsub(/[#{b="aeiouAEIOU"}]/){"obounuiniapiikiOboUnuIniApiIki"[b.index($&)*3,3]}'
• Naliczyłem 78 + 2 (-pe). Jak otrzymujesz 71?
• @NotthatCharles czy postacie potrzebne do wykonania naprawdę mają znaczenie w tym przypadku? Właśnie nie ' ich nie policzyłem.

TI-BASIC, 201 197 195 bajtów

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 

Pomyśleć, że znajdę inny wyznacznik celu dydaktycznego -PODSTAWOWA odpowiedź tutaj!

W każdym razie dane wejściowe to angielski ciąg znaków w Ans.
Wyjście to przetłumaczony ciąg.

Przykłady:

"HE HE prgmCDGF1A HUnu "Hello Hello prgmCDGF1A Hunullapi 

Wyjaśnienie:
(Aby zwiększyć czytelność, dodano znaki nowego wiersza. Wiele wierszy z tego samego wiersza będzie oznaczonych : w następującym bloku kodu.)

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" 

Uwagi:

• TI-BASIC jest językiem tokenizowanym. Liczba znaków nie nie równa liczba bajtów.

• Małe litery w TI-BASIC to dwa bajty es każdy.