Quelle est la ligne de code R la plus laide qui soit encore analysée?

L'objectif est de produire une seule ligne de code R qui:

1. Fait le moins possible
2. En autant de caractères que possible (max 100 caractères)
3. Et est aussi laid que possible (où "laid" peut être considéré comme signifiant des stratégies de calcul inefficaces, des caractères étrangers tels qu'un point-virgule de fin, etc.).

Faites de votre pire, mes amis!

Critères objectifs pour gagner

La réponse gagnante sera jugée selon l'échelle de points suivante (la réponse avec le plus de points gagne):

• Générer une séquence de 0 à 10 ( 100 points)
• En autant de caractères (N) que possible
  • 0 point si N = 100
  • N-100 points si N <100 (c'est-à-dire perdre un point pour chaque personnage de moins de 100)
  • 2 (100-N) points si N> 100 (c'est-à-dire perdre deux points pour chaque personnage de plus de 100)
• Utiliser autant d'exemples négatifs du R Inferno que possible
  • 6 points par exemple cité
  • Chaque exemple ne compte qu'une seule fois. Il en est ainsi parce qu'un "hérétique emprisonné dans [une] tombe enflammée" ne peut l'être qu'une seule fois. Ainsi, deux affectations globales dans votre ligne de code ne vous rapportent que 6 points.

72 96 caractères.

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

La laideur:

• Réutilisation d'un nom de fonction standard
• Utilisation de symboles comme noms de variables
• Affectation globale
• Affectation correcte
• Auto-redéfinition de la fonction
• Point-virgule de fin inutile
• Numéros de sous-scriptage inutiles
• Citation inutile du nom de variable
• Laisse l'espace de travail dans un état qui interrompra presque certainement toute exécution de code ultérieure

Génère la séquence 0-10 (merci à Andrie pour l'idée de faire ça).

production:

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

Générez une séquence de 0 à 10.

100 caractères

{.=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 caractères: Générez une séquence de 1 à 10.

Notez que les nombres 2-10 ne sont PAS dans le code ... - Des points bonus? :-)

Notez également qu'il utilise lapplypour des performances maximales :)

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 caractères

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

Je ne sais pas si lapplyon strsplitest un exemple négatif mais ça devrait l'être.

Renvoie sous forme de caractère:

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

devrait avoir un peu moins de 100 caractères et produire 0:10