Який найрідніший рядок коду R, який досі розбирає?

Метою є створення єдиного рядка коду R, який:

1. Робить якомога менше
2. Щонайбільше символів (максимум 100 символів)
3. І це якомога некрасиво (де "потворне" можна вважати неефективними обчислювальними стратегіями, сторонніми символами, такими як кінцева крапка з комою тощо).

Робіть найгірше, джентльмен!

Об'єктивні критерії виграшу

Відповідь, що виграє, буде оцінюватися відповідно до наступної шкали балів (відповідь з найбільшою кількістю очок виграє):

• Створіть послідовність від 0 до 10 ( 100 балів)
• Як можна більше символів (N)
  • 0 балів, якщо N = 100
  • N-100 балів, якщо N <100 (тобто втрачає очку за кожного символу під 100)
  • 2 (100-N) балів, якщо N> 100 (тобто втрачають два бали за кожен символ понад 100)
• Використовуючи в якості багатьох прикладів негативних з R Інферно , як це можливо
  • 6 балів за наведеним прикладом
  • Кожен приклад рахується лише один раз. Це так тому, що "єретик, ув'язнений у [полум’яній гробниці", може бути ув'язнений лише один раз. Таким чином, два глобальних завдання у вашому рядку коду набирають лише 6 балів.

72 96 символів.

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

Потворність:

• Використання стандартного імені функції
• Використання символів як імен змінних
• Глобальне призначення
• Правильне призначення
• Самовизначення функції
• Непотрібна точка-крапка з комою
• Непотрібні номери сценаріїв
• Непотрібне цитування імені змінної
• Залишає робочу область у стані, який майже напевно порушить будь-який наступний запуск коду

Створює послідовність 0-10 (спасибі Андріє за ідею зробити це).

вихід:

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

Створіть послідовність від 0 до 10.

100 символів

{.=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 символів: Створіть послідовність від 1 до 10.

Зауважте, що цифри 2-10 НЕ в коді ... - Бонусні бали? :-)

Також зауважте, що він використовує lapplyдля досягнення максимальної продуктивності :)

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 символів

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

Не впевнений , що, якщо lapplyна strsplitце негативний приклад , але він упевнений , що має бути.

Повертається як персонаж:

 [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 символів і якось створювати 0:10