Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Perl6

Name: Anonymous 2011-02-12 6:10

Fibonacci in Perl6.

my @fib := (0, 1, *+* ... *);

Can your toy language do this?

Name: Anonymous 2011-02-12 6:32

(define (Π f n m)

  (let ((x (future

            (lambda ()

              (let/ec k

                (do ((x n (+ x 2))

                     (r 1 (* r (f x))))

                  ((> x m) (k r)))))))

        (y (let/ec k

             (do ((x (add1 n) (+ x 2))

                  (r 1 (* r (f x))))

               ((> x m) (k r))))))

    (* y (touch x))))



(define (fact x)

  (Π values 1 x))

Compile with -Ofast -funroll-loops -funsafe-loop-optimizations -funsafe-escape-continuations-optimizations -fomg-optimized.

Newer Posts

Perl6

1 Name: Anonymous 2011-02-12 6:10

4 Name: Anonymous 2011-02-12 6:32

Name: Anonymous 2011-02-12 6:10

Name: Anonymous 2011-02-12 6:32