Saya belum banyak tertawa dari konten Stack Exchange seperti ini . Saya pikir Anda semua akan menikmati tantangan ini, karena terinspirasi oleh apa yang ada di sana.
Anda akan menulis fungsi atau program yang merupakan kode-golf, yaitu harus sesingkat mungkin.
Diberikan teks, kembalikan (keduanya dengan cara apa pun) teks di mana Anda akan mengontrak sebanyak mungkin kata menurut tabel ini .
Anda tidak boleh menarik informasi dari tabel, melainkan Anda harus memiliki semua informasi yang diperlukan termasuk dalam kode Anda.
Semua aturan standar tidak boleh dilanggar karena kita tidak akan memiliki persaingan yang tidak adil.
Anda tidak perlu mempertimbangkan teks jika tidak ditulis dalam huruf kapital seperti dalam tabel, jadi Anda tidak boleh mengonversi you all WOULD not have
atau You all would not have
ke y'all'dn't've
.
Anda mungkin cocok dengan apostrof lama yang baik (U + 0027) atau yang bagus ; apapun yang kamu mau.
Contoh input di atas ↑ dan output yang sesuai di bawah ↓
Saya bahkan tidak banyak tertawa dari konten StackExchange seperti saya dari ini . Saya pikir Anda semua akan menikmati tantangan ini, karena terinspirasi oleh apa yang ada di sana.
Anda akan menulis sebuah fungsi atau program yang kode-golf, yaitu harus sesingkat mungkin.
Diberikan teks, kembalikan (keduanya dengan cara apa pun) teks di mana Anda akan mengontrak sebanyak mungkin kata menurut tabel ini .
Anda tidak akan menarik informasi dari tabel, tetapi Anda harus memiliki semua informasi yang diperlukan yang termasuk dalam kode Anda.
Semua aturan standar tidak boleh dilanggar karena kita tidak akan memiliki kompetisi yang tidak adil.
Anda tidak perlu mempertimbangkan teks jika tidak ditulis dalam huruf kapital seperti dalam tabel, jadi Anda tidak boleh mengonversi you all WOULD not have
atau You all would not have
ke y'all'dn't've
.
Anda mungkin cocok dengan apostrof baik (U + 0027) atau yang bagus ; apapun yang kamu mau.
Jawaban:
Perl,
34291095 byteTerkompresi teks.
skrip versi uuencode
sumber
perl -p0 s1-golfed.pl
untuk menyingkirkan loop sementara yang dibungkus:$/="\n";for$d(<DATA>){($x)=$d=~/(.*),(.*)\b/;s/$2/$x/g}
$x
:for$d(<DATA>){$d=~s~(.*),(.*)\b~"s/$2/$1/g"~eeg}