Penjelasan

Halo! Bagi Anda yang tidak menggunakan bahasa Spanyol, kata kerja dikonjugasikan berdasarkan orang yang melakukan tindakan. Berikut ini bagan:

English                   Spanish
I                         Yo
You                       Tú
He                        Él
She                       Ella
You (formal)              Usted
We all                    Nosotros
You all                   Vosotros
They (masculine, plural)  Ellos
They (feminine, plural)   Ellas
You (plural)              Ustedes

Di Spanyol, semua kata kerja berakhir dengan ar, eratau ir. Berikut bagan bermanfaat lainnya:

          Ar    Er    Ir
Yo        o     o     o
Tú        as    es    es
Él        a     e     e
Ella      a     e     e
Usted     a     e     e
Nosotros  amos emos imos
Vosotros  áis  éis  ís
Ellos     an   en   en
Ellas     an   en   en
Ustedes   an   en   en

Diberi kata ganti dan kata kerja, cetak kata kerja yang dikonjugasikan menggunakan kata ganti dalam present tense. Jangan khawatir tentang perubahan batang dan kata kerja yang aneh.

Contohnya

Input        Output
Yo escribir  Escribo
Tu enseñar   Enseñas
Ella querer  Quere (It should be quiere but ignore stem changes)

Jika bahasa Anda tidak mendukung pencetakan dengan aksen, Anda dapat menghilangkannya. Kalau tidak, tidak perlu lagi menggunakan karakter á alih-alih dalam kode Anda.

Anda dapat menemukan lebih banyak kata untuk diuji di sini: http://spanish.speak7.com/spanish_vocabulary_verbs.htm . Perhatikan bahwa contester haruslah contestar.

Tantangan: Perubahan Batang

Dalam bahasa Spanyol, beberapa kata kerja mengalami perubahan batang. Mari kita ambil kata kerja querersebagai contoh. Dalam semua bentuk kecuali nosotros dan vosotros , yang pertama eberubah menjadi ie. Jadi yo quiero, tapi nosotros queremos. Jika program Anda dapat menjelaskan perubahan batang, Anda dapat mengurangi dua kali panjang setiap kata yang Anda dukung dari skor akhir Anda. Misalnya, jika Anda mendukung i-> ieperubahan quererdan hanya querer, Anda dapat mengurangi dua kali panjang querer, atau 12, dari skor Anda.

Untuk beberapa kata kerja yang mengubah batang, coba ini: https://conjuguemos.com/chart.php?language=spanish&id=2&etre=no&commands=no&commands=no&all=no&source=public

Bonus Kecil

Hanya untuk bersenang-senang, jika Anda menjelaskan apa yang kode Anda lakukan dalam bahasa Spanyol, lepas 30 dari skor Anda. Jangan hanya menggunakan Google Translate atau saya akan dapat mengatakan bahwa Anda curang.

(Karena saya bukan penutur asli bahasa Spanyol, mohon koreksi kesalahan saya)

Python, 172 168 743 karakter - bonus 1796 = -1053

Diperbarui untuk mengambil tantangan perubahan batang.

p,v=raw_input().split()
y="aee";z=y+'n'
x=["ooo",y+'s',y,y,y,"aeimos","ae\x00is",z,z]["YoTuElEaUdNsVsEsUs".index(p[0]+p[-1])/2]
s=v[:-2]
X=v='eJw1UuHS5CAIe1aqrNsZhR6w/tj5Hv4Sv7uODRYDxEzlylKTplHS3xrS/3yIm4kntCTVSipkazaZ\n+AA32h3tY1ut+VL7NreXxsEEsgSheGynlJv/GNVvsPs9CIl2hoCSV+gYfuH7rdAyIQdr3+x92yCg\n2g7WEp4vMfTKgogyHabbL4z1l1p/1PLBCF4o9AjtmJBc6wpOTJykM+O0Ib2Y+FyCAuv5wcwCd+Ks\n4+XCdSwhqMIf/eJOFPMjV/rc0jw6IEvm8vjKdBuy/JryMPmEXwIiDInhtK01n1iDPrGu6/A5uy4/\nkBVd89R1OjvHCXbSnoDyaB23nhseElHosf45rzYC1zOevyDojQ548fjGCGg8M5aD8EAmB9GqgFHk\nBzRwDwJ6EcgK5aSDZ2/4TSAjKOMXd3gPh6sTq/+GApG0wkSYdzSBz/AXclUQ+g=='.decode('base64').decode('zip')
if s in X:
 j=X.index(s)<326
 s=(s.replace('oe'[j],'ui'[j]+'e'),s)[p[0]in'NV']
