upscheme/scheme-tests/pisum.scm

(define (pisum)
  (dotimes (j 500)
    ((label sumloop
            (lambda (i sum)
              (if (> i 10000)
                  sum
                (sumloop (+ i 1) (+ sum (/ (* i i)))))))
     1.0 0.0)))
switching to scheme #t, #f, and () values porting code to sort out which NILs are false and which are empty lists switching to scheme-style special forms. however you feel about scheme names vs. CL names, using both is silly. mostly switching to scheme predicate names, with compatibility aliases for now. adding set-constant! to make this efficient. adding null?, eqv?, assq, assv, assoc, memq, memv, member adding 2-argument form of if allowing else as final cond condition looking for init file in same directory as executable, so flisp can be started from anywhere renaming T to FL_T, since exporting a 1-character symbol is not very nice adding opaque type boilerplate example file adding correctness checking for the pattern-lambda benchmark bugfix in int2str 2009-01-28 20:04:23 -05:00			`(define (pisum)`
import femtolisp source 2008-06-30 21:54:22 -04:00			`(dotimes (j 500)`
			`((label sumloop`
			`(lambda (i sum)`
			`(if (> i 10000)`
			`sum`
			`(sumloop (+ i 1) (+ sum (/ (* i i)))))))`
			`1.0 0.0)))`