SchemeOld Interpreter

Aus ProgrammingWiki

Das Programming Wiki verwendet den SISC Scheme Interpreter.

SISC (Second Interpreter of Scheme Code) ist ein erweiterbarer, in Java geschriebener Interpreter für die funktionale Programmiersprache Scheme. SISC benutzt moderne Techniken für die Interpretation und ist weit leistungsfähiger als alle bereits existierenden Interpreter für die JVM (Java Virtual Machine).

Weblinks

SRFI Module

Der Scheme Requests For Implementation (SRFI) Prozess versucht Bibliotheken und andere Ergänzungen zwischen verschiedenen Schemeimplementierungen zu koordinieren. Für weitere Details:

SRFI (Unterschiede zwischen verschiedenen Schemeimplementationen) SRFI Liste (Liste aller verfügbaren SRFIs)

RFI's module können mit dem Ausdruck

require-library 'sisc/libs/srfi/srfi-n

geladen werden, wobei n der SRFI Nummer entspricht.

SISC unterstützt folgende SRFIs: 0, 1, 2, 5, 6, 7, 8, 9, 11, 13, 14, 16, 18, 19, 22, 23, 25, 26, 27, 28, 29, 30, 31, 34, 35, 37, 38, 39, 40, 42, 43, 45, 48, 51, 54, 55, 59, 60, 61, 62, 66, 67, 69 und 78.

(require-library 'sisc/libs/srfi/srfi-19)
(import srfi-19)
(time-second (current-time))

(require-library 'sisc/libs/srfi/srfi-13)
(import srfi-13)
(string-length "Hallo Welt")

;;; Zufallszahlgenerator
(define random-maker
 (let* ((multiplier 48271)
        (modulus 2147483647)
        (apply-congruence
         (lambda (current-seed)
           (let ((candidate (modulo (* current-seed multiplier) modulus)))
             (if (zero? candidate)
                 modulus
                 candidate))))
        (coerce
         (lambda (proposed-seed)
           (if (integer? proposed-seed)
               (- modulus (modulo proposed-seed modulus))
               19860617))))  ;; an arbitrarily chosen birthday
 (lambda (initial-seed)
   (let ((seed (coerce initial-seed)))
     (lambda args
       (cond ((null? args)
              (set! seed (apply-congruence seed))
              (/ (- modulus seed) modulus))
             ((null? (cdr args))
              (let* ((proposed-top
                      (ceiling (abs (car args))))
                     (exact-top
                      (if (inexact? proposed-top)
                          (inexact->exact proposed-top)
                          proposed-top))
                     (top
                      (if (zero? exact-top)
                          1
                          exact-top)))
                (set! seed (apply-congruence seed))
                (inexact->exact (floor (* top (/ seed modulus))))))
             ((eq? (cadr args) 'reset)
              (set! seed (coerce (car args))))
             (else
              (display "random: unrecognized message")
              (newline))))))))

;(define random
;  (let ((seed (time-nanosecond (current-time))))
;    (display seed)
;    (random-maker seed)))

(require-library 'sisc/libs/srfi/srfi-19)
(import srfi-19)   ; stellt current-time usw. bereit

(define random (random-maker (time-nanosecond (current-time))))

(random 10)

SchemeOld Interpreter

Weblinks

SRFI Module

Suche