Hala ayrışan en çirkin R kodu satırı nedir?

Amaç tek bir R kodu satırı üretmektir:

1. Mümkün olduğunca az yapar
2. Mümkün olduğunca çok karakterde (en fazla 100 karakter)
3. Ve mümkün olduğunca çirkin (burada "çirkin" verimsiz hesaplama stratejileri, sona eren noktalı virgül gibi yabancı karakterler anlamına gelebilir).

Elinden geleni yap, nazik halk!

Kazanmak için objektif kriterler

Kazanan cevap aşağıdaki puan ölçeğine göre değerlendirilecektir (en çok puan alan cevap kazanır):

• 0 ile 10 arasında bir dizi oluşturun ( 100 puan)
• Mümkün olduğu kadar çok karakterde (N)
  • N = 100 ise 0 puan
  • N <100 ise N-100 puan (yani 100'ün altındaki her karakter için bir puan kaybetmek)
  • N> 100 ise 2 (100-N) puan (100'den fazla her karakter için iki puan kaybetmek)
• R Inferno'dan mümkün olduğunca çok negatif örnek kullanmak
  • Alıntılanan örnek başına 6 puan
  • Her örnek yalnızca bir kez sayılır. Bu böyledir çünkü “alevli mezarda hapsedilen heretik” yalnızca bir kez hapsedilebilir. Böylece kod satırınızdaki iki global atama size sadece 6 puan kazandırır.

72 96 karakter.

`c`<-function(...){list(...)[[-1]];}->>`c`;`[`=0;`]`=10;c(c,c)(c,c)(c,invisible)(`[`[]:`]`[])[];

Çirkinlik:

• Standart işlev adını yeniden kullanma
• Sembolleri değişken ismi olarak kullanma
• Global atama
• Doğru atama
• Fonksiyonun kendi kendini yeniden tanımlaması
• Gereksiz sondaki noktalı virgül (ler)
• Gereksiz alt komut dosyası numaraları
• Değişken adının gereksiz alıntıları
• Çalışma alanını, sonraki kod çalıştırmalarını neredeyse kesinlikle kıracak bir durumda bırakır

0-10 dizisini oluşturur (bunu yapma fikri için Andrie'ye teşekkürler).

çıktı:

 [1]  0  1  2  3  4  5  6  7  8  9 10

0 ile 10 arasında bir dizi oluşturun.

100 karakter

{.=0;for(`~1` in c(1,2,3,4,5,6,7,8,9,10)){.=c(., `~1`,recursive=F)};print(unname(.[drop=T]));rm(.)}
 [1]  0  1  2  3  4  5  6  7  8  9 10

100 karakter: 1'den 10'a kadar bir sıra oluşturur.

2-10 sayıları kodda DEĞİLDİR ... - Bonus puan? :-)

Ayrıca lapplymaksimum performans için kullandığını unutmayın :)

unlist(lapply(LETTERS[-(11:26)],function(x) as.integer(charToRaw(x))-as.integer(charToRaw('A'))+1L))
#[1]  1  2  3  4  5  6  7  8  9 10 

100 karakter

assign("a",1:10);b<<-paste(c(a),collapse=";");unlist(lapply(strsplit(b,";")[[1]],function(c)c[[1]]))

Olmadığından emin değil misiniz lapplyüzerinde strsplitolumsuz bir örnektir ama emin olmalıdır.

Karakter olarak döner:

 [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"

I(cumsum(Reduce("sum", replicate(paste0(as.integer(T),as.integer(T)), T), accumulate=1-F) - T >0))

100 karakterden biraz daha az olmalı ve bir şekilde 0:10 üretmelidir