Články

Staré články Rekurze II. Scheme interace vs. rekurze Obrácený řetězec Limita funkce Referáty Kvadratická rovnice Dr. Scheme Liebintzova řada Aritmetika kongruencí Eulerova mocnina

Scheme

Jazyk Scheme se vyvinul z jazyku Lisp a setkáte se s ním kupříkladu v programu Gimp. Obsahuje totiž interpretační část nazvanou script fu, ve které můžete psát scipty přímo v jazyku Scheme (u něktých novějších verzí i v jazyce Python). Jazyk nemá téměř žádnou podporu cyklů a tak jediná možnost jak využívat tuto zbraň je rekurze, která tomuto jazyku dává svou krásu. Všechny tyto funkce jsem napsal sám, tak se omlouvám kdyby se naskytla nějaká chyba.

(define signum
   (lambda (x)
    (cond
     ((> x 0) 1)
     ((< x 0) -1)
     (else 0))))

Matematická funkce Signum pomocí podmíňovacího příkazu cond

(define abs
   (lambda (x)
    (if (> x 0)
     x
     (- x))))

Matematická funkce Abs pomocí podmíňovacího příkazu if

(define fakt
   (lambda (n)
    (if (= n 0) 1
     (* n (fakt (- n 1))))))

Výpočet faktoriálu

(define fib
   (lambda (n)
    (cond
     ((= n 0) 1)
      ((= n 1) 1)
      (else (+ (fib (- n 1)) (fib (- n 2)))))))

Výpočet Fibonacciho posloupnosti

(define minimum
   (lambda (alist)
    (cond
     ((null? (cdr alist)) (car alist))
     ((< (car alist) (minimum (cdr alist))) (car alist))
     (else (minimum (cdr alist))))))

Nalezení nejmenšího prvku v seznamu

nahoru

vzhled & kód vytvořil Adam Vůjtek http://vujtas.wz.cz
2003-2008

hledat:

Úvod Články Fórum MatFyz Linux Programy Fotky Jukebox Kontakt Odkazy