Brownian motion

around the essentials…

 

Archive for the Category ‘Humor’

Котяча шерстина

Колись людство таки навчиться впевнено перестрибувати у часі-просторі зі струни на струну.

І тоді якось одного разу якийсь Айтішник захоче майнути на вихідні на випадково вибрану його Роботом крихітну планетку — подалі від натовпів і гамору, просто посидіти наодинці і просто нарешті розшифрувати ті поголосники того партесного концерту, написаного якимось анонімом десь на межі далеких 17 та 18-го століть.

І ось весняним суботнім ранком його «кросовер» тихеньким «дзинь!» дасть йому знати, що вони вже на поверхні планетки. Це буде просто ранок його власної біологічної доби, будь-яка інша доба чи навіть пора року в тому часі-просторі вже не існуватиме, проте хай це буде весняний суботній ранок. Можна було б навіть сказати, що це буде весняне рівнодення, 21 квітня (за новоюліанським календарем, безумовно!))… якщо б людство не забуло вже давно-давно усі ритми Землі й Сонячної системи, лишивши кожному тільки його власну біологічну добу та бездонний Всесвіт.

(more…)

(5 votes, average: 4.80 out of 5)

… я Схему би вивчив уже за одне: зі мною вона українською ;О)

(use-modules (ice-9 rdelim))
(use-modules (ice-9 regex))
 
(define конфігфайл "ZyXEL.confg")
 
(define конфіг (open-input-file конфігфайл))
 
(define (знайти-влани)
  (let повторити ((вже-знайдені '()) (влан #f))
       (if (not (eof-object? (peek-char конфіг)))
           (let ((рядок (string-trim-both (read-line конфіг))))
                (if (not влан)
                    (if (string-match "vlan" рядок)
                        (set! влан (list-ref (string-tokenize рядок) 1)))
                    (begin
                        (if (string-match "fixed" рядок)
                            (set! вже-знайдені
                                      (append вже-знайдені (list влан))))
                        (if (string-match "exit" рядок)
                            (set! влан #f))))
                  (повторити вже-знайдені влан))
             вже-знайдені)))
 
(display (string-join (знайти-влани) ","))

Звісно, можна також:

(define якщо if)
(define стань! set!)
(define зліпити-у-рядок string-join)
...

… і користуватися ними. Але то вже занадто :О)

(No Ratings Yet)

Jokes and reality about photo

Sometimes I observe some funny pictures about photographers and photo cameras — so i decided to collect them :-)

(2 votes, average: 5.00 out of 5)

Recent Posts

Tags

Archives