print s+x["aei".index(v[-2])]+x[3:]

Penggunaan :

$ echo "Ellas querer" | python conj_golf2.py
quieren

Tes pada input yang tidak mengubah batang :

Yo ensenar -> enseno
Yo escribir -> escribo
Tu ensenar -> ensenas
Tu escribir -> escribes
El ensenar -> ensena
El escribir -> escribe
Ella ensenar -> ensena
Ella escribir -> escribe
Usted ensenar -> ensena
Usted escribir -> escribe
Nosotros ensenar -> ensenamos
Nosotros escribir -> escribimos
Vosotros ensenar -> ensenais
Vosotros escribir -> escribis
Ellos ensenar -> ensenan
Ellos escribir -> escriben
Ellas ensenar -> ensenan
Ellas escribir -> escriben
Ustedes ensenar -> ensenan
Ustedes escribir -> escriben

Contoh input pengubah batang :

Ia melakukan keduanya yaitu perubahan dan perubahan, dengan benar menghindari kasus nostro + vostros:

$ echo "Yo abstenir"|python conj_golf2.py
abstieno
$ echo "Nostros abstenir"|python conj_golf2.py
abstenimos
$ echo "Tu almorzar"|python conj_golf2.py
almuerzas
$ echo "Vostros almorzar"|python conj_golf2.py
almorzais

Berikut adalah cara menentukan bonus dan string data yang dihasilkan, dari mana Anda dapat menyimpulkan kata kerja tempat kerjanya:

e="absten.acert.adher.adquer.advert.apret.asent.atraves.calent.cerr."+\
  "circunven.comenz.confer.confes.consent.conten.contraven.conven.convert."+\
  "difer.diger.discern.disent.freg.gobern.hed.hel.her.herv.infer.inger."+\
  "invern.invert.malher.manifest.ment.neg.nev.obten.ofend.pens.perd."+\
  "quer.recomend.reg.seg.sembr.sent.serr.sosegsosten.soterr.subarrend."+\
  "suger.tembl.tend.ten.tent.transfer.tropez.ven.vert"

u="absolv.acord.acost.almorz.along.amobl.apost.aprob.asol.avergonz."+\
  "coc.col.colg.cont.cost.degoll.demol.demostr.desaprob.descolg.descontr."+\
  "desos.destorc.devolv.disolv.dol.dorm.encontr.engros.envolv.forz.holg."+\
  "holl.llov.mol.mor.mostr.mov.ol.pobl.prob.record.reforz.remord.remov.renov."+\
  "repobl.resolv.resoll.reson.retorc.revolc.revolv."+\
  "rod.rog.sol.sold.sol.solt.son.torc.tost.tron.vol.volc.volv"

words = e.split(".") + u.split(".")
bonus = 0
for word in words:
    bonus += (len(word)+2)*2
print "Bonus: %d from %d stem-changing verbs" % (bonus, len(words))

s=(e+"|"+u).replace(".","")
zipped = s.encode('zip')
b64 = zipped.encode('base64')
print "The separator is at index %d" % s.index("|")
print "Uncompressed: %d chars, %d repr" % (len(s), len(`s`))
print "Compressed: %d chars, %d repr" % (len(zipped), len(`zipped`))
print "Comp+B64: %d chars, %d repr" % (len(b64), len(`b64`))

print "v="+`b64`

Pemberian yang mana:

$ python conj_help.py
Bonus: 1796 from 127 stem-changing verbs
The separator is at index 326
Uncompressed: 645 chars, 647 repr
Compressed: 331 chars, 1015 repr
Comp+B64: 450 chars, 458 repr
v='eJw1UuHS5CAIe1aqrNsZhR6w/tj5Hv4Sv7uODRYDxEzlylKTplHS3xrS/3yIm4kntCTVSipkazaZ\n+AA32h3tY1ut+VL7NreXxsEEsgSheGynlJv/GNVvsPs9CIl2hoCSV+gYfuH7rdAyIQdr3+x92yCg\n2g7WEp4vMfTKgogyHabbL4z1l1p/1PLBCF4o9AjtmJBc6wpOTJykM+O0Ib2Y+FyCAuv5wcwCd+Ks\n4+XCdSwhqMIf/eJOFPMjV/rc0jw6IEvm8vjKdBuy/JryMPmEXwIiDInhtK01n1iDPrGu6/A5uy4/\nkBVd89R1OjvHCXbSnoDyaB23nhseElHosf45rzYC1zOevyDojQ548fjGCGg8M5aD8EAmB9GqgFHk\nBzRwDwJ6EcgK5aSDZ2/4TSAjKOMXd3gPh6sTq/+GApG0wkSYdzSBz/AXclUQ+g==\n'

Python, 240 byte - bonus (sangat besar)

from re import*;import urllib2 as u,sys;x=sys.argv
try:
 print search('>.*?'+sub('a','o',sub('ella','el',x[1]))+'.*? ([^<]*)',sub(u'\u00e9','e',sub(u'\u00fa','u',u.urlopen("http://smarturl.it/xz?word="+x[2]).read()))).group(1)
except:
 pass

Output sampel:

Input         | Output
yo escribir   | escribo
tu escribir   | escribes
tu ensenar    | ensenas
ella querer   | quiere
ellas querer  | quieren
nosotros vive | vi
tu acordar    | acuerdas

Penjelasan:

Kode ini menggunakan situs web konjugasi gratis yang ada ( http://www.conjugation.org/ ) yang mengembalikan berbagai konjugasi dari database besar kata kerja. Saya mengurangi URL sedikit dengan menggunakan pemendek URL online gratis yang memungkinkan parameter untuk melewati pengalihan ( http://smarturl.it/ ). Saya cukup membuat permintaan HTTP berdasarkan kata kerja yang ditentukan, menghapus aksen dari udan edi sumber, menemukan kata ganti dalam HTML menggunakan ekspresi reguler, kemudian mengembalikan konjugasi yang terkait.

Tidak mungkin untuk mengetahui berapa banyak kata kerja yang memiliki perubahan batang tanpa polling seluruh database terhadap sebuah kamus. Mungkin aman untuk mengasumsikan bonus negatif dari database ini jauh lebih besar daripada bonus dari daftar yang disandikan yang dilewati (yang menambah panjang kode).

Saya jelas bisa menangani karakter beraksen lebih baik, tapi itu akan membutuhkan encode / decode dan penanganan ekstra dalam ekspresi reguler.

Freepascal, 218 karakter -30 = 189

Ini adalah panggilan yang sulit untuk mengalahkan jawaban python (asli), terutama dengan Pascal. Saya dapat mencoba dan meningkatkan besok, mungkin dengan konsep serupa dalam bahasa yang berbeda. Saya tidak akan mengajukan jawaban yang mengubah batang, karena saya melihat ini sebagai tantangan bahasa daripada pemrograman.

var y,p,v:string;BEGIN y:='amosemosimosais eis is  as  eso eso   o   an  en  en';readln(p);readln(v);writeln(copy(v,1,length(v)-2),copy(y,6*(7-pos(p[1],' yt v n'))+pos(v[length(v)-1],y),pos(p[length(p)],'u s')+1));END.

Versi tidak disatukan:

var y,p,v:string;
BEGIN 
  y:='amosemosimosais eis is  as  eso eso   o   an  en  en';
  readln(p);readln(v);
  writeln(copy(v,1,length(v)-2),
  copy(y,6*(7-pos(p[1],' yt v n'))+pos(v[length(v)-1],y),pos(p[length(p)],'u s')+1));
END.

Explicación (Dalam bahasa Spanyol untuk bonus -30 sejak Anda bertanya)

el primer copyextrae la Raiz del Verbo, teniendo como parámetros el tali , el indice para empezar (en este caso 1) y la cantidad de letras (en este caso panjang-2. ) El segundo extrae su desinencia.

6*(7-pos(p[1],' yt v n')Lihat foto lainnya dari primera letra del pronombre. Si el pronombre es el / ella (o / s) o usted (es), posse mengeva sebuah Cero, Así que el keberanian dentro de los Parentesis es 7. pos(v[length(v)-1],ybusca la penultima letra del infinitivo en amosemosimosAsí que avanza 4 por cada tipo de Verbo , form unicicic de 12. yTambahkan ke daftar isi to to las las desinencias. Se ha logrado intercalar parcialmente las desinencias para "tu" y "yo." Semua yang Anda tahu tentang apa yang Anda butuhkan dan kemudian untuk saya untuk menghapusnya. Selain itu, Anda juga dapat menentukan bus mobil yang diinginkan.

pos(p[length(p)],'u s')+1)determina el numero de caracteres para imprimir. si el pronombre ada termina en so usolo se Imprimé un caracter. De esta manera suprimimos la segunda letra de an en enen el caso de un pronombre de tercera persona singular: él, ella, usted.

Keluaran

perl, 243 karakter

Kali ini berfokus pada pencarian hash. Saya cukup terkejut saya tidak bisa mendapatkan ini lebih kecil.

$_=<>;s/^(ustede|ell[oa])s\b/x/;s/^(él|ella|usted)\b/w/;%t=(yo,[o,o,o],"tú",[es,as,es],w,[e,a,e],x,[en,an,en],nosotros,[imos,amos,emos],vosotros,[qw(ís áis éis)]);@t=keys%t;$"="|";s/^(@t)\s+(\S*)([aei])r$/$2.$t{$1}[ord($3)%3]/e||die;print

Dan jika validasi input tidak penting, 186 karakter:

$_=<>;s/^[ue].*s /x /;s/^[éeu].* /w /;%_=(y=>[o,o,o],t,[es,as,es],w,[e,a,e],x,[en,an,en],n,[imos,amos,emos],v,[qw(ís áis éis)]);s/^(.)\S*\s+(.*)([aei])r$/$2.$_{$1}[ord($3)%3]/e;print

perl, 155 karakter

Hanya sekelompok ekspresi reguler saat ini. Anda bisa mendapatkan kode yang lebih pendek dengan menata ulang sedikit sehingga kata ganti muncul setelah kata kerja, karena kami hanya benar-benar peduli dengan akhir kata kerja:

$_=<>;s/(.+) (.*)(.)r/$2$3 $1/;s/. yo/o/||s/ tú/s/||s/ n.*/mos/||s/ v.*/is/||s/ .*s$/n/||s/ .*//;s/i(n?)$/e$1/;s/ais$/áis/;s/eis$/éis/;s/iis$/ís/;print

Sepertinya di atas saat ini adalah pemenang kode yang mengabaikan bonus.

ski@anito:~$ c='$_=<>;s/(.+) (.*)(.)r/$2$3 $1/;s/. yo/o/||s/ tú/s/||s/ n.*/mos/||s/ v.*/is/||s/ .*s$/n/||s/ .*$//;s/i(n?)$/e$1/;s/ais$/áis/;s/eis$/éis/;s/iis$/ís/;print'; for p in yo tú él ella usted ellos ellas ustedes vosotros nosotros ; do for v in mar mer mir ; do echo "$p $v" | perl -e "$c" ; done ; done ; echo -n "$c" | wc -c
mo
mo
mo
mas
mes
mis
ma
me
me
ma
me
me
ma
me
me
man
men
men
man
men
men
man
men
men
máis
méis
mís
mamos
memos
mimos
155

Bash, 301 309 (perbaikan bug) 307 299 termasuk baris baru

Tidak hebat dibandingkan dengan yang lain di luar sana. Dapat ditingkatkan.

Itu memanfaatkan beberapa kebetulan yang nyaman.

Perbaikan bug tidak bergantung pada kata kerja Spanyol yang memiliki "ii" di mana saja, karena cara itu menghemat karakter ketika menangani vosotros dengan kata kerja -ir mereka. Harap perbaiki saya jika itu salah.

Asumsikan input yang valid: argumen pertama adalah kata ganti dengan huruf kecil, dengan aksen yang diperlukan; Argumen kedua adalah infinitive dari kata kerja. Tidak ada perubahan batang diterapkan. Menghasilkan kata kerja terkonjugasi, dalam huruf kecil, tanpa aksen.

e=`tail -c3<<<$2`
f=`echo ${e:0:-1}`
s=`echo ${2:0:-2}`
if [ $1 = yo ];then o="$s"o;elif [ $1 = nosotros ];then o="$s$f"mos;elif [ $1 = vosotros ];then o="$s$f"is;else
if [ $f = i ];then f=e;fi
if [ $1 = tú ];then
o="$s$f"s;elif [ `tail -c2<<<$1` = s ];then
o="$s$f"n;else o=$s$f;fi
fi
tr -s i<<<$o

Dijelaskan. `` adalah notasi yang tidak jelas untuk $( ), menyimpan satu char.

e=`tail -c3<<<$2`

dapatkan kata kerja ending

f=`echo ${e:0:-1}`

dapatkan char pertama dari kata kerja ending

s=`echo ${2:0:-2}`

dapatkan kata kerja batang

if [ $1 = yo ]; then
o="$s"o;

Batang kata kerja + o. $ o adalah output kami

elif [ $1 = nosotros ]; then
o="$s$f"mos;

ambil stem + huruf pertama dari ending + mos

elif [ $1 = vosotros ]; then
o="$s$f"is;

stem + huruf pertama dari ending + adalah (tanpa aksen)

else
if [ $f = i ];then f=e;fi

dalam semua skenario kecuali dua di atas, kata kerja -irnya berperilaku sebagai kata kerja -er. ubah $ f ke e jika i.

if [ $1 = tú ]; then
o="$s$f"s;

batang + $ f + s

elif [ `tail -c2<<<$1` = s ]; then 

jika huruf terakhir dari akhiran adalah s. ini termasuk ellos, ellas, ustedes yang semuanya memiliki akhiran yang sama. alangkah nyaman.

o="$s$f"n;

batang + $ f + n

else o=$s$f;fi

kami mengasumsikan input yang valid, jadi satu-satunya kemungkinan lainnya adalah Él, Ella dan Usted, semuanya dengan akhiran yang sama

fi
tr -s i <<< $0

hasil cetak, menghapus i ganda (yang muncul ketika Anda menggunakan vosotros dengan kata kerja ir)

perl, 298 karakter

$_=<>;($p,$b,$x)=/^\s*(yo|tú|él|ellas?|ellos|usted|ustedes|[nv]osotros)\s+(\S*)([aei])r\s*$/;sub r{($z,$y)=@_;return if$p!~/^($z)/;if($p!~/ros$/){$x="e" if$x eq"i"}$x=""if$z eq yo;$x={qw(a áis e éis i ís)}->{$x}if$p=~/^v/;print"$b$x$y";exit}r yo,o;r t,"s";r"[eu].+s",n;r"[éeu]","";r n,mos;r v

atau jika kita dapat berhati-hati terhadap angin dan menerima input yang valid, 246 karakter:

$_=<>;($p,$b,$x)=/^(\S+)\s+(\S*)([aei])r$/;sub r{($z,$y)=@_;return if$p!~/^($z)/;if($p!~/ros$/){$x="e" if$x eq"i"}$x=""if$z eq yo;$x={qw(a áis e éis i ís)}->{$x}if$p=~/^v/;print"$b$x$y";exit}r yo,o;r t,"s";r"[eu].+s",n;r"[éeu]","";r n,mos;r v

hasil tes:

ski@anito:~$ c='$_=<>;($p,$b,$x)=/^(\S+)\s+(\S*)([aei])r$/;sub r{($z,$y)=@_;return if$p!~/^($z)/;if($p!~/ros$/){$x="e" if$x eq"i"}$x=""if$z eq yo;$x={qw(a áis e éis i ís)}->{$x}if$p=~/^v/;print"$b$x$y";exit}r yo,o;r t,"s";r"[eu].+s",n;r"[éeu]","";r n,mos;r v'; for p in yo tú él ella usted ellos ellas ustedes vosotros nosotros ; do for v in mar mer mir ; do echo "$p $v" | perl -le "$c" ; done ; done ; echo -n "$c" | wc -c
mo
mo
mo
mas
mes
mes
ma
me
me
ma
me
me
ma
me
me
man
men
men
man
men
men
man
men
men
máis
méis
mís
mamos
memos
mimos
246

Jawa - Terlalu Panjang

Aku bahkan tidak akan repot menghitung. Jika ada yang ingin bermain golf ini lebih baik, silakan lakukan. Saya akhirnya akan menerapkan tantangan yang mengubah batang.

public class Conjugator {

    public static void main(String[] args) {
        setup();
        String p = args[0].toLowerCase(), v = args[1]; 
        String e = v.substring(v.length() - 2);
        v = v.substring(0, v.length() - 2);
        String f = data.get(e).get(p);
        System.out.println(v + f);
    }

    static HashMap<String, HashMap<String, String>> data = new HashMap<String, HashMap<String, String>>();

    public static void add(String ending, String pronoun, String fin) {
        HashMap<String, String> hm = data.get(ending);
        if (hm == null) {
            hm = new HashMap<String, String>();
            hm.put(pronoun, fin);
            data.put(ending, hm);
            return;
        }
        hm = data.get(ending);
        hm.put(pronoun, fin);
    }

    public static void setup() {
        add("ar", "yo", "o");
        add("ar", "tu", "as");
        add("ar", "el/ella/usted", "a");
        add("ar", "nosotros", "amos");
        add("ar", "vosotros", "ais");
        add("ar", "ellos/ellas/ustedes", "an");

        add("er", "yo", "o");
        add("er", "tu", "es");
        add("er", "el/ella/usted", "e");
        add("er", "nosotros", "emos");
        add("er", "vosotros", "eis");
        add("er", "ellos/ellas/ustedes", "en");

        add("ir", "yo", "o");
        add("ir", "tu", "es");
        add("ir", "el/ella/usted", "e");
        add("ir", "nosotros", "imos");
        add("ir", "vosotros", "is");
        add("ir", "ellos/ellas/ustedes", "en");
    }
}