Search found 1 match
- Tue Jun 29, 2010 9:40 am
- Forum: newLISP in the real world
- Topic: SBCL to newLISP
- Replies: 19
- Views: 17311
Re: SBCL to newLISP
;newLISP v.10.0.0 ;on Win32 IPv4 UTF-8 (import "kernel32.dll" "GetTickCount") (set 'BAILOUT 16) (set 'MAX_ITERATIONS 1000) (define (iterate x y) (let ((cr (sub y 0.5)) (ci x) (zi 0.0) (zr 0.0) (i 0)) (while 1 (inc i 1) (set 'temp (mul zr zi)) (set 'zr2 (mul zr zr)) (set 'zi2 (mul zi zi)) (set 'zr (...