vaclavt
/
mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

small updates

This commit is contained in:
vaclavt 2022-05-27 17:35:22 +02:00
parent fb552633c2
commit 48a5d70cc4
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debug.lsp
View File

@ -1,7 +1,6 @@
(dotimes i 4 (print i) )
(def acc 0)
;(dotimes i 4 (do (set! acc (+ acc i)) (print acc)) )
(print (dotimes i 4 (do (set! acc (+ acc i)) (print acc))) )
(defmacro until (cnd body)

13
tests/test.lsp
View File

@ -9,11 +9,11 @@
(* n (fact (- n 1)))
))
; for scitej 4000 stack must be 16MB, otherwise 1000 is ok
(defn scitej (n)
; for adder 4000 stack must be 16MB, otherwise 1000 is ok
(defn adder (n)
(if (<= n 1)
1
(+ n (scitej (- n 1)))
(+ n (adder (- n 1)))
))
(write-file "/tmp/f.txt" "line 1\nline 2\nline3")
@ -29,6 +29,11 @@
(thread-create (tcp-server 7778 (lambda (str) (list #t (+ "(print \"" (string-upcase str) "\")")))))
(ut::define-test "result of (unless #t (print \"#f\"))" '(ut::assert-false (unless #t (print "#f"))))
(ut::define-test "result of (dotimes i 5 i)" '(ut::assert-equal 4 (dotimes i 5 i)))
(ut::define-test "result of (def i 0)(until (> i 3) (set! i (inc i)))" '(ut::assert-equal 4 (do (def i 0)(until (> i 3) (set! i (inc i))))))
(ut::define-test "result of (and (> 2 1) (> 2 1))" '(ut::assert-true (and (> 2 1) (> 2 1))))
(ut::define-test "result of (or (> 2 1) (> 2 1))" '(ut::assert-true (or (> 2 1) (> 2 1))))
(ut::define-test "retult of (and (> 2 1) (> 1 2))" '(ut::assert-false (and (> 2 1) (> 1 2))))
@ -57,7 +62,7 @@
(ut::define-test "result of (range 1.5 5.5)" '(ut::assert-equal '(1.500000 2.500000 3.500000 4.500000) (range 1.5 5.5)))
(ut::define-test "result of (fact 5)" '(ut::assert-equal 120 (fact 5)))
(ut::define-test "result of (scitej 1000)" '(ut::assert-equal 500500 (scitej 1000)))
(ut::define-test "result of (adder 1000)" '(ut::assert-equal 500500 (adder 1000)))
(ut::define-test "result of (len json_list)" '(ut::assert-equal 3 (len json_list)))