Qual é a linha mais feia de código R que ainda analisa?

O objetivo é produzir uma única linha de código R que:

1. Faz o mínimo possível
2. No máximo de caracteres possível (máximo de 100 caracteres)
3. E é o mais feio possível (onde "feio" pode significar estratégias computacionais ineficientes, caracteres estranhos, como ponto-e-vírgula final e assim por diante).

Faça o seu pior, pessoal!

Critérios objetivos para ganhar

A resposta vencedora será julgada de acordo com a seguinte escala de pontos (a resposta com mais pontos ganha):

• Gere uma sequência de 0 a 10 ( 100 pontos)
• No maior número possível de caracteres (N)
  • 0 pontos se N = 100
  • N-100 pontos se N <100 (isto é, perde um ponto para cada personagem abaixo de 100)
  • 2 (100-N) pontos se N> 100 (ou seja, perder dois pontos para cada personagem acima de 100)
• Usando como muitos exemplos negativos a partir do R Inferno possível
  • 6 pontos por exemplo citado
  • Cada exemplo conta apenas uma vez. Isso ocorre porque um "herege preso em uma tumba flamejante" só pode ser preso uma vez. Assim, duas atribuições globais em sua linha de código representam apenas 6 pontos.

72 96 caracteres.

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

Feiúra:

• Reutilizando um Nome de Função Padrão
• Usando símbolos como nomes de variáveis
• Atribuição global
• Atribuição correta
• Auto-redefinição de função
• Ponto e vírgula final desnecessário
• Números de sub-script desnecessários
• Citação desnecessária do nome da variável
• Deixa a área de trabalho em um estado que quase certamente interromperá qualquer execução de código subsequente

Gera a sequência de 0 a 10 (obrigado a Andrie pela ideia de fazer isso).

resultado:

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

Gere uma sequência de 0 a 10.

100 caracteres

{.=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 caracteres: gere uma sequência de 1 a 10.

Note que os números 2-10 NÃO estão no código ... - Pontos de bônus? :-)

Observe também que ele usa lapplypara desempenho máximo :)

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 caracteres

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

Não tenho certeza se lapplyon strsplité um exemplo negativo, mas com certeza deve ser.

Retorna como um caractere:

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

deve ter um pouco menos de 100 caracteres e de alguma forma produzir 0:10