shithub: femtolisp

ref: db94d6ef1f745bfc50211a20c0e4b3553bff72b0
dir: /femtolisp/pisum.lsp/

View raw version
(define (pisum)
  (dotimes (j 500)
    ((label sumloop
            (lambda (i sum)
              (if (> i 10000)
                  sum
                (sumloop (+ i 1) (+ sum (/ (* i i)))))))
     1.0 0.0)))