по мотивам http://www.xkcd.ru/487/:
let li = [0..9] \\ [3, 5] in filter ((> 1) . length) [(show x) ++ (show y) | x <- li, y <- li]программа длинной в 93 символа генерирует 64 теоретически возможных позы для двоих. цифры 3 и 5 было решено отбросить по причине крайне проблематичной реализации вживую; на очереди ряд символов из анализа для разнообразия антуража. предложения приветствуются
девушка (rual_ilmarranen) в ответ предложила следующую эквивалентную реализацию на Scheme:
(define position-lst '("1" "2" "4" "6" "7" "8" "9" "0" ))
(define (make-positions )
(define (loc-make-pos lst)
(cond
[(null? lst) null]
[(cons (map
(lambda (pose)
(string-append (car lst) pose)) position-lst)
(loc-make-pos (cdr lst)))]
))(loc-make-pos position-lst))к слову, числа [0, 1, 2, 4, 6, 7, 8, 9] фигурируют в начале по крайней мере 9 известных числовых последовательностей, одной из которых является последовательность всех таких чисел, запись которых в семиричной системе счисления содержит одинаковое количество цифр '3' и '5'
вот. а вы чем занимаетесь? :)
