Tujuannya adalah untuk menghasilkan satu baris kode R yang:
- Lakukan sesedikit mungkin
- Sebanyak mungkin karakter (maks. 100 karakter)
- Dan seburuk mungkin (di mana "jelek" dapat diartikan sebagai strategi komputasi yang tidak efisien, karakter asing seperti titik koma penghentian, dan sebagainya).
Lakukan yang terburuk, kaum lemah lembut!
Kriteria obyektif untuk menang
Jawaban yang menang akan dinilai berdasarkan skala poin berikut (jawaban dengan poin terbanyak menang):
- Buat urutan dari 0 hingga 10 ( 100 poin)
- Sebanyak mungkin karakter (N)
- 0 poin jika N = 100
- N-100 poin jika N <100 (mis. Kehilangan poin untuk setiap karakter di bawah 100)
- 2 (100-N) poin jika N> 100 (yaitu kehilangan dua poin untuk setiap karakter lebih dari 100)
- Menggunakan banyak contoh negatif dari R Inferno mungkin
- 6 poin per contoh yang dikutip
- Setiap contoh hanya dihitung satu kali. Ini karena "sesat yang dipenjara di [a] makam yang menyala-nyala" hanya bisa dipenjara sekali saja. Dengan demikian dua penugasan global dalam baris kode Anda hanya memberi Anda 6 poin.
code-challenge
r
Ari B. Friedman
sumber
sumber
Jawaban:
7296 karakter.Kejelekan:
Hasilkan urutan 0-10 (terima kasih kepada Andrie untuk ide untuk melakukan itu).
keluaran:
sumber
"<-"("c",function(...){list(...)[[-1]];}->>"c");"["=0;"]"=10;c(c,c)(c,c)(c,invisible)("["[]:"]"[])[]
Buat urutan dari 0 hingga 10.
100 karakter
sumber
100 karakter: Buat urutan dari 1 hingga 10.
Perhatikan bahwa angka 2-10 TIDAK dalam kode ... - Poin bonus? :-)
Perhatikan juga bahwa ini digunakan
lapply
untuk kinerja maksimum :)sumber
100 karakter
Tidak yakin apakah
lapply
padastrsplit
adalah contoh negatif tetapi pasti harus.Kembali sebagai karakter:
sumber
seharusnya memiliki sedikit kurang dari 100 karakter dan entah bagaimana menghasilkan 0:10
sumber
nchar
, menghitung spasi. Meskipun pada sistem sayareplicate
tidak dapat mengambil vektor karakter sebagai argumen panjang.