В журнале «Наука и жизнь» в конце 80-х печатали статьи по программированию. Как-то было опубликовано замечательное предложение определить в C такие вот макросы:
#define BEGIN {
#define END }
и после этого писать, как на богомерзком Паскале. А вот сегодня нашел логичное продолжение этого подхода:
// Находим среднее арифметическое
срака посередине стало шняга кагбэ ХУЙ да;
туды_сюды в_общем какая_то козёл стал норма; козёл почти фигня; козёл и_ещё_больше ну
начал
посередине присобачить шнягу кагбэ козёл да;
Подрыхнуть в_общем чуть_чуть ну;
кончил
посередине стало посередине хуякс фигня;
Слышь_это "\n\nСреднее арифметическое элементов массива: " эээ посередине эээ бля;
Надо применить такой подходец на практике, надо.
на меня бывает находит такое:
(define (фы няк)
(define (фффы ня ню)
(cond
((= ня 0) ню)
((= ня 1) ню)
(else (фффы (- ня 1) (* ня ню)))))
(фффы няк 1))
(define (фталеин фтор)
(define (фталеинфич фтор фталеин)
(if (= фтор 0)
(reverse (append фталеин `(0)))
(фталеинфич (- фтор 1) (append фталеин (list фтор)))))
(фталеинфич (- фтор 1) ()))
(define (ஸ்ரீனிவாஸ k)
(* (/ (фы (* 4 k)) (expt (фы k) 4))
(/ (+ 1103 (* 26390 k)) (expt 396 (* 4 k)))))
(define (форточка_файрфокса k)
(/ 9801
(* 2 (precision-sqrt 2 1000) (foldl + 0 (map ஸ்ரீனிவாஸ (фталеин k))))))