Brownian motion

around the essentials…


Posts Tagged ‘scheme’

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

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

Python is the winner?-)

Please see some info here. I will translate this post into English, i hope.

» Read more — code and comments… »

(No Ratings Yet)

Messing consoles…

>>> (with-error-to-file (current-error-port) (display "foo"))
  File "", line 1
    (with-error-to-file (current-error-port) (display "foo"))
SyntaxError: invalid syntax

Trying to learn Scheme, trying to work with Python…

Yes, right, guile throws another error message, i’ve already learned that :O)

(No Ratings Yet)

lilypond: Translating tempi with Scheme

Read more — code and comments… »

(No Ratings Yet)

Recent Posts