Programmiersprachen (Re: [linux-l] Ruby: sehr cool, aber laaaahm... wie geht's schneller?! - D?)

[David Hansen]

On Sun, 27 Aug 2006 12:43:21 +0200 Ivan F. Villanueva B. wrote:

> Ich würde es gerne in Perl, Rubby, Python, Ocalm und D
> sehen.

Na dann nochmal scheme:

(define (square x) (* x x))
(define (cube x) (* x x x))
(define functions '(sin cos square cube))

(let ((dx .0001) (d .1) (x0 .0) (x1 3.))
  (for-each
   (lambda (sym)
     (let* ((f (eval sym (interaction-environment)))
            (df (lambda (x) (/ (- (f (+ x (/ dx 2))) (f (- x (/ dx 2)))) dx))))
       (display (string-append (symbol->string sym) ":\t"))
       (let loop ((x x0))
         (display (list x (f x) (df x)))
         (if (> x1 x) (loop (+ x d))))
       (newline)))
   functions))

Wo bleibt der Perl 1-Zeiler?!

